problema invio mail da web [emergenza assoluta!]

**Certe Notti** · 21-11-2004, 19:32

salve ragazzi ho creato un form e una paginetta asp per inviare una mail in formato htm dal web, ma in fase di testing ecco sbucare l'errore.

l'errore è:

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

/spedizionelettera.asp, line 19

e il codice asp che sfrutto è questo:

codice:


<%

     
Mittente= Request.QueryString("Nome")
Indirizzo= Request.QueryString("Nomevia")
Telefono= Request.QueryString("numerotel")
Fax= Request.QueryString("numerofax")
Citta= Request.QueryString("citta")
Provincia= Request.QueryString("Provincia")
EMail= Request.QueryString("Mail")
ogg= Request.QueryString("oggetto")
Message= Request.QueryString("Messaggio")
    	
'Invio l'email 
Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail") 

miaMail.From = EMail 
miaMail.To = "xxxxxxxxxxxx" 

dim strOggMail 

strOggMail = "Lettera al Presidente dell'Associazione Istruttori e tecnici Equestri" 


strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><Table width=600 bordercolor=#FEED22 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2>"
strBodyMail = strBodyMail & "<tr><td valign=top><center><Table width=600 height=10 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=1 bordercolor=#FFFFFF>"

ecc.. continua la struttura in html

miaMail.Subject = strOggMail 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Body = strBodyMail 
miaMail.Send 

Set miaMail = Nothing 

Response.Redirect("invioavvenuto.asp")
		
%>

che acciderpoli ho sbagliato? so che c'è un comando più aggiornato per questa funzione mi potreste dire che devo modificare?

Grazie mille!

X_Gold* · 21-11-2004, 19:39

se sei su win 2003 o xp pro il cdonts non c'è, con 2003 devi usare cdosys e con xp pro devi caricare e registrare la dll cdonts.

se non rientri in questi casi facci sapere

**Certe Notti** · 21-11-2004, 21:07

premetto che la pagina è già on-line sul server quindi le librerie ben spero che le abbiano installate loro, mica mi ci devo preoccupare io di installargliele...

il sistema del server dovrebbe essere win 2003 server

e quindi nell'utilizzo del comando cdosys... che cosa mi cambia a livello di codice...?

quali le modifiche da appartere al mio codice?

Grazie

X_Gold* · 21-11-2004, 21:11

Originariamente inviato da Certe Notti
e quindi nell'utilizzo del comando cdosys... che cosa mi cambia a livello di codice...?

Grazie

praticamente tutto

cerca sul forum CDOSYS, se ne parlato tante volte

**Certe Notti** · 21-11-2004, 21:31

ok ho cercato e ho estrapolato questo risultato...

codice:

'Invio l'email 
Dim miaMail 
Set miaMail = Server.CreateObject("CDO.Message") 

miaMail.From = EMail 
miaMail.To = "xxxxxxxxx@tin.it" 

dim strOggMail
strOggMail = "Lettera al Presidente dell'Associazione Istruttori e tecnici Equestri" 


strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><Table width=600 bordercolor=#FEED22 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2>"

ecc... contino a creare il corpo in html nella variabile.

miaMail.Subject = strOggMail 
miaMail.HtmlBody = strBodyMail 
miaMail.Send 

Set miaMail = Nothing 

Response.Redirect("invioavvenuto.asp")
		
%>

corretto?

**Certe Notti** · 21-11-2004, 21:49

CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/spedizionelettera.asp, line 50

con le modifiche apportate e presenti nel mio post precedente ecco che sbuca quest'errore che c'è stavolta che non va?

Grazie

**Certe Notti** · 21-11-2004, 21:57

ho cambiato questa parte da:

codice:

'Invio l'email 
Dim miaMail 
Set miaMail = Server.CreateObject("CDO.Message")

a:

codice:

'Invio l'email 
Dim miaMail 
Set.miaMail = Server.CreateObject("CDO.Message")

perchè ho notato che in un thread dove si parlava del cdosys facevano così e l'errore che mi è uscito è:

Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

/spedizionelettera.asp, line 19

porca di quella.... ma cos'è che sbaglio?

X_Gold* · 21-11-2004, 22:20

codice:



<%
Dim miaMail, strOggMail
DIM iMsg, Flds, iConf


strOggMail = "Lettera al Presidente dell'Associazione Istruttori e tecnici Equestri" 


strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><Table width=600 bordercolor=#FEED22 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2>"


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta 
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = "xxxxxxxxx@tin.it" 
   .From = EMail 
   .Sender = "servizio...quello che vuoi"
   .Subject = strOggMail 
   .HtmlBody = strBodyMail
   .Send
End With

Response.Redirect("invioavvenuto.asp")

%>

fai copia e incolla e prova...

e poi non dire che non sono gentile e simpatico

**Certe Notti** · 21-11-2004, 22:25

essendo la prima volta che utilizzo cdosys efettivam,ente mi trovo spiazzato, però prendendo spunto dagli esempi messi a disposizione da weppos sul suo sito ho creato questa struttura.

mi potreste dare un'occhiatina

giusto perchè sinceramente io non saprei minimamente rilevare un errore piuttosto che un altro.

codice:

<%
Mittente= Request.QueryString("Nome")
Indirizzo= Request.QueryString("Nomevia")
Telefono= Request.QueryString("numerotel")
Fax= Request.QueryString("numerofax")
Citta= Request.QueryString("citta")
Provincia= Request.QueryString("Provincia")
EMail= Request.QueryString("Mail")
ogg= Request.QueryString("oggetto")
Message= Request.QueryString("Messaggio")


'Dichiara l'oggetto email e la configurazione 
Dim ObjMail, objConfig 

'Dimensiona l'oggetto email 
Set objMail = CreateObject("CDO.Message") 
'Dimensiona l'oggetto configurazione 
Set objConfig = Server.CreateObject ("CDO.Configuration") 
'Imposta le configurazioni 
With objConfig 
      
'Server SMTP di uscita 

'Esempio mail.dominio.it 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "smtp.dominio.com" 
'Porta SMTP 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25 
'Porta CDO 
   .Fields("http://schemas.microsoft.com/cdo/configuration/send using") = 2 
'Timeout 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60 

'ATTENZIONE: a causa delle impostazioni 
'di formattazione i campi risultano spezzati dopo al valore smtp. Ricordarsi di rimuovere gli spazi visibili! 
      
.Fields.Update 
End With 
'Assegna le configurazioni 
Set objMail.Configuration = objConfig 



'Assegna all'oggetto le proprietà necessarie 

'Mittente dell'email (indirizzo) 
objMail.From = EMail 

'Destinatario dell'email (indirizzo) 
objMail.To = "xxxxx@tin.it" 


'Oggetto dell'email 
dim strOggMail
strOggMail = "Lettera al Presidente dell'Associazione Istruttori e tecnici Equestri" 
objMail.Subject = strOggMail 

'Valore di priorità 
objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
objMail.Fields.Update() 

'Corpo del messaggio 
strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><Table width=600 bordercolor=#FEED22 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2>"
strBodyMail = strBodyMail & "<tr><td valign=top><center><Table width=600 height=10 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=1 bordercolor=#FFFFFF>"
strBodyMail = strBodyMail & "<tr><td valign=top></td></tr></table><Table bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=0><tr><td valign=top><center>"
strBodyMail = strBodyMail & "<img border=0 src=http://www.aite-italia.com/logomail.jpg></center></td></tr></table>"
strBodyMail = strBodyMail & "<Table width=550 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2 bordercolor=#FFFFFF><tr><td valign=top bordercolor=#175a38>"
strBodyMail = strBodyMail & "<center><table width=520 height=20 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=520 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td><font color=#000000 face=verdana size=2>" & Mittente
strBodyMail = strBodyMail & "
" & Indirizzo & " - " & Citta & Provincia & "
Tel. " & Telefono & "
Fax " & Fax & "
 Indirizzo e-mail:" & EMail & "</font>"
strBodyMail = strBodyMail & "</td></tr></table><table width=520 height=40 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=520 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td><font color=#000000 face=verdana size=2>Oggetto:" & Oggetto
strBodyMail = strBodyMail & "</font></td></tr></table><table width=520 height=10 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=520 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td><p align=justify>"
strBodyMail = strBodyMail & "<font color=#000000 face=verdana size=2>" & Messaggio & "</font></p></td></tr></table>"
strBodyMail = strBodyMail & "<table width=520 height=50 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=520 border=0 bordercolor=#FFFFFF cellpadding=0 cellspacing=0><tr><td valign=middle width=320></td>"
strBodyMail = strBodyMail & "<td valign=middle width=200><center><font color=0 face=verdana size=2>In fede
" & Nominativo & "</font></center></td></tr></table>"
strBodyMail = strBodyMail & "</center></td></tr></table><Table width=600 height=20 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=1 bordercolor=#FFFFFF>"
strBodyMail = strBodyMail & "<tr><td valign=top></td></tr></table></center></td></tr></table></center></body></html>"
objMail.HTMLBody = strBodyMail

'Invia l'email 
objMail.Send() 

'Distruggi l'oggetto 
Set objMail = Nothing 

Response.Redirect("invioavvenuto.asp")
		
%>

per esempio il comando:

codice:

'Esempio mail.dominio.it 
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "smtp.dominio.com"

essendo che quando su outlook io imposto gli account del sito il server in uscita è sempre smtp.dominio.com è quindi giusto che io metta come smtpserver questo?

Grazie

**Certe Notti** · 21-11-2004, 22:37

Originariamente inviato da X_Gold*

codice:



<%
Dim miaMail, strOggMail
DIM iMsg, Flds, iConf


strOggMail = "Lettera al Presidente dell'Associazione Istruttori e tecnici Equestri" 


strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><Table width=600 bordercolor=#FEED22 bgcolor=#FFFFFF cellspacing=0 cellpadding=0 border=2>"


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta 
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = "xxxxxxxxx@tin.it" 
   .From = EMail 
   .Sender = "servizio...quello che vuoi"
   .Subject = strOggMail 
   .HtmlBody = strBodyMail
   .Send
End With

Response.Redirect("invioavvenuto.asp")

%>

fai copia e incolla e prova...

e poi non dire che non sono gentile e simpatico

certo che sei gentile solo un'ultima cosa ai fini di apprendimento e giusto perchè così so che accidenti si deve fare per il futuro..

codice:

   .Sender = "servizio...quello che vuoi"

sarebbe?
Inoltre

codice:

Flds(cdoSMTPServer) = "smtp.aruba.it"

è verò lo spazio web di quel sito è su aruba perciò lo lascio uguale o cambio qualcosa?

Grazie 2000!!

Discussione: problema invio mail da web [emergenza assoluta!]

Strumenti discussione

Ricerca discussione

Visualizza

problema invio mail da web [emergenza assoluta!]

Permessi di invio