Bonjour,
La macro consiste à aller chercher mon groupe de contacts "publi" et d'envoyer un mail à chacun de ces contacts avec le même corps de mail, mais une PJ Excel différente (listing personnalisé)
Le chemin des fichiers doit être renseigné pour chaque contact dans "adresse professionnelle" tel c:\user\bonhomme\bureau"
Cordialement,
Jabenj
La macro consiste à aller chercher mon groupe de contacts "publi" et d'envoyer un mail à chacun de ces contacts avec le même corps de mail, mais une PJ Excel différente (listing personnalisé)
Le chemin des fichiers doit être renseigné pour chaque contact dans "adresse professionnelle" tel c:\user\bonhomme\bureau"
Code:
Sub EnvoiPubli()
Dim olApp As Outlook.Application
Dim objDosContact As Outlook.MAPIFolder
Dim objContact As Outlook.ContactItem
Dim Contact As Outlook.ContactItem
Set olApp = New Outlook.Application
Set objDosContact = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Folders("Publi")
' Pour chaque contact du dossier Publi
For Each Contact In objDosContact.Items
'Pour débuguer on peut afficher l'adresse et la ville
'MsgBox (Contact.Email1Address)
'MsgBox (Contact.BusinessAddressCity)
'MsgBox (Contact.CompanyName)
'Création du mail
Set MyMail = olApp.CreateItem(olMailItem)
'AJOUT BENJ choix de l'adresse d'envoi (champs "de")
MyMail.SentOnBehalfOfName = "polegestion@59.fr"
'Adresse de l'expéditeur dans le champs adresse mail
MyMail.To = Contact.Email1Address
'Sujet : ce qu'on veut
MyMail.Subject = "Publipostage Listing des bénéficiairesr pour " & Contact.CompanyName
'Corps du message
MyMail.BodyFormat = olFormatHTML
MyMail.HTMLBody = "<font size=3 FACE=Calibri> <html><body> Bonjour, <br> <br> " & _
" Cordialement,<br><br> " & _
"Le sec.fr</i></body><HTML>"
'Le fichier joint, on va le chercher dans le champs ville
MyMail.Attachments.Add (Contact.BusinessAddressCity)
'On prepare l'envoi
MyMail.Display
'on envoie automatiquement
'MyMail.Send
On Error Resume Next
If Err.Number <> 0 Then
MsgBox ("Erreur pour :" & Contact.Email1Address)
Else
'On envoie
MyMail.Display
End If
Next Contact
End SubCordialement,
Jabenj
Dernière édition:
