1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub Command239_Click()
Dim objOutlook As Object, olmail As Object, objOutlookMsg As Object, DossierPJ As String 'Ajout car message d'erreur variable non définie
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
DossierPJ = CurrentProject.Path & "\_P.csv"
AttacherPJ objOutlookMsg, DossierPJ
With objOutlookMsg
.To = EmailsDestinataires("Destinataires", "Mail", "To")
.Cc = EmailsDestinataires("Destinataires", "Mail", "Cc")
.Subject = "Files for xxx"
.Body = "Please find attached the files for xxx"
.display
End With
End Sub |
Partager