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 = 2
set 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 CDOMsg
Set .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 = Nothing
Set CDOConf = Nothing
Set 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