envoi mails multiples avec pièces jointes différentes Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
roandjepa
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 mars 2015
Version d'Excel : 2007

Message par roandjepa » 8 mars 2015, 17:17

Bonjour,

malgré de multiple recherches, je n'arrive pas à trouver de solution à mon problème.

Je suis amené à envoyer un mails à 700 destinataires différents avec en pièce jointe, un fichier PDF propre à chaque destinataire.
Cette manipulation me prenant une journée, je souhaiterais automatiser cela.
Le lien entre les différents destinataire et leur fichier propre, est fait.
actuellement, j'ai les adresses mail en colonne A, et les liens vers les pièces jointes en colonne B.

Pouvez-vous, s'il vous plait, m'indiquer la marche à suivre ?

D'avance, merci.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'154
Appréciations reçues : 376
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 8 mars 2015, 17:31

bonjour,


solution qui se trouve dans la première suggestion liée à ton titre de message.
Sub Envoi_mail()

    Set OutApp = CreateObject("Outlook.Application")
    
    For Each cel In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
       fc = cel(1, 2).Value

        Set objmessage = OutApp.CreateItem(0)
        With objmessage
            .Subject = "le sujet"    'Sujet
           .To = cel.Value    'Email du destinataire doit-être correct ici
           .Body = "Bonjour" & Chr(10) & "Ci-joint, le fichier" & Chr(10) & Chr(10)
            .Attachments.Add fc
            '.Send
            .display 'remplacer par .send pour envoyer message
        End With
        Set objmessage = Nothing

    Next
End Sub
r
roandjepa
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 8 mars 2015
Version d'Excel : 2007

Message par roandjepa » 8 mars 2015, 18:14

merci beaucoup H2so4.

mon problème semble résolu. :D
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message