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.