Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Problemi invio mail con CDO

217 views
Skip to first unread message

Stefano.pass

unread,
Dec 9, 2010, 9:48:59 AM12/9/10
to
Ciao a tutti, sto cercando di inviare una mail con il seguente codice,
ma purtroppo non ricevo nessun errore ma la mail non arriva. Dove ho
sbagliato?

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
Const cdoNTLM = 2 'NTLM
'Delivery Status Notifications
Const cdoDSNDefault = 0 'None
Const cdoDSNNever = 1 'None
Const cdoDSNFailure = 2 'Failure
Const cdoDSNSuccess = 4 'Success
Const cdoDSNDelay = 8 'Delay
Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay

Dim objMsg As Object
Dim objConf As Object
Dim objFlds As Object
Dim strBody As String

Set objMsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")

Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.server.com"
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/
sendusername") = "cas...@posta.it"
.Item("http://schemas.microsoft.com/cdo/configuration/
sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")
= False
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/
sendemailaddress") = "cas...@posta.it"
.Update
End With

With objMsg
Set .Configuration = objConf
.To = mailto
.From = """nome"" <cas...@posta.it>"
.Subject = "prova"
.HTMLBody = "prova"
If (mailnotification = True) Then
.Fields("urn:schemas:mailheader:disposition-notification-to")
= "cas...@posta.it"
.Fields("urn:schemas:mailheader:return-receipt-to") =
"cas...@posta.it"
End If

.DSNOptions = cdoDSNSuccessFailOrDelay
.Fields.Update
.Send
End With


Grazie!

Geppo

unread,
Dec 9, 2010, 2:23:28 PM12/9/10
to
?Ciao "Stefano.pass" <stefano.p...@gmail.com> ha scritto nel messaggio
news:ff7a40ee-478b-4e0c...@p11g2000vbn.googlegroups.com...


provato il codice e funziona, ti ho anche inviato una mail di prova se
l'indirizzo nell'intestazione è corretto.

> Grazie!


--
Ciao
Geppo

Stefano.pass

unread,
Dec 9, 2010, 2:57:54 PM12/9/10
to
Ciao Geppo, ma lo stesso a me non va quindi temo che sia un problema
di autenticazione al server... posso interrogare tramite telnet il
server smtp per sapere che ne fa della mail?
Grazie!
Stefano

Geppo

unread,
Dec 10, 2010, 3:30:13 AM12/10/10
to
?Ciao "Stefano.pass" <stefano.p...@gmail.com> ha scritto nel messaggio
news:63b3f567-7db2-4ea7...@g19g2000yqg.googlegroups.com...

> Ciao Geppo, ma lo stesso a me non va quindi temo che sia un problema
> di autenticazione al server... posso interrogare tramite telnet il
> server smtp per sapere che ne fa della mail?

Non so se è possibile utilizzare telent per fare quello che dici, pero' se
mi scrivi qual'è l'indirizzo del server smtp che utilizzi faccio qualche
prova d'invio anch'io.

> Grazie!
> Stefano

--
Ciao
Geppo

0 new messages