Paano Ililipat ng Auto ang Mga Papasok na Email sa Mga Tiyak na Mga Folder Batay sa Mga Pangalan ng File ng Attachment

Maraming mga gumagamit ang umaasa na ang Outlook ay maaaring awtomatikong ilipat at i-archive ang mga papasok na email sa mga tukoy na folder ng mail ayon sa mga pangalan ng file ng kalakip. Sa gayon, sa artikulong ito, ilalantad namin ang isang mabilis na paraan upang matulungan kang makuha ito sa Outlook VBA.

Kung nais mong awtomatikong ilipat ang mga papasok na email sa mga tukoy na folder alinsunod sa mga filename ng kanilang mga kalakip, tiyak na maiisip mong gamitin ang panuntunan ng Outlook sa una. Gayunpaman, sa wakas ay matutuklasan mo na ang panuntunan ng Outlook ay walang tampok upang suriin ang filename ng attachment. Samakatuwid, kung nais mong mapagtanto ito, kailangan mong gumamit ng iba pang mga paraan, halimbawa, sa pamamagitan ng isang third party na add-in o Outlook VBA. Kaya't dito ka namin tuturuan paano makamit ito sa VBA. Basahin ang upang makuha ang detalyadong pagpapatakbo at kongkretong VBA code.

Awtomatikong Ilipat ang Mga Papasok na Email sa Mga Tiyak na Mga Folder Batay sa Mga Attachment

1. Para sa bilangtart, ilunsad ang iyong programa sa Outlook bilang normal.
2. Pagkatapos ay pindutin ang mga pindutan ng "Alt + F11" upang mai-access ang VBA editor.
3. Sa kasunod na window ng "Microsoft Visual Basic para sa Mga Aplikasyon", maaari mong makita at mag-double click sa proyekto na "ThisOutlookSession" sa kaliwang bahagi.
4. Susunod sa binuksan na window ng proyekto na "ThisOutlookSession", kopyahin at i-paste ang mga sumusunod na VBA code.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Kasunod, kailangan mong digital na lagdaan ang bagong proyekto ng VBA.

• Una, maaari mong gamitin ang inbuilt tool - Mga Digital Certificate para sa Mga Proyekto ng VBA upang lumikha ng isang personal na sertipiko.
• Pagkatapos sa editor ng VBA, i-click ang "Mga Tool"> "Digital Signature" sa toolbar.
• Susunod na sundin ang mga tagubilin sa onscreen upang pirmahan ito.

6. Pagkatapos nito, maaari kang lumabas sa editor ng VBA at baguhin ang seguridad ng macro ng Outlook sa mababang.
7. Mamaya dapat kang restart Outlook upang buhayin ang bagong proyekto ng VBA.
8. Sa paglaon, mula ngayon, awtomatikong susuriin ng Outlook ang mga filename ng mga attachment ng lahat ng mga papasok na email at ilipat ang mga tukoy sa mga tukoy na folder.

Ingatan ang Iyong Data ng PST

Si almost isang hindi napag-uusapan na katotohanan na ang Outlook ay madaling kapitan sa katiwalian. Samakatuwid, ito ay isang napakahirap na gawain upang protektahan ang iyong data ng PST laban sa pinsala. Ngunit makakahanap ka pa rin ng ilang mga patakaran at tip. Halimbawa, upang maiwasan ang pagkawala ng data ng PST, maaari kang magpatuloy sa paggawa ng isang regular na pag-backup ng data. Bukod dito, upang makapagbigay ng agarang pagsagip pagkatapos ng pag-crash ng Outlook, maaari kang maghanda ng isang karanasan Ayusin ang PST tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server pagbawi at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa