Comment ouvrir automatiquement les e-mails reçus/envoyés en mode "Modifier" avec Outlook VBA

Pour modifier le corps d'un e-mail reçu ou envoyé dans Outlook, vous devez l'ouvrir puis le transformer en mode "Modifier". Si vous avez souvent besoin d'apporter des modifications à ces e-mails, vous souhaiterez les ouvrir automatiquement en mode "Modifier". Ce post vous aidera à l'obtenir.

Parfois, vous devrez peut-être modifier le contenu d'un e-mail reçu ou envoyé dans Outlook. Dans ce scénario, comme présenté dans le précédent post - "Comment modifier l'objet et le corps des e-mails reçus dans Outlook", vous devez ouvrir l'e-mail et cliquer sur le bouton "Actions" et choisir "Modifier le message" pour convertir l'e-mail en mode "Modifier". Cependant, vous pouvez penser que c'est encore un peu gênant. Par conséquent, vous souhaitez qu'Outlook ouvre toujours les e-mails reçus/envoyés en mode "Modifier". Ci-après, nous présenterons comment utiliser le code VBA pour réaliser cette fonction. Maintenant, lisez la suite pour obtenir des étapes détaillées.

Ouvrir automatiquement les e-mails reçus/envoyés en mode "Modifier"

1. Au tout début, en référence à «Comment exécuter le code VBA dans votre Outlook“, accédez à l'éditeur Outlook VBA.
2. Ensuite, copiez et collez le code VBA suivant dans le projet "ThisOutlookSession".

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Ensuite, cliquez sur le "Application_Startup" et appuyez sur la touche "F5".
4. À présent, fermez l'éditeur VBA.
5. Enfin, vous pouvez essayer. Double-cliquez simplement sur un e-mail reçu ou envoyé pour l'ouvrir. Il passera sûrement dans le mode "Modifier".

Immunisé contre la perte de données Outlook

Votre fichier PST est-il déjà devenu inaccessible ? En réalité, le fichier Outlook PST peut être facilement corrompu. Par exemple, les virus transmis par courrier électronique peuvent facilement entraîner un plantage d'Outlook et ainsi entraîner une corruption des données d'Outlook. Dans de tels cas, la première résolution qui vous vient à l'esprit peut être outil de réparation de boîte de réception. Cependant, d'une manière générale, il est incapable de faire face à des situations aussi graves. Par conséquent, il est toujours suggéré de sauvegarder les fichiers PST à intervalles réguliers, de sorte que vous puissiez restaurer les données PST à partir de sauvegardes comme un bouchon. Sinon, il faut se rabattre sur un outil externe spécialisé, comme DataNumen Outlook Repair.

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ération mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com