Inviare e-mail da VBScript

Di seguito una funzione di come inviare e-mail da VBScript

 

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort = 2
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
Both comments and pings are currently closed.

Comments are closed.