cdosys e postcardmentor

[pb6771]

cè qualcuno che utilizza postcarmentor attraverso il cdosys?..lo script originale per l'invio della cartolina utilizza il cdont..ho provato a modificarlo per il cdosys ma non mi funziona..se qualcuno è riuscito a trasformarlo e a farlo funzionare e mi potrebbe aiutare,ne sarei grato..ciao e buonagiornata a tutti

[[trodat]]

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

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

With objMessage
	.To       = "email@email.it"
	.From     = "email@email.it"
	.BCc      = "email@email.it"
	.Subject  = "Messaggio Automatico"
	.HtmlBody = "messaggio"
	.Send
End With

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