[VBA] Envoi mail avec PJ sans Outlook
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:
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.
