Discussion :

[Stodena]

Bonjour,

lorsqu'un partenaire extérieur m'envoie un RDV et que j'accepte ce dernier, cela crée automatiquement ce même RDV dans mon agenda personnel (google agenda). Par contre, lorsque je crée moi-même un RDV dans mon agenda outlook professionnel, si je ne m'invite pas à l'accepter avec mon adresse mail perso (gmail), ce dernier n'apparait que sur mon mail professionnel. J'aimerai avoir le code VB qui me permette de transférer automatiquement tout RDV créé sur mon agenda professionnel vers mon agenda google personnel.
le service informatique sèche... et si je maitrise globalement le VBA, je ne l'ai encore jamais utilisé pour Outlook. J'ai donc besoin d'un peu d'aide !
Merci d'avance.

[Stodena]

A force de bidouiller et de chercher partout sur le net j'ai concocté ceci. Si ça peut servir à quelqu'un d'autre...

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
27
Sub CreateAppt()
'sur création par macro d'un RDV dans l'agenda
'transmission automatique de ce RDV vers une adresse mail
 Dim myItem As Object
 Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient
 
 Set myItem = Application.CreateItem(olAppointmentItem)
 myItem.MeetingStatus = olMeeting
 myItem.Subject = InputBox(" Saisir l'objet de la réunion ")
If MsgBox("La réunion a t-elle lieu au bureau ?", vbYesNo) = vbYes Then
myItem.Location = "mon bureau"
Else
myItem.Location = InputBox("Saisir le lieu de la réunion")
End If
 
pdate = CDate(InputBox(" Saisir la date "))
pheure = InputBox(" Saisir l'heure ")
myItem.Start = pdate & " " & pheure
 
 myItem.Duration = InputBox("Saisir la durée estimée de la réunion en minutes (30;60;90...)")
 
 Set myRequiredAttendee = myItem.Recipients.Add("adresseMailVersLaquelleEnvoyer@...")
 myRequiredAttendee.Type = olRequired
 
 myItem.Display
 myItem.Send
End Sub