A fogadott/elküldött e-mailek automatikus megnyitása „Szerkesztés” módban az Outlook VBA segítségével

Egy fogadott vagy elküldött e-mail törzsének módosításához az Outlookban meg kell nyitnia azt, majd „Szerkesztés” módba kell kapcsolnia. Ha gyakran kell módosításokat végeznie az ilyen e-mailekben, akkor érdemes automatikusan „Szerkesztés” módban megnyitni őket. Ez a bejegyzés segít ebben.

Időnként szükség lehet egy fogadott vagy elküldött e-mail tartalmának módosítására az Outlookban. Ebben az esetben, ahogy az előző bejegyzésben is bemutattuk – „A fogadott e-mailek tárgyának és törzsének módosítása az Outlookban", nyissa meg az e-mailt, kattintson a "Műveletek" gombra, és válassza az "Üzenet szerkesztése" lehetőséget, hogy az e-mailt "Szerkesztés" módba konvertálja. Azonban azt gondolhatja, hogy ez még mindig zavaró. Ezért azt szeretné, hogy az Outlook mindig „Szerkesztés” módban nyissa meg a fogadott/elküldött e-maileket. A továbbiakban bemutatjuk, hogyan lehet VBA kódot használni ennek a funkciónak az eléréséhez. Most olvassa el a részletes lépéseket.

A Fogadott/Elküldött e-mailek automatikus megnyitása „Szerkesztés” módban

1. Már az elején hivatkozva arra, hogy „A VBA kód futtatása az Outlookban", nyissa meg az Outlook VBA szerkesztőjét.
2. Ezután másolja ki és illessze be a következő VBA-kódot a „ThisOutlookSession” projektbe.

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. Ezután kattintson az „Application_Startup” makróra, és nyomja meg az „F5” billentyűt.
4. Jelenleg zárja be a VBA-szerkesztőt.
5. Végre egy próbát tehetsz. Csak kattintson duplán egy fogadott vagy elküldött levélre a megnyitásához. Biztosan "Szerkesztés" módban lesz.

Immun az Outlook adatvesztés ellen

Előfordult, hogy a PST fájl elérhetetlenné vált? A valóságban az Outlook PST fájl könnyen megsérülhet. Például az e-mailben terjesztett vírusok könnyen az Outlook összeomlásához vezethetnek, és ezáltal az Outlook adatok megsérüléséhez vezethetnek. Ilyen esetekben az első megoldás, ami megtörténik az elmédben, az lehet postafiók javító eszköz. Általában véve azonban nem képes kezelni az ilyen súlyos helyzeteket. Ezért mindig javasolt rendszeres időközönként biztonsági másolatot készíteni a PST-fájlokról, hogy visszaállíthassa a PST-adatokat a biztonsági másolatokból, mint egy parafa. Ellenkező esetben egy speciális külső eszközhöz kell fordulnia, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com