salve ragazzi,
io ho questo codice
il codice di invio reso inattivo era una procedura presa da qualche parte, non ricordo, ma da errore mentre quello che utilizzo l'ho preso dal sito di weppos eppure mi da l'errore:codice:'Dim miaMail, strOggMail,strBodyMail 'DIM iMsg, Flds, iConf 'strOggMail = "Nuovo Contatto da Lezionidisax.it" 'Corpo del messaggio 'strBodyMail = "" 'strBodyMail = "<html><head><title>Lezionidisax.it - Nuovo Contatto</title></head><body bgcolor=#24201F><Table width=800 cellpadding=0 cellspacing=0><tr>" 'strBodyMail = strBodyMail & "<td valign=top><center><Table width=800 height=80 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" 'strBodyMail = strBodyMail & "<td width=400 valign=middle><img src=titolo.jpg border=0></td><td width=390 valign=top></td></tr></table>" 'strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top>" 'strBodyMail = strBodyMail & "<font size=2 color=#FFFFFF face=Verdana>" & Mittente & " " & Localita & "-" & Prov & " " 'strBodyMail = strBodyMail & "Tel." & telefono & "/Cell." & Cell & " E-Mail" & Mail & " </font></td><td width=10 valign=top></td></tr></table>" 'strBodyMail = strBodyMail & "<Table width=800 height=15 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0>" 'strBodyMail = strBodyMail & "<tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>Esperienze Musicali:" & Esperienza & "</font></td>" 'strBodyMail = strBodyMail & "<td width=10 valign=top></td></tr></table><Table width=800 height=30 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table>" 'strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>" 'strBodyMail = strBodyMail & "Oggetto:" & Oggetto & "</font></td><td width=10 valign=top></td></tr></table><Table width=800 height=5 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF>" 'strBodyMail = strBodyMail & "<tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" 'strBodyMail = strBodyMail & "<td width=780 valign=top><p align=justify><font size=2 color=#FFFFFF face=Verdana>" & Messaggio & "</font></p></td><td width=10 valign=top></td></tr></table></center>" 'strBodyMail = strBodyMail & "</td></tr></Table></body></html>" 'Set iMsg = CreateObject("CDO.Message") 'Set iConf = CreateObject("CDO.Configuration") 'Set Flds = iConf.Fields 'Flds(cdoSendUsingMethod) = cdoSendUsingPort 'Flds(cdoSMTPServer) = "roma4.websolutions.it" 'Flds(cdoSMTPServerPort) = 25 'Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 'Flds.Update 'With iMsg ' Set .Configuration = iConf ' .To = "xxxxxxxxxxxxx@tin.it" ' .From = EMail ' .Sender = "servizio...quello che vuoi" ' .Subject = strOggMail ' .HtmlBody = strBodyMail ' .Send 'End With Dim objMail, objConfig, strOggMail, strBodyMail Set objMail = createObject("CDO.Message") Set objConfig = Server.createObject("CDO.Configuration") With objConfig .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "roma4.websolutions.it" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.update End With Set objMail.Configuration = objConfig objMail.From = EMail objMail.To = "xxxxxxxxx@tin.it" objMail.Subject = "Nuovo Contatto da Lezionidisax.it" objMail.Fields("urn:schemas:httpmail:importance").Value = 2 objMail.Fields.update() 'Corpo del messaggio strBodyMail = "" strBodyMail = "<html><head><title>Lezionidisax.it - Nuovo Contatto</title></head><body bgcolor=#24201F><Table width=800 cellpadding=0 cellspacing=0><tr>" strBodyMail = strBodyMail & "<td valign=top><center><Table width=800 height=80 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" strBodyMail = strBodyMail & "<td width=400 valign=middle><img src=titolo.jpg border=0></td><td width=390 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top>" strBodyMail = strBodyMail & "<font size=2 color=#FFFFFF face=Verdana>" & Mittente & " " & Localita & "-" & Prov & " " strBodyMail = strBodyMail & "Tel." & telefono & "/Cell." & Cell & " E-Mail" & Mail & " </font></td><td width=10 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 height=15 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0>" strBodyMail = strBodyMail & "<tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>Esperienze Musicali:" & Esperienza & "</font></td>" strBodyMail = strBodyMail & "<td width=10 valign=top></td></tr></table><Table width=800 height=30 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>" strBodyMail = strBodyMail & "Oggetto:" & Oggetto & "</font></td><td width=10 valign=top></td></tr></table><Table width=800 height=5 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF>" strBodyMail = strBodyMail & "<tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" strBodyMail = strBodyMail & "<td width=780 valign=top><p align=justify><font size=2 color=#FFFFFF face=Verdana>" & Messaggio & "</font></p></td><td width=10 valign=top></td></tr></table></center>" strBodyMail = strBodyMail & "</td></tr></Table></body></html>" objMail.HTMLBody = strBodyMail objMail.Send() <- linea 113 che mi da errore.... Set objMail = Nothing
CDO.Message.1 error '8004020d'
È necessario specificare almeno uno dei campi Da o Mittente. Impossibile trovare tali campi.
/inviomail.asp, line 113
che devo fare?
ci sto impazzendo
grazie mille!
Rispondi quotando