thomasdu43
XLDnaute Occasionnel
Bonjour,
j'ai récupérer cette macro sur le forum :
Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = Sheets("Recueil besoins").Range("L87").Value 'l'adresse
.CC = ""
.BCC = ""
.Subject = "Fichier Receuil des besoins à compléter" 'le titre du mail
.Body = "Merci de compléter le fichier" 'le corps du texte
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
qui fonctionne très bien mais comment faut-il la modifier pour que mail s'ouvre avant envoi pour me permettre d'y ajouter d'autres PJ?
Merci de votre aide.
Cdt.
j'ai récupérer cette macro sur le forum :
Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = Sheets("Recueil besoins").Range("L87").Value 'l'adresse
.CC = ""
.BCC = ""
.Subject = "Fichier Receuil des besoins à compléter" 'le titre du mail
.Body = "Merci de compléter le fichier" 'le corps du texte
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
qui fonctionne très bien mais comment faut-il la modifier pour que mail s'ouvre avant envoi pour me permettre d'y ajouter d'autres PJ?
Merci de votre aide.
Cdt.