Note: The other languages of the website are Google-translated. Back to English

Comment convertir rapidement plusieurs rendez-vous en tâches dans Outlook?

Dans cet article, je parlerai de la façon de convertir rapidement et facilement un rendez-vous ou plusieurs rendez-vous en tâches dans Outlook.

Convertir un rendez-vous en tâche par glisser-déposer

Convertissez plusieurs rendez-vous en tâches en appliquant le code VBA


Convertir un rendez-vous en tâche par glisser-déposer

Pour convertir un rendez-vous en tâche, il vous suffit de faire glisser le rendez-vous dans le dossier des tâches, procédez comme suit:

1. Dans le Calendrier fenêtre, sélectionnez l'élément de rendez-vous que vous devez convertir en tâche, puis faites-le glisser et déposez-le dans le Tâches icône en bas du volet de navigation comme illustré ci-dessous:

rendez-vous doc à la tâche 1

2. Puis un nouveau Tâche la fenêtre s'affiche, veuillez cliquer Sauvegarder et fermer pour enregistrer ce rendez-vous en tant que tâche. Voir la capture d'écran:

rendez-vous doc à la tâche 2


Convertissez plusieurs rendez-vous en tâches en appliquant le code VBA

Si vous avez plusieurs rendez-vous à convertir en tâches, le code VBA ci-dessous peut vous rendre service, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

Code VBA: convertir plusieurs rendez-vous en tâches

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

rendez-vous doc à la tâche 3

3. Sélectionnez ensuite les rendez-vous que vous souhaitez convertir en tâche, puis cliquez sur Exécuter une macro bouton pour exécuter ce code, voir capture d'écran:

rendez-vous doc à la tâche 4

4. Et puis un Sélectionner le dossier une boîte de dialogue apparaîtra, sélectionnez un Tâches dossier dans lequel vous souhaitez enregistrer les résultats convertis, voir capture d'écran:

rendez-vous doc à la tâche 5

5. Puis clique OK et tous les rendez-vous sélectionnés seront créés en tant que tâches, puis vous devez enregistrer et fermer le Tâche fenêtre une par une, voir capture d'écran:

rendez-vous doc à la tâche 6

6. Ensuite, vous pouvez aller au Tâche dossier, tous les rendez-vous sélectionnés ont été enregistrés en tant que nouvelles tâches, voir capture d'écran:

rendez-vous doc à la tâche 7


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL