Parfois, vous pouvez espérer modifier ou ajouter des notes à vos e-mails dans Outlook. Cet article vous présentera un moyen efficace pour réaliser cette fonction.
De "4 méthodes simples pour insérer une note dans vos messages Outlook“, vous pouvez apprendre à insérer des notes dans les e-mails via les fonctions natives d'Outlook, telles que l'utilisation d'indicateurs personnalisés, la saisie d'une note dans l'objet ou le corps, ou la fixation d'éléments de note existants à cet e-mail. Pourtant, tous ne sont que des solutions de contournement. Ici, nous allons vous apprendre une méthode beaucoup plus efficace. Via lui, vous pourrez ajouter des notes aux e-mails et modifier ou supprimer des notes existantes à volonté.
Ajouter des notes aux e-mails Outlook
- Pour commencer, accédez à l'éditeur VBA en appuyant sur "Alt + F11" dans Outlook.
- Ensuite, cliquez sur "Insérer"> "UserForm".
- Ensuite, dans le nouveau UserForm, créez une zone de texte comme l'image ci-dessous.
- Ensuite, changez le "Nom" de la zone de texte en "txtNotes", comme la capture d'écran.
- Après cela, créez deux boutons de commande dans le formulaire.
- Ensuite, sélectionnez "CommandButton 1". Changez son "Nom" en "btnOK" et modifiez sa "Légende" en "OK".
- Ensuite, modifiez le "Nom" de "CommandVutton 2" en "btnCancel" et la "Légende" en "Annuler".
- Ensuite, sélectionnez l'intégralité de l'UserForm et modifiez son "Nom" en "frmAddNote" et "Caption" en "Entrez votre note".
- Ensuite, faites un clic droit sur "fromAddNote" et choisissez "Afficher le code".
- Dans le nouvel écran, copiez-y le code suivant.
Private Sub btnOK_Click()
Dim strNote As String
Dim objMail As Outlook.MailItem
Dim objNote As Outlook.NoteItem
strNote = txtNotes.Text
Set objMail = Application.ActiveExplorer.Selection.Item(1)
Set objNote = Application.CreateItem(olNoteItem)
objNote.Body = strNote
objNote.Save
objMail.Attachments.Add objNote
objMail.Save
objNote.Delete
Unload Me
End Sub
Private Sub btnCancel_Click()
Unload Me
End Sub
- Plus tard, placez le code VBA ci-dessous dans un module inutilisé.
Sub AddNote()
frmAddNote.Show
End Sub
- Enfin, dirigez-vous vers "Fichier"> "Options"> "Personnaliser le ruban" pour ajouter cette macro au ruban.
- Maintenant, vous pouvez essayer. Sélectionnez un e-mail et cliquez sur le nouveau bouton "Ajouter une note" dans le ruban.
- Dans la boîte de dialogue contextuelle, vous pouvez entrer votre note et cliquer sur "OK".
- Immédiatement, une nouvelle note sera ajoutée à l'e-mail sélectionné.
Modifier ou supprimer des notes existantes pour les e-mails Outlook
Parfois, vous souhaiterez peut-être modifier ou supprimer des notes existantes dans un e-mail. Vous pouvez suivre les étapes ci-dessous.
- Tout d'abord, créez un autre formulaire utilisateur et nommez-le "frmEditNote" et modifiez sa légende en "Modifiez votre note".
- Ensuite, insérez une nouvelle zone de texte dans le formulaire et changez son "Nom" en "txtNotes".
- Ensuite, ajoutez deux boutons de commande - "OK" et "Annuler".
- Après cela, faites un clic droit sur "frmEditNote" et sélectionnez "Afficher le code".
- Dans la nouvelle page de code de « frmEditNote », mettez le code suivant.
Private Sub UserForm_Initialize()
Dim objAttachNote As Outlook.Attachment
Dim objTempNote As Outlook.NoteItem
Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
Set objMail = objAttachNote.Parent
If Right(objAttachNote.FileName, 3) = "msg" Then
strTempFolder = Environ("Temp")
strFilePath = strTempFolder & "\" & objAttachNote.FileName
objAttachNote.SaveAsFile strFilePath
End If
Set objTempNote = Session.OpenSharedItem(strFilePath)
txtNotes.Text = objTempNote.Body
objTempNote.Close olDiscard
End Sub
Private Sub btnOK_Click()
Dim strNote As String
Dim objMail As Outlook.MailItem
Dim objAttachNote As Outlook.Attachment
Dim objNewNote As Outlook.NoteItem
strNote = txtNotes.Text
Set objNewNote = Application.CreateItem(olNoteItem)
Set objMail = Application.ActiveExplorer.Selection.Item(1)
Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
objAttachNote.Delete
objNewNote.Body = strNote
objNewNote.Save
objMail.Attachments.Add objNewNote
objMail.Save
objNewNote.Delete
Unload Me
End Sub
Private Sub btnCancel_Click()
Unload Me
End Sub
- Après cela, ouvrez un module et copiez-y le code VBA.
Sub EditNote()
frmEditNote.Show
End Sub
Sub DeleteNotes()
Dim objSelectedAttachments As Outlook.AttachmentSelection
Dim objAttachment As Outlook.Attachment
Dim objMail As Outlook.MailItem
Set objSelectedAttachments = Application.ActiveExplorer.AttachmentSelection
For Each objAttachment In objSelectedAttachments
If Right(objAttachment.FileName, 3) = "msg" Then
objAttachment.Delete
End If
Next
Set objMail = Application.ActiveExplorer.Selection.Item(1)
objMail.Save
End Sub
- Enfin, vous pouvez ajouter les macros "EditNote" et "DeleteNotes" au ruban.
- Enfin, après avoir cliqué sur "OK" et revenir à la fenêtre principale, vous pouvez essayer de modifier une note.
- Sélectionnez une note et cliquez sur le bouton "Modifier la note".
- Ensuite, une nouvelle boîte de dialogue apparaîtra, dans laquelle vous pourrez modifier la note sélectionnée.
- Après l'édition, cliquez sur "OK". La notice sera mise à jour.
- Vous pouvez également essayer de supprimer toutes les notes.
- Sélectionnez la note que vous souhaitez supprimer.
- Cliquez sur le bouton "Supprimer les notes" dans le ruban.
- Cette note sera supprimée immédiatement.
Empêcher Outlook de perdre des données
Cherchez-vous une solution puissante pour bloquer la perte de données Outlook ? En toute honnêteté, tant que vous effectuez des sauvegardes régulières des données Outlook, vous pouvez facilement éviter la perte de données PST. Par exemple, même si PST est endommagé, vous pouvez toujours facilement récupérer PST données du fichier PST sauvegardé comme un jeu d'enfant.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com