Bonsoir,
Occupé à créer une application qui va envoyer des mails via Outlook, je sèche lamentablement pour le remplissage de 3 champs Outlook.
Ci-dessous un printscreen traduisant mon besoin d'information:
Pièce jointe 182384
Mon code pour remplir les autres champs est le suivant:
Donc, ma demande est: Que faut-il mettre pour remplacer les ???... et obtenir ce qui est défini en vert dans mon code ?
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 ' Composition et envoi du mail via Outlook Set obj = CreateObject("Outlook.application") Set objItem = obj.CreateItem(olAppointmentItem) With objItem .MeetingStatus = olMeeting ' Type réunion .Recipients.Add Me.Email ' Ajout destinataire '.???..... Pour définir le lieu de l'événement '.???..... Pour définir la date de début de l'événement '.???..... Pour définir la date de fin de l'événement .Start = Debut ' Début .Duration = Duree ' Durée .Subject = Sujet ' Sujet .Body = Message ' Texte .ReminderSet = True ' rappel .ReminderMinutesBeforeStart = 10 ' rappel x minutes avant .BusyStatus = olOutOfOffice ' absent du bureau .Display ' affichage pour validation .Save '.Send End With
Un grand merci d'avance :-)
Partager