|
Exemples de codes source |
|
A travers ces exemples de codes source,
découvrez la facilité d'utilisation de MailMill COM pour l'envoi
d'email. Notez que le code est ici écrit en VBScript mais vous
pouvez très bien utiliser d'autres langages de programmation. |
|
Message texte simple |
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "John
<john@emilltest.com>"
oMail.Tos.Add "Brian
<brian@emilltest.com>"
oMail.Subject = "Un email simple"
oMail.TextBody = "Bonjour tout le monde!"
oMail.Server = "smtp.mydomain.tld"
oMail.Send
Set oMail = Nothing |
|
Message HTML avec des images incorporées
|
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "Lisa <lisa@emilltest.com>"
oMail.Tos.Add "Bernard
<bernard@emilltest.com>"
oMail.Subject = "Un mail HTML avec des images"
oMail.HtmlBody = "<html><body>Bonjour <img src=c:\images\world.gif></body></html>"
oMail.TextBody = "Bonjour
tout le monde!" '
texte alternatif
optionnel
oMail.Server = "smtp.mydomain.tld"
oMail.Send
Set oMail = Nothing
'
Les images locales seront automatiquement
intégrées dans le MIME. |
|
Message texte avec une pièce jointe statique
|
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "John <john@emilltest.com>"
oMail.Tos.Add "Brian
<brian@emilltest.com>"
oMail.Subject = "Un mail avec une pièce jointe"
oMail.TextBody = "Veuillez trouver ci-joint votre facture"
oMail.Attachments.Add "c:\invoices\invoice.pdf"
oMail.Server = "smtp.mydomain.tld"
oMail.Send
Set oMail = Nothing |
|
Message texte avec des pièces jointes dynamiques
|
Dim oMail, oAttach
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "John <john@emilltest.com>"
oMail.Tos.Add "Caroline
<caroline@emilltest.com>"
oMail.Subject = "Un
mail avec une pièce jointe"
oMail.TextBody = "Veuillez
trouver ci-joint le rapport mensuel des commissions"
Set oAttach = CreateObject("MailMill.Attachment")
oAttach.Name = Year() & "-" & Month() & "-comission.txt"
oAttach.Type = "text/plain"
oAttach.Data = "Ce mois vous recevez une commission de €7,589.78." & vbCrLf & "Continuez
ce bon travail"
oMail.Attachments.Add oAttach
oMail.Server = "smtp.mydomain.tld"
oMail.Send
Set oMail = Nothing
Set oAttach = Nothing |
