XL 2010 Publipostage avec pièce jointe personalisé

  • Initiateur de la discussion Initiateur de la discussion JR.31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JR.31

XLDnaute Occasionnel
Bonjour a toutes et tous,

Malgré mes recherches je ne trouve pas ce que je souhaiterais.

J'aimerais envoyer en publipostage un mail a chaque salariés avec en pièce jointe une attestation personnalisé a chaque personnes.

Peut être en vba sur Word et Outlook ou autre chose.......

Merci de votre aide ou de vos idées.

JR.31
 
Re

Et une autre piste (Excel+Outlook)
Ci-dessous un exemple basique
1) Lancer d'abord la macro creer_TEST
Ouvrer Outlook et le mettre en réduction dans la barre des tâches
2) lancer la macro Test_Emailing
VB:
Sub creer_TEST()
[A1:D1] = Array("Email", "Objet", "Message", "Pièce jointe") ' juste pour l'exemple
[A2:A10] = "=""nom""&ROW()-1&"".prenom@domain""&ROW()-1&"".""&CHOOSE(MOD(ROW()-1,3)+1,""fr"",""org"",""com"")"
[A2:A10] = [A2:A10].Value
[B2] = "Objet1": [B2].AutoFill [B2:B10], xlFillDefault
[C2] = "Ceci est un Message1": [C2].AutoFill Destination:=Range("C2:C10"), Type:=xlFillDefault
[D2:D10] = "C:\Windows\system.ini"
End Sub

Sub Test_Emailing()
'Dans Excel, ne pas oublier d'activer Référence: Outlook
'->Outils/Références/ Microsoft Outlook XX.0 Object Library
'NB: XX: selon version Excel, on aura 12.0 ou 15.0 etc...
Dim outApp As Outlook.Application, outMail As Outlook.MailItem
Dim desti$, objet$, pijo$, mess$
Dim plg As Range, ce As Range
Set plg = Range([A2], Cells(Rows.Count, "A").End(3))
For Each ce In plg
    desti = ce.Value2
    objet = ce.Offset(, 1).Value2
    mess = ce.Offset(, 2).Value2
    pijo = ce.Offset(, 3).Value2
    On Error Resume Next
    Set outMail = outApp.CreateItem(0)
        With outMail
            .To = desti
            .Subject = objet
            .Body = mess
            .Attachments.Add pijo
            .display
        End With
    On Error GoTo 0
    Set outMail = Nothing
Next ce
End Sub
NB: J'ai mis sytem.ini comme PJ uniquement pour test
Mais vous pouvez faire le test, en remplaçant par un chemin valide qui pointe sur un fichier de votre choix.
(Il faut juste veiller à ce que le fichier existe et que le nom du chemin et du fichier soit correctement orthographié)

Tel que le code est écrit, cela devrait créer dans Outlook 9 mails distincts avec chacun la PJ renseignée en colonne D.
(Les mails sont créés mais pas envoyés)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
5
Affichages
165
Réponses
10
Affichages
938
Réponses
3
Affichages
609
Retour