Как да отваряте автоматично получени / изпратени имейли в режим „Редактиране“ с Outlook VBA

За да промените тялото на получен или изпратен имейл в Outlook, трябва да го отворите и след това да го превключите в режим „Редактиране“. Ако често се налага да правите промени в такива имейли, ще е добре да ги отваряте автоматично в режим „Редактиране“. Тази публикация ще ви помогне да го направите.

Понякога може да се наложи да промените съдържанието на получен или изпратен имейл в Outlook. В този сценарий, както е представено в предишната публикация – „Как да модифицирам темата и тялото на получените имейли в Outlook“, Трябва да отворите имейла и да щракнете върху бутона„ Действия “и да изберете„ Редактиране на съобщението “, за да конвертирате имейла в режим„ Редактиране “. Въпреки това може да си помислите, че все още е малко обезпокоително. Затова искате Outlook винаги да отваря получени / изпратени имейли в режим „Редактиране“. По-нататък ще ви представим как да използвате VBA код за постигане на тази функция. Сега прочетете, за да получите подробни стъпки.

Автоматично отваряне на получени / изпратени имейли в режим „Редактиране“

1. В самото начало, с позоваване на „Как да стартирате VBA код във вашия Outlook“, Достъп до редактора на Outlook VBA.
2. След това копирайте и поставете следния VBA код в проекта „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. След това щракнете върху макроса „Application_Startup“ и натиснете клавиша „F5“.
4. В момента затворете редактора на VBA.
5. И накрая, можете да опитате. Просто щракнете два пъти върху получена или изпратена поща, за да я отворите. Със сигурност ще е в режим „Редактиране“.

Имун от загуба на данни в Outlook

Вашият PST файл някога е станал недостъпен? В действителност Outlook PST файлът може лесно да се повреди. Например вирусите, пренасяни по имейл, могат лесно да доведат до срив на Outlook и по този начин да доведат до повреда на данните в Outlook. В такива случаи първата резолюция, която се случва на ума ви, може да бъде инструмент за ремонт на входящата кутия. Най-общо казано обаче, той не е в състояние да се справи с такива сериозни ситуации. Следователно, винаги се препоръчва да правите резервни копия на PST файлове на редовни интервали, така че да можете да възстановявате PST данни от резервни копия като корк. В противен случай трябва да се върнете към специализиран външен инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com