Bonjour,
Voila mon problème, je souhaite via une macro en VBA imprimer un document en PDF et l'envoyer par mail (Lotus Notes) en PJ.
Je réussi à envoyer le tableau en PJ sans impression PDF, je réussis l'envoi via Outlook, par contre certains poste ou le fichier doit être utilisé est sous Lotus Notes. Et la est mon probleme, impossible de trouver le bon code.
J'ai essayer la fonction Sendmail, mais elle ne me propose pas l'ajout de PJ.
Voila actuellement mon code :
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Set olApp = CreateObject("Outlook.application") ' <---- On appel Outlook pour envoyer le mail Set mail = olApp.CreateItem(olMailItem) DestinataireBALF = Range("B27") ' <-- Bal TitreDuMail = "Analyse Post intervention " & Range("B18") & " Semaine " & Range("B20") If DestinataireBALF = "" Then ' <--- Si la BAL de reception est vide la procédure s'arrête AlerteMail = MsgBox("Vous n'avez pas sélectionné une BAL ", vbCritical, "Information obligatoire") Else With mail .to = DestinataireBALF .Subject = TitreDuMail .attachments.Add (FichierPDF) .Send End With End If
Ce code fonctionne parfaitement, mais avec Outlook, mais impossible avec un autre client de messagerie.
Si quelqu'un a une solution
Cordialement.
Partager