Mailing parrainage

Bonjour Dan, le forum,

Je fais des mailings en cette période de recherche de parrainage et j'ai à disposition un fichier excel qui a les emails en colonne Z, les noms des maires en colonne V, et le genre (M/F) du maire en colonne X. Le message est toujours le même, sauf qu'il doit nommer les maires à chaque fois Mr/Mme X.

Il doit intégrer la signature du parti. Il n'y a pas de pièce jointe. J'utilise outlook.

J'ai trouvé ce code fait par Dan dans un message, pourriez-vous l'adapter ?

Merci

Fronck

Essayez plutôt votre code mail comme ceci :

Sub EnvoiMail()
Dim listedest()
Dim i As Long
Dim dest
Dim oMsgApp As Outlook.Application
Dim oMsg As Outlook.MailItem
Dim slistedest As String, sFichier As String

sFichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If sFichier = "" Then
  MsgBox "Aucun fichier sélectionné, Opération annulée"
  Exit Sub
End If

Set oMsgApp = New Outlook.Application

listedest() = Range("TBase[Contact Mail]")
slistedest = ""

For i = LBound(listedest(), 1) To UBound(listedest(), 1)
    dest = Range("TBase[Contact Mail]").Item(i)
    If dest <> "" Then slistedest = dest & ";" & slistedest
Next i

Set oMsg = oMsgApp.CreateItem(olMailItem)

With oMsg
  '.To = votre adresse mail
  .CCi = slistedest
  .Attachments.Add sFichier
  .Subject = "Fichier de la semaine"
  .Body = "Veuillez trouver ci-joint le fichier de la semaine." & Chr(10) & Chr(13) & "Bonne journée"
  .Send 'A noter qu'il serait peut être plus judicieux de remplacer SEND par DISPLAY. Cela permet de vérifier que tout est ok dans votre mailing.
End With

oMsgApp.Quit
Set oMsgApp = Nothing
Set oMsg = Nothing
MsgBox "Mail envoyé"

End Sub