Hur man öppnar mottagna/skickade e-postmeddelanden i "Redigera"-läge automatiskt med Outlook VBA

För att ändra innehållet i ett mottaget eller skickat e-postmeddelande i Outlook måste du öppna det och sedan ställa in det i "Redigera"-läge. Om du ofta behöver göra ändringar i sådana e-postmeddelanden vill du öppna dem automatiskt i "Redigera"-läge. Det här inlägget hjälper dig att få det gjort.

Ibland kan du behöva ändra innehållet i ett mottaget eller skickat e-postmeddelande i Outlook. I det här scenariot, som presenterades i föregående inlägg – “Hur man ändrar ämnet och texten för mottagna e-postmeddelanden i Outlook", du måste öppna e-postmeddelandet och klicka på knappen "Åtgärder" och välja "Redigera meddelande" för att konvertera e-postmeddelandet till "Redigera" -läge. Men du kanske tycker att det fortfarande är lite jobbigt. Därför vill du att Outlook alltid ska öppna mottagna/skickade e-postmeddelanden i "Redigera"-läge. Därefter kommer vi att introducera hur man använder VBA-kod för att uppnå denna funktion. Läs nu vidare för att få detaljerade steg.

Öppna mottagna/skickade e-postmeddelanden i "Redigera"-läge automatiskt

1. Redan i början, med hänvisning till "Hur du kör VBA-kod i din Outlook", öppna Outlook VBA-redigeraren.
2. Kopiera sedan och klistra in följande VBA-kod i projektet "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. Klicka sedan på makrot "Application_Startup" och tryck på "F5"-tangenten.
4. Stäng för närvarande VBA-redigeraren.
5. Äntligen kan du prova. Dubbelklicka bara på ett mottaget eller skickat e-postmeddelande för att öppna det. Det kommer säkert att vara i "Redigera" -läget.

Immun från Outlook-dataförlust

Har din PST-fil någonsin blivit otillgänglig? I verkligheten kan Outlook PST-filen lätt skadas. Till exempel kan e-postburna virus lätt leda till att Outlook kraschar och därigenom resultera i korruption av Outlook-data. I sådana fall kan den första lösningen som händer dig vara verktyg för reparation av inkorgen. Men generellt sett är den oförmögen att hantera sådana allvarliga situationer. Därför rekommenderas det alltid att säkerhetskopiera PST-filer med jämna mellanrum, så att du kan återställa PST-data från säkerhetskopior som en kork. Annars måste du falla tillbaka på ett specialiserat externt verktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-återställning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com