Как автоматично да преместите имейл в конкретна папка, след като го препратите в Outlook

За да поддържате пощенската си кутия в ред, може да свикнете да запазвате конкретни имейли в конкретна папка. Тази статия ще ви каже как да използвате Outlook VBA за автоматично преместване на имейла, след като го препратите.

Съхраняването на подобни имейли в конкретна пощенска папка е добър съвет за управление на голямо количество имейли. Разбира се, различните потребители трябва да имат свои собствени критерии за класификация и управление на пощата. Например, може да предпочетете да класифицирате имейлите си според вашите последващи действия върху тях, като отговор, препращане или други. Ако искате автоматично да преместите имейла в конкретна папка, като „Препратено“, когато го препращате, можете да приложите следните операции и VBA кодове, за да го получите бързо.

Автоматично преместване на имейла в конкретна папка, след като го препратите

1. На първо място стартирайте Outlook.
2. След това преминете към раздела „Разработчик“.

Забележка: Ако не можете да намерите този раздел, трябва първо да отидете на „Файл“ > „Опции“ > „Персонализиране на лентата“, за да го активирате.

3. След като този раздел е видим, можете да намерите и щракнете върху бутона „Visual Basic“ под него.
4. Впоследствие ще се появи нов прозорец „Microsoft Visual Basic за приложения“. В него трябва да щракнете два пъти върху проекта „ThisOutlookSession“ от лявата страна, за да го отворите.
5. След това можете да копирате и поставите следните VBA кодове в него.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. По-късно ще трябва да подпишете новия VBA проект.

• Първо, използвайте вградения инструмент „Цифрови сертификати за VBA проекти“, за да създадете цифров сертификат.
• След това присвоете сертификата на този макрос, като следната екранна снимка:

7. По-късно можете да промените вашите макро настройки, за да разрешите цифрово подписани макроси.
8. Накрая резtart Outlook за активиране на новия макрос. Отсега нататък, когато изберете имейл и щракнете върху бутона „Препращане“, имейлът ще бъде преместен веднага в папката „Препратено“.

Избягвайте нежеланото повреда на Outlook PST данни

Един от тяхost Проблемът, който измъчва потребителите на Outlook от дълго време е, че Outlook е склонен към корупция. Тоест страдание PST щети е общ въпрос. Следователно, за да предотвратите загубата на данни от Outlook, по-добре е да направите последователно и актуално архивиране за вашите PST данни.

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

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