Microsoft 365 Publipostage mail (relevés individuels)

[angonino]

Bonjour,

Je souhaiterais automatiser l'envoi d'un mail avec en pièce jointe le relevé des impayés du destinataire ou dans le corps du mail si c'est plus facile.
Comment puis je procéder ?

J'ai réussi à reconstituer en publipostage sur word le relevé pour chacun de nos clients mais comment arriver à générer automatiquement ce mail avec leur propre adresse mail.
Y a t'il une astuce ou des pistes à me proposer ?

J'espère que vous pourrez m'aider et que je pourrais comprendre surtout.
Mes connaissances informatiques sont quand même limités mais je me soigne...

Merci

 

[cytise95]

Bonjour,
J'utilise cette macro pour créer ma liste de mails, cependant il ne permet que mettre les adresses mail des destinataires sans joindre de pièce jointe.

'Mails pour liste Contacts
Sub ContactsEAFD()
'myDearFriend! - www.mdf-xlpages.com
Dim Plage As Range, R As Range
Dim ListeMails As String

'Collecte les cellules contenant une croix en colonne (L) 'ou autre colonne contenant les croix)
Set Plage = Range("l2:l75").SpecialCells(xlCellTypeConstants, 2)
'Pour chaque cellule collectée
For Each R In Plage
'On récupère l'adresse mail dans la colonne précédente(K) ou autre colonne contenant les adresse mails dans ce cas modifier le '-1) ci dessous par le Nb de colonne décalées)
ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
Next R
'Envoi via OUTLOOK ---> A VERIFIER
ActiveWorkbook.FollowHyperlink "mailto:" & ListeMails
Range("K77").Select
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Range("M77").Select
End Sub

pour moi cela fonctionne bien, mais si cela ne correspond pas a votre attente; dommage.