Bonjour,

J'ai le code pour envoyer automatiquement des mails:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
. From = "monadresse@mail"
mais ça n'a pas fonctionné.....

Une aide ?

Merci,