Inviare una mail da VBScript

Visual Basic .NETCopia

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 = "sender@test4.it"	'mittente
	.To = "BO@test4.it"		'destinatari indirizzi separati da ';'
	'.Cc = strCc			'destinatari in copia conoscenza
	'.Bcc = strBcc			'destinatari in copia conoscenza nascosta

	.Subject = "Oggetto del messaggio"
	.HTMLBody = "Vedi <b>allegato</b>"
	'oppure TextBody per una mail in formato testo
	'.Textody = "ciao"

	'eventuali allegati
	'.AddAttachment("c:\test.txt")

	.Send()
End With

set objConf = nothing
set objMail = nothing