NEWSLETTER " EPPYNET.COM - Corso Linguaggio ASP, 2 lez. " del 22/02/2006

Spedire email con l'oggetto CDONTS.NewMail

In collaborazione con: DEVSPY.COM
Descrizione:

Funzione VBScript per spedire email con CDONTS.NewMail, supportato da ASP 2.0 in poi. Lo script supporta l'invio di email in formato HTML e consente l'inserimento di file allegati, attraverso l'oggetto Scripting.FileSystemObject.

Parametri
sFrom = indirizzo e-mail del mittente (stringa)
sTo = indirizzo e-mail del destinatario (stringa)
sSub = oggetto (stringa)
sBody = corpo della email (stringa)
iFrm = formato: 0 = HTML, 1 = TEXT (intero)
iPry = priorità: 0 = BASSA, 1 = NORMALE, 2 = ALTA (intero)
sFile = elenco dei file da allegare (stringa)
sURL = elenco delle immagini presenti nel testo della mail (stringa)
Uso:

Il metodo "AttachFile" allega file binari. Il metodo "AttachURL" allega un'immagine per l'inserimento nel corpo della mail, se formattata in HTML. La funzione restituisce True o False per indicare l'esito dell'invio.

Note:

ESEMPI DI UTILIZZO:

* Spedire una MAIL in formato TEXT con allegati 2 file ZIP allegati

SendMail("mittente@mail.it", "destinatario@mail.it", "Oggetto", "Testo", _
1, 1, "/public/zip/gif08.zip /public/zip/gif09.zip", "")

* Spedire una email in formato HTML con 2 immagini GIF allegate

SendMail("mittente@mail.it", "destinatario@mail.it", "Oggetto", _
"<HTML><BODY background='sfondo.gif'><IMG src='img.gif'></BODY></HTML>", _
0, 1, "", "/images/sfondo_welcome.gif /banners/468x60.gif")

Negli esempi proposti, i file allegati risiedono sul web server su cui gira lo script.

Codice:

<%
Function bSendMail(sFrom, sTo, sSub, sBody, iFrm, iPry, sFile, sURL)
On Error Resume Next

Dim objMail, objFile, arrFile, oneFile, imgName, j

Set objMail = Server.CreateObject("CDONTS.NewMail")

If (Err.Number = 0) Then

' Setta le proprietà principali
objMail.From = sFrom
objMail.To = sTo
objMail.Cc = "" ' indirizzi email "carbon copy"
objMail.Bcc = "" ' indirizzi email "blind carbon copy"
objMail.BodyFormat = iFrm
objMail.MailFormat = iFrm
objMail.Importance = iPry
objMail.Subject = sSub
objMail.Body = sBody

' Allega i FILE
Set objFile = CreateObject("Scripting.FileSystemObject")
' lo spazio è il separatore dei FILE nell'elenco
arrFile = Split(sFile, " ")
For j = 0 To uBound(arrFile)
' path del FILE da allegare
oneFile = Server.MapPath(arrFile(j))
If objFile.FileExists(oneFile) Then
' allega il FILE esistente
objMail.AttachFile oneFile
End If
Next

Set objFile = Nothing

' Allega le IMMAGINI da mostrare nel BODY
' (solo se la MAIL è in formato HTML)
If (iFrm = 0) Then
Set objFile = CreateObject("Sripting.FileSystemObject")
' lo spazio è il separatore delle IMMAGINI nell'elenco
arrFile = Split(sURL, " ")
For j = 0 To uBound(arrFile)
' path dell'IMMAGINE da allegare
oneFile = Server.MapPath(arrFile(j))
If objFile.FileExists(oneFile) Then
imgName = Right(oneFile, len(oneFile)-instrrev(oneFile,"\"))
' allega l'IMMAGINE esistente
objMail.AttachURL oneFile, imgName
End If
Next

Set objFile = Nothing
End If

' Spedisci la MAIL
objMail.Send

Set objMail = Nothing
bSendMail = True

Else
' Server non supporta oggetto CDONTS.NewMail
bSendMail = False
End If

End Function
%>

CORSO DI ASP
Parola segreta per scaricare la lezione: CORSOASP2
Per non intasare la tua casella di posta abbiamo riservato una pagina con accesso riservato per scaricare i file contenenti le lezioni. Accedi da qui:


Puoi scaricare la lezione del corso di Asp utilizzando i pulsanti in basso.

Scarica la lezione Indice del corso Contatta la redazione

Copyright EPPYNET.COM® 2000 All right reserved
Home | Privacy e Policy | Faq | Contatti
 
IL NOSTRO PARTNER

DevSpy.com : è un portale IT indipendente dedicato ai programmatori che sviluppano applicativi, componenti e servizi per i sistemi Microsoft Windows.

Ricevi questa newsletter perche' ti sei volontariamente iscritto ai servizi gratuiti di EPPYNET.COM.
I tuoi dati sono strettamente confidenziali e non verranno ceduti a terzi.
Per consultare il testo completo sulla privacy puoi visitare la sezione dedicata disponibile in home page.
Per modificare, cancellare i tuoi dati o iscriverti ad altre newsletter usa il pannello di controllo che trovi in Home Page.
Per accedere usa la tua email: subemail e la tua password: subpasscode
Se invece desideri cancellarti da questa lista clicca unsubscribelink