VBA pour envoi mail, problème avec signature
Bonjour,
J'ai le code pour envoyer automatiquement des mails:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub ess()
On Error GoTo 1
Dim appmail As Outlook.Application
Dim mail As Outlook.MailItem
Set appmail = CreateObject("outlook.application")
Set mail = appmail.CreateItem(olMailItem)
With mail
.Subject = "Essai du texte de l'objet"
.Body = "Bonjour, ceci est un essai"
.To = Range("G1") 'Destination : adresse mail
.Send 'Envoie le message
End With
Exit Sub
1 Range("D1") = "Une erreur est intervenu lors de l' envoie du message"
End Sub |
Je vais faire un mailing, je vais donc boucler sur la colonne G pour envoyer, 1 par 1 le mail.
Par contre, j'ai une signature électronique, avec une petite animation, et je n'arrive pas à l'insérer à la fin du mail....de même je ne connais pas l'instruction pour mettre l'expéditeur...j'ai essayé un
Code:
. From = "monadresse@mail"
mais ça n'a pas fonctionné.....
Une aide ?
Merci,
