cdosys help!

[ThePenguin]

salve ragazzi,

qualcuno potrebbe indicarmi un codice valido x l'invio di mail con cdosys... se potessi indicare l'isp probabilmente metterei qualcuno che si appoggia al mio stesso di agevolarmi ma se lo cito rischio di fare un macello....

[Roby_72]

http://www.weppos.com/asp/script/categoria_email.asp
Con CDOSYS l'ISP potrebbe essere determinante...

Roby

[Miguel Rivero]

Personalmente uso questo, senza problemi:

Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost" 'qui ci devi mettere ISP
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

messaggio = messaggio & VBcrlf & "<font face=""Verdana"" size=""1"">[b]Messaggio 

"

With objMessage
 .To       = "indirizzo@destinatario.com
 .From     = "indirizzo@mittente.com"
 .BCc      = "indirizzo@copia-conoscenza.com"
 .Subject  = "Oggetto msg "
 .HtmlBody = messaggio
 .Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing