So öffnen Sie empfangene / gesendete E-Mails automatisch im Bearbeitungsmodus mit Outlook VBA

Um den Inhalt einer empfangenen oder gesendeten E-Mail in Outlook zu ändern, müssen Sie diese öffnen und anschließend in den Bearbeitungsmodus wechseln. Wenn Sie solche E-Mails häufiger bearbeiten müssen, empfiehlt es sich, sie automatisch im Bearbeitungsmodus zu öffnen. Dieser Beitrag hilft Ihnen dabei.

Gelegentlich kann es erforderlich sein, den Inhalt einer empfangenen oder gesendeten E-Mail in Outlook zu ändern. In diesem Fall, wie im vorherigen Beitrag erläutert, …So ändern Sie den Betreff und den Text empfangener E-Mails in OutlookSie müssen die E-Mail öffnen, auf die Schaltfläche „Aktionen“ klicken und „Nachricht bearbeiten“ auswählen, um die E-Mail in den Modus „Bearbeiten“ zu konvertieren. Sie können jedoch denken, dass es immer noch ein bisschen lästig ist. Daher möchten Sie, dass Outlook empfangene / gesendete E-Mails immer im Bearbeitungsmodus öffnet. Im Folgenden wird vorgestellt, wie VBA-Code verwendet wird, um diese Funktion zu erreichen. Lesen Sie jetzt weiter, um detaillierte Schritte zu erhalten.

Öffnen Sie empfangene / gesendete E-Mails automatisch im Bearbeitungsmodus

1. Gleich zu Beginn mit Bezug auf „So führen Sie VBA-Code in Outlook ausRufen Sie den Outlook VBA-Editor auf.
2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Projekt „ThisOutlookSession“ ein.

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. Klicken Sie anschließend auf das Makro „Application_Startup“ und drücken Sie die Taste „F5“.
4. Schließen Sie derzeit den VBA-Editor.
5. Schließlich können Sie es versuchen. Doppelklicken Sie einfach auf eine empfangene oder gesendete E-Mail, um sie zu öffnen. Es wird sicherlich im "Bearbeiten" -Modus.

Immun gegen Outlook-Datenverlust

Ist Ihre PST-Datei jemals unzugänglich geworden? In der Realität kann die Outlook PST-Datei leicht beschädigt werden. Beispielsweise können durch E-Mails übertragene Viren leicht zum Absturz von Outlook führen und dadurch zu einer Beschädigung der Outlook-Daten führen. In solchen Fällen kann die erste Lösung sein, die Ihrem Verstand passiert Reparaturwerkzeug für den Posteingang. Im Allgemeinen ist es jedoch nicht in der Lage, mit solch ernsten Situationen umzugehen. Daher wird immer empfohlen, PST-Dateien in regelmäßigen Abständen zu sichern, damit Sie PST-Daten aus Sicherungen wie einem Korken wiederherstellen können. Andernfalls müssen Sie auf ein spezielles externes Tool zurückgreifen, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX