Comment créer des rappels Outlook à partir d'une feuille de calcul Excel?

Auteur : Siluvia Dernière modification: 2023-08-16

Cet article parle de la création de rappels Outlook basés sur les données de la feuille de calcul Excel.

Rappels Crete Outlook de la feuille de calcul Excel avec le code VBA

Créer des rappels Outlook à partir d'une feuille de calcul Excel avec le code VBA

Si vous souhaitez créer des rappels Outlook à partir d'Excel, procédez comme suit.

1. Créez une feuille de calcul contenant les en-têtes de colonne et les champs de rappel correspondants, comme illustré ci-dessous.

Notes: Pour le état occupé colonne, nombre 2 signifie que le rappel sera affiché comme Occupé dans votre calendrier Outlook. Vous pouvez le changer en 1 (provisoire), 3 (absent du bureau), 4 (Travailler ailleurs), ou 5 (gratuit) Comme vous le souhaitez.

2. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Code.

Code VBA: créer des rappels Outlook à partir d'une feuille de calcul Excel

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.createitem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

Notes: Dans le code ci-dessus, A2: G2 est la plage de données sur laquelle vous souhaitez créer des rendez-vous.

4. appuie sur le F5 ou cliquez sur le bouton Exécuter pour exécuter le code. Ensuite, tous les rendez-vous avec des champs spécifiques seront insérés dans le calendrier de votre Outlook à la fois.

Et puis, vous pouvez aller dans le calendrier de vos perspectives pour voir les résultats, voir capture d'écran:

Meilleurs outils de productivité bureautique

Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!

Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels

(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers

(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique

???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !