'procédure permettant d'ajouter un rdv dans un calendrier outlook Sub AjoutRDVCalendrier()
'déclaration des variables Dim oOutlook As Outlook.Application Dim oAppointment As Outlook.AppointmentItem Dim namespaceOutlook As Outlook.Namespace Dim DossierCalendrier As Outlook.MAPIFolder
'gestion d'erreurs On Error GoTo Err_Execution
'on crée ensuite les objets Set oOutlook = CreateObject("Outlook.Application") Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
'définit le dossier calendrier 'GetDefaultFolder renvoit le calendrier du compte actif Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
'on crée un nouveau rendez-vous Set oAppointment = DossierCalendrier.Items.Add
'on renseigne ensuite les principaux paramètres With oAppointment ' .Start = "15/08/2016 12:00:00" .Start = Sheets("DEP").Range("F12").Value .Duration = 60 'durée de rdv, en minutes .Subject = Sheets("DEP").Range("G12").Value .Body = "" 'corps du texte de la réunion .Location = "" 'Lieu du rdv 'on sauvegarde et ferme .Save .Close (olSave) End With
'Libération des variables. Set oAppointment = Nothing Set oOutlook = Nothing
Fin_Execution: Exit Sub Err_Execution: MsgBox Err.Description, vbExclamation Resume Fin_Execution End Sub
A voir également:
Récupération date, heure, minute, seconde d'Excel en VBS