Invio NewsLetters

[wegawhite]

Solo la parte per invio CDOSYS:

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)            = "nome.tuodominio"
	.Item(cdoSMTPServerPort)        = 25
	.Item(cdoSMTPConnectionTimeout) = 10
	.Update
End With

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

With objMessage
        .To       = "email destinatario"
        .From    = "Email mittente"
        .Cc       = "Email copia conoscenza"
	.BCc      = "Email copia conoscenza nascosta"
	.Subject  = "ciao"
	.HtmlBody = "messaggio"
	.Send
End With

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