Invio mail (CDO)

VBScriptCopia

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoImportance = "urn:schemas:httpmail:importance"

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

With objConf.Fields
	.Item(cdoSendUsingMethod) = cdoSendUsingPort
	'se la mail non viene inviata, impostare l'SMTP del provider
	'che fornisce la connessione a internet, es: mail.tin.it
	.Item(cdoSMTPServer) = "localhost"
	.Update
End With
		
With objMail
	' Valore di priorità
	'objMail.Fields(cdoImportance).Value = 2
	'inserisce la richiesta di conferma di lettura a uno specifico destinatario
	'può non coincidere con il mittente
	'objMail.Fields("urn:schemas:mailheader:Disposition-Notification-To").Value = "<sender@test4.it>"
	'objMail.Fields.update() 	'va chiamato se si modifica l'header

	set .Configuration = objConf

	.From		= "mittente@dominio.it"
	.To			= "destinatario1@dom.it;destinatario2@dom.it"
	.Subject	= "Oggetto del messaggio"
	.HTMLBody = "Vedi <b>allegato</b>"
	'.Textody = "ciao"
	'.AddAttachment("c:\file.txt")	' eventuali allegati

	.Send()
End With

set objConf = nothing
set objMail = nothing