v1.2.5
 

Liens

Exemples de code

Les exemples de code suivants démontrent la facilité avec laquelle il est possible d'envoyer un e-mail en utilisant MailMill COM.

Le code est écrit en VBScript mais cela peut se faire en utilisant d'autres langages de programmation.

Message texte simple 
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "Paul <paul@emilltest.com>"
oMail.Tos.Add "Denis <denis@emilltest.com>"
oMail.Subject = "Un e-mail très simple"
oMail.TextBody = "Bonjour tout le monde !"
oMail.Server = "smtp.mondomaine.com"
oMail.Send
Set oMail = Nothing
Message HTML avec une image incorporée 
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "Lisa <lisa@emilltest.com>"
oMail.Tos.Add "Bernard <bernard@emilltest.com>"
oMail.Subject = "Un e-mail HTML qui contient une image"
oMail.HtmlBody = "<html><body>Bonjour tout le <img src=c:\images\monde.gif></body></html>"
oMail.TextBody = "Bonjour tout le monde !" 'Texte alternatif optionnel
oMail.Server = "smtp.mondomaine.com"
oMail.Send
Set oMail = Nothing
'L''image locale sera automatiquement incorporée dans le MIME.
Message texte avec une pièce jointe statique 
Dim oMail
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "Paul <paul@emilltest.com>"
oMail.Tos.Add "Denis <denis@emilltest.com>"
oMail.Subject = "Un e-mail avec une pièce jointe"
oMail.TextBody = "Veuillez trouver votre facture en pièce jointe"
oMail.Attachments.Add "c:\factures\facture.pdf"
oMail.Server = "smtp.mondomaine.com"
oMail.Send
Set oMail = Nothing
Message texte avec une pièce jointe dynamique 
Dim oMail, oAttach
Set oMail = CreateObject("MailMill.Mail")
oMail.From = "Paul <paul@emilltest.com>"
oMail.Tos.Add "Caroline <caroline@emilltest.com>"
oMail.Subject = "Un e-mail avec une pièce jointe"
oMail.TextBody = "Veuillez trouver le rapport de la commission mensuel"
Set oAttach = CreateObject("MailMill.Attachment")
oAttach.Name = Year() & "-" & Month() & "-comission.txt"
oAttach.Type = "text/plain"
oAttach.Data = "Ce mois-ci vous recevrez une commission de 7 589,78 $." & 
    vbCrLf & "Bon travail."
oMail.Attachments.Add oAttach
oMail.Server = "smtp.mondomaine.com"
oMail.Send
Set oMail = Nothing
Set oAttach = Nothing