Questo frammento di codice, permette di inviare in una pagina Asp tradizionale (VBscript) un email, tramite le funzionalità di CDO (dll del sistema Windows). Si fa presente che la dichiarazione e valorizzazione di alcune variabili è stata omessa (ma è facilmente deducibile).
'oggetto per l'invio dell'email
Dim
CDOMsg'oggetto per la configurazione
Dim
CDOConf'oggetto per i campi di configurazione
Dim
Flds'testo html da invniare via email
Dim
strHTML'parametro di sendusing
Const
cdoSendUsingPort = 2set
CDOMsg = CreateObject("CDO.Message")set
CDOConf = CreateObject("CDO.Configuration")Set
Flds = CDOConf.Fields'imposto i parametri del web server (sistemare per la lettura del registro di windows
With Flds
.Item(
"http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort' parametri mail server.
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserver") = Mail_Server.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'autenticazione
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1.Item(
"http://schemas.microsoft.com/cdo/configuration/sendusername") = User_Email.Item(
"http://schemas.microsoft.com/cdo/configuration/sendpassword") = PSW_Email.Update
End With
'imposto il percorso del file
PathFile = Server.MapPath(
".") & "\CartellaFile\MioFile.doc"' Imposto il testo
strHTML =
"<HTML>"strHTML = strHTML &
"<HEAD>"strHTML = strHTML &
"<BODY>"strHTML = strHTML &
"<b> testo </b></br>"strHTML = strHTML &
"</BODY>"strHTML = strHTML &
"</HTML>"' Invio
With
CDOMsgSet .Configuration = CDOConf
'destinatario.
.To = EmailDestinatari
'Mittente
.From = EmailMittente
'oggetto
.Subject =
"oggetto"'testo html
.HTMLBody = strHTML
'allego il file appena generato
.AddAttachment PathFile
.Send
End With
'cancello le variabili
Set
CDOMsg = NothingSet
CDOConf = NothingSet
Flds = Nothing
Post
Le opere pubblicate in questo blog sono sotto la licenza Creative Commons. Attribuzione- No commerciale e no derivate.
Nessun commento:
Posta un commento