1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Sub envoiClasseur()
'Identification d'Outlook comme client de messagerie"
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.CreateItem(0)
'Destinataires du mail'
MonMessage.to = "adresse mail"
'MonMessage.to = "adresse mail"'
'Sujet du mail'
MonMessage = "Sacs de granuler"
'Corps du mail'
'Chr(10) & Chr(13)= saut de ligne"
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
'Chr indiquent des sauts de lignes'
contenu = contenu & "Attention il ne reste que 5 sacs de Pellet" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & " "
MonMessage.body = contenu
'envoi du message'
MonMessage.send
'réinitalisation de la messagerie'
Set MaMessagerie = Nothing
'Boite de dialogue"
MsgBox "Votre message a bien été envoyé"
End Sub |
Partager