cdosys problemi di invio

**Certe Notti** · 11-03-2005, 22:40

salve ragazzi,

io ho questo codice

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

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:

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!

**mardok30** · 11-03-2005, 22:51

objMail.From = EMail

EMail è valorizzato?
Ti posto il codice che uso:

codice:

Set eMail = Server.CreateObject("CDO.Message") 
	With eMail 
		.From = "info@tin.it"
		.To =  "mail@tin.it"
		.Subject = "Prova"
		.TextBody = "ciao ciao" 
		.Send() 
	End With 
	Set eMail = Nothing

Fammi sapere

**Certe Notti** · 11-03-2005, 22:57

email valorizzato... :master:

sorry non capisco cosa intendi...

comeunque ho trovato un errore nel mio codice che ho prontamente risolto...

ora il codice è diventato questo:

[code]

<%
Mittente=Request("nome")
EMail= Request("mail")
Localita= Request("citta")
Provincia = Request("prov")
Telefono= Request("telefono")
Cellulare = Request("cell")
Esp = Request("suono")
Ogg= Request("oggetto")
Message= Request("Messaggio")

Flag=0
if (Mittente = "") or (EMail = "") or (Localita = "") or (Provincia = "") or (Telefono = "") or (Ogg = "") or (Message = "") Then
Flag=1
else
end if

If (Esp = "") Then
Esperienza = "Nessuna Esperienza"
else
Esperienza = Esp
end if

'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 = "xxxxxxxxxxxxxx@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 = "xxxxxxxx@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 & "-" & Provincia & "
"
strBodyMail = strBodyMail & "Tel." & telefono & "/Cell." & Cell & "
E-Mail" & EMail & "
</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()
Set objMail = Nothing

'controllo del flag e condizione
If (Flag=0) Then
Response.Redirect("invioavvenuto.asp")
else
Response.redirect("contatti.asp?Errore=" & flag)
end if

%>

e dopo aver rimediato all'errorino che ho trovato l'errore a questo punto è diventato:

error '8004020e'
/inviomail.asp, line 113

certo l'errore mi ricade sulla stessa riga, ma è diverso il codice dell'errore...

grazie mille!

**mardok30** · 11-03-2005, 23:09

Intendevo dire che quando fai EMail= Request("mail")
E-Mail contiene effettivamente il valore desiderato? cioè viene recuperato correttamente con il Request? per fare una prova scrivi response.write(EMail) e vedi cosa ti stampa

Comunque non ti sta bene il semplice codice che ti ho inviato? che è sicuramente funzionante
Dal codice dell'errore non riesco a capire nulla. :master:

**Certe Notti** · 11-03-2005, 23:20

ah ok ora ho capito cosa intendevi per valorizzare...

si la mail me la restituisce correttamente.... si che mi sta bene il codice che mi hai inviato solo che volevo capire perchè quello di weppos che per altro uso anche per il mio sito sul mio sito funziona mentre su questo, altro hosting ovviamente doveva delirare...

comquneu ora sembra andare... o meglio quando ho messo come mittente aa@aa.it mi dava errore mettendo aa@pippo.it è andato...

misteri del web

**Certe Notti** · 11-03-2005, 23:29

ragazzi vi rompo i suddetti ancora un attimo... per un problema diverso da quello del titolo.

Stavoilta parliamo del corpo della mail

voi vedete chje io scrivo del codice html e poi inserisco le variabili asp.

ok, ma messaggio è un messaggio con tanto di punti e ritorni a capo come posso fare per fare in modi che a mail ricevuta il messaggio si orduini con i relativi ritorni a capo dove serve come il testo inserito nella textarea del form?

Grazie mille

**djhell** · 11-03-2005, 23:47

fai un replace(strMail,VbCrLf,"
")

comunque io uso un altro codice per le email...
se vuoi te lo posto...

**djhell** · 11-03-2005, 23:48

questo perchè il ritorno accapo della textarea è memorizzato come vbcrlf, e devi sostituirlo.. quindi non strBody, ma strTextArea... o come l'hai chiamata

**Certe Notti** · 11-03-2005, 23:50

non rifiuterei mai un'alternativa...

per ora la mia soluzione sembra andare ma prima di dirlo la tengo in prova per qualche giorno, ti ringrazio comunque se mi posti il tuio così in laternativa se il test fosse negativo prendo e provo subilto il tuo codice.

a proposito per quanto riguarda i ritornio a capo del testo posso fare una roba del genere:

Messaggio = replace(strMail,VbCrLf,"
")

in odod da non inserire quel codice nel corpo del messaggio, ma da inserire soltanto la variabile?

Grazie

**djhell** · 12-03-2005, 00:06

quando passi la textarea, metti che si chiama 'corpoMSG'

quando lo ricavi con request.form("corpoMSG")

farai:

messaggioMail = replace(request.form("corpoMSG"),vbcrlf,"
")

ps: per rcordarti meglio vbcrlf, memorizza cosa vuol dire:

VisualBasic - CaRriage - Line Field

ritorno a capo e ritorno a inizio linea

ora cerco la mail e te la posto, cmq dipende da che sistema usa il server...

questa dovrebbe andare:

Sub sendEmail (a,oggetto,testo)

Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody

sTo = a
sFrom = "Tuo Nome, o nome SITO (indirizzo@email.it)"
'così il tizio vede il NOME e l'indirizzo nella parentesi solo se fa inoltra, na cosa professionale, isnomma

sSubject = oggetto
sTextBody = testo

Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
'objMail.TextBody = sTextBody
objMail.HTMLBody=sTextBody

'Send the email
objMail.Send

'Clean-up mail object
Set objMail = Nothing

if err.number = 0 then
outln "Si è verificato un errore durante l'invio della E-Mail!"
else
outln "Email Inviata"
end if

End Sub

includila dove preferisci e chiamala semplicemente così:

dest = "Indirizzo@email.it"
obj = "Prova invio email"
strMail = " ..... "

sendEmail dest,obj,strMail

ps: questa sub invia solo in HTML, se vuoi cambiare il metodo, devi mofdificare nella sub il commento...

da così:

'objMail.TextBody = sTextBody
objMail.HTMLBody=sTextBody

a csì:

objMail.TextBody = sTextBody
'objMail.HTMLBody=sTextBody

spero di essere stato utile!!

a presto!

daniele

Discussione: cdosys problemi di invio

Strumenti discussione

Ricerca discussione

Visualizza

cdosys problemi di invio

Permessi di invio