Bonjour,
Pourriez-vous m'apporter votre aide ? J'ai cherché une réponse dans les forums mais je n'ai pas trouvé (ou mal cherché). J'ai un fichier dans lequel des personnes s'inscrivent à des formations.Je souhaiterais que lorsque la personne s'est inscrite à une formation et qu'elle a enregistré puis fermé le fichier, un mail me soit envoyé. Comment indiquer dans le mail le nom de la personne et la date de la formation qui se trouve dans des colonnes. Peut-on également incrémenter un fichier ''bloc-Note'' à chaque inscription avec le nom des inscrits ?
Je voulais partir sur une private sub dans ThisWorkbook comme suit :
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
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
 
Dim ObjOutlook As Outlook.Application
Dim oBjMail
 
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
      With oBjMail
        .To = "xxxxx@xxxxx.com"
        .Subject = "Nouvelle inscription à une formation"
        .Body = "Monsieur xxxx s'est inscrit à la formation xxxxx du xxxxx"
        .Display
        .Send
    End With
    ObjOutlook.Quit
 
End Sub
Merci
MichaSarah