Pièce jointe dans envoi mel
Bonjour,
je voudrais inclure dans la macro envoi mél, une pièce jointe MaPJ
MaPJ = (ThisWorkbook.Path & "\Bons\Commune\Bons\Bon transport.pdf")
Qu'elle est la syntaxe exacte dans la formule :
.Attachments.Add " & MaPJ & "
pour ajouter la pièce joint
D'avance merci
Partie de la macro
On Error GoTo message1 ' En cas d'adresse mail éronnée renvoi sur message 1
'objet du mail pour aidant '
sujet = "RENDEZ - VOUS"
objet = "--------------------SERVICE DE COVOITURAGE--------------------" & "<br>" & "<br>" & "Confirmation de rendez-vous pour le : " & Range("A3") & " " & Range("B3") & " à " & Range("C3") & "<br>" & " Personne à emmener : " & Range("G3") & "<br>" & "Adresse : " & Range("J3") & "<br>" & " Téléphone : " & "0" & Range("H3") & "<br>" & "Mobile : " & "0" & Range("H4") & "<br>" & " Pour l'emmener à :" & Range("K3") & "<br>" & " Lieu du rendez-vous : " & Range("L3") & "<br>" & "<br>" & Range("A6") & "<br>" & Range("A7") & "<br>" & Range("A8")
'corps du mail
strbody = "<HTML>"
strbody = strbody & "<HEAD>"
strbody = strbody & "<BODY>"
'lien hypertext
'adresse mail destinataire
adresse = Range("F3")
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMail = OutlookApp.createitem(0)
With OutlookMail
.Subject = sujet 'sujet du mail
.To = adresse 'adresse mail destinataire
'.Attachments.Add MaPJ
.htmlBody = objet
.Attachments.Add " & MaPJ &"
.send 'on envoie le mail créé'
End With
MsgBox " MEL DE CONFRMATION ENVOYE A :" & vbCrLf & "" & vbCrLf & " " & noma & " ", , " ENTREGISTREMENT RENDEZ-VOUS"
End If
bonjour,
essaie ceci
MaPJ = ThisWorkbook.Path & "\Bons\Commune\Bons\Bon transport.pdf"
.Attachments.Add MaPJBonjour,
merci beaucoup pour la solution.
Super !!
Bonne fin et début d'année
Bien amicalement