Discussion :

[thomasdu40]

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 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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," & Chr(13) & "Vous trouverez ci-joint la Fiche d'Action de Progrès." & Chr(13) & "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

[Godzestla]

Bonjour,
as-tu pensé à sauver le workbook avant le send ?

[melfast]

bonsoir thomas, le forum

je me permets de te contacter car je veux faire exactement la même chose que toi pour une fiche de demande d'action mais je suis bloquée :
j'ai mon usf dans mon classeur j'arrive à envoyer le mail mais soit avec le classeur en PJ ou au mieux la feuille active
en aucun cas je n'arrive à envoyer le formulaire même vide.
pur info , je transfère mes infos saisies dans la feuille excel avant l'envoi du mail afin de les sauvegarder.

as tu avancé sur ce code?
merci d'avance