none
Placer un rendez-vous dans le calendrier d'un autre employé RRS feed

  • Question

  • Bonjour,

    Je bute sur un bout de code pour placer un rendez-vous dans l'agenda d'un autre employé, voici mon code :

    Private Ajouter_RDV_Click()
    On Error Goto Outlook_Add_Err

    Dim objOutlook As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem
    Dim objRecurPattern As Outlook.RecurrencePattern

    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppt = objOutlook.CreateItem(olAppointmentItem)

    'choix
    Set myrecipient = Outlook.GetNamespace("MAPI").CreateRecipient("ddupond")
    myrecipient.Resolve

    If myrecipient.Resolved Then
      For Each objAppt In Outlook.GetNamespace("MAPI").GetSharedDefaultFolder(myrecipient, olFolderCalendar).Items

    'Traitment du calendrier
    Next objAppt

    End If

    With objAppt
    .Start = "01.01.2019"
    .Duration = CLng(60)
    .Subject = "Votre rendez-vous"
    .Location = "Bureau de bénévoles"
    .ReminderMinutesBeforeStart = 10
    .ReminderSet = True

    .Save
    .Close (olSave)

    End With

    Set objAppt = Nothing
    Set objOutlook = Nothing

    Outlook_Add_Exit:

    Exit Sub

    Outlook_Add_Err:

    MsgBox "Error " & Err.Number & vbCrLf & Err.Description
    Set objOutlook = Nothing
    Set objAppt = Nothing
    Resume Outlook_Add_Exit

    End Sub

    L'erreur est "Error 91 : Variable objet ou variable de bloc With non définie"

    Merci d'avance pour vos lumières.

    Pascal
    vendredi 14 septembre 2018 07:34