thomasdu40
XLDnaute Occasionnel
Bonjour,
Mon souci : j'ai un formulaire qui est complété par des personnes et dès que les personnes le complétent , j'aimerai que ces personnes puissent l'envoyer par mail à une autre personne définie dans la macro et que cette autre personne le reçoive COMPLETE.
Avec le code ci-dessous il est reçu mais vide. Pourquoi ?
Mon souci : j'ai un formulaire qui est complété par des personnes et dès que les personnes le complétent , j'aimerai que ces personnes puissent l'envoyer par mail à une autre personne définie dans la macro et que cette autre personne le reçoive COMPLETE.
Avec le code ci-dessous il est reçu mais vide. Pourquoi ?
Code:
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
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 = "toto@test.fr;"
.CC = ""
.BCC = ""
.Subject = "Ouverture d'une nouvelle Fiche d'Action de Progrès"
.Body = "Bonjour, Vous trouverez ci-joint la Fiche d'Action de Progrès. Cordialement."
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Dernière édition: