Dim Flds
Dim strHTML
Dim smtpserver
Const cdoSendUsingPort = 2
set ObjMail = CreateObject("CDO.Message")
set objConfig = CreateObject("CDO.Configuration")
Set objConfig = CreateObject("CDO.Configuration")
Set Flds = objConfig.Fields
' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP
With Flds
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nomesito.it"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
Flds.Update
End With
With ObjMail
' applico i settaggi
Set ObjMail.Configuration = objConfig
objMail.From = cstr(from)
objMail.To = cstr(toadress)
objMail.Subject = cstr(subject)
objMail.TextBody = cstr(body)
objMail.Send
End With
aspbbEmail = true
' Pulizia delle variabili
Set ObjMail = Nothing
Set objConfig = Nothing
Set Flds = Nothing