By 18 Giugno 2014

Invio di una E-mail Autenticata via CDO

Si potrebbe avere la necessità di generare su un server WEB un messaggio e-mail che però non debba essere spedito da “localhost” ma da un server Mail (standard). Questo server potrebbe non permettere il relay e richiedere un’autenticazione.

Questo script invia un messaggio autenticandosi sul server specificato:

Set link = Server.CreateObject(“CDO.Message”)
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/smtpserver”) =”MIOSERVER”
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/smtpusessl”) = False
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/sendusername”) = “Username”
link.Configuration.Fields.Item (“https://schemas.microsoft.com/cdo/configuration/sendpassword”) =”Password”
link.Configuration.Fields.Update

link.From = invioDa
link.To = invioDa
link.Bcc = lista
link.Subject = “OGGETTO”
link.HTMLBody = “This is a message PROVA from your web server”

link.Send
Set link = Nothing

Posted in: Asp Classic

About the Author:

shared on wplocker.com