Microsoft 365 Mettre une alerte dans un calendrier autre que la calendrier par défaut de outlook

Zifox

XLDnaute Nouveau
Bonjour,
Je voudrais à d'adapter le code ci-dessous pour choisir un calendrier précis et non celui par défaut. j'ai essayé différentes solutions sans succès ...
Merci d'avance.

VB:
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
 Set Rdv = OkApp.CreateItem(olAppointmentItem)
          
            With Rdv
                .MeetingStatus = olMeeting
                .Subject = "texte " & ComboBox1
                .Body = ComboBox1
                .Location = "là"
                .Start = TextBox1 & " " & TextBox2 & ":00"
                .End = TextBox1 & " " & TextBox3 & ":00"
                .ReminderMinutesBeforeStart = 1440 * 7 ' Une semaine avant
                .Save
            End With
      
        Set OkApp = Nothing
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T