DE EXCEL A OUTLOOK !

'cochez la référence Microsoft Outlook 12.0 object library
Option Explicit

Private Sub CommandButton1_Click()
 On Error GoTo AddAppt_Err
        
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olAppointmentItem)
    
    With outappt
            .Start = Now
            .Duration = 10000  ' En minute
            .Subject = " VOTRE SUJET"
            .Body = " LE TEXTE DE VOTRE RENDEZ-VOUS "
            .Location = "L'EMPLACEMENT"
            .AllDayEvent = True     ' Toute la journée oui/non
            .ReminderSet = False   ' S'il y a un rappel
            .Save
       End With
       Set outobj = Nothing  ' Retire de la mémoire les objets créer
      
      Exit Sub

AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub

End Sub