L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Fonction pour créer un Rendez-vous

Imprimer E-mail
5 mars 2014

Private Sub CreationRDV(strTitre As String, strLieu As String, datJour As Date, bTemp As Boolean, strCat As String)
    Dim OlApp As Outlook.Application
    Dim rdv As Outlook.AppointmentItem
    Dim datDeb As Date, datFin As Date
    
    'date de debut
    datDeb = datJour + TimeSerial(9, 0, 0)
    'date de fin
    datFin = datJour + TimeSerial(17, 0, 0)
    'création de la formation
    Set OlApp = Outlook.Application
    Set rdv = OlApp.CreateItem(olAppointmentItem)
    With rdv
        .Subject = strTitre 'sujet
        .Location = strLieu 'lieu
        .Categories = strCat 'catégorie
        If bTemp Then 'statut
            .BusyStatus = olTentative
        Else
            .BusyStatus = olOutOfOffice
        End If
        .Start = datDeb
        .End = datFin
        .ReminderSet = False 'rappel
        .Save 'sauvegarde
    End With
End Sub

A vous maintenant d'utiliser cette fonction pour créer un rendez-vous avec le contenu de cellules de votre classeur.