วิธีย้ายอีเมลขาเข้าอัตโนมัติไปยังโฟลเดอร์เฉพาะตามชื่อไฟล์สิ่งที่แนบมา

ผู้ใช้หลายคนหวังว่า Outlook จะสามารถย้ายและจัดเก็บอีเมลขาเข้าโดยอัตโนมัติไปยังโฟลเดอร์อีเมลที่ระบุตามชื่อไฟล์ที่แนบมา ดังนั้นในบทความนี้เราจะนำเสนอวิธีที่รวดเร็วเพื่อช่วยให้คุณใช้ Outlook VBA

หากคุณต้องการย้ายอีเมลขาเข้าไปยังโฟลเดอร์เฉพาะโดยอัตโนมัติตามชื่อไฟล์ของไฟล์แนบคุณจะต้องนึกถึงการใช้กฎ Outlook เป็นอันดับแรก อย่างไรก็ตามในที่สุดคุณจะพบว่ากฎ Outlook ไม่มีคุณสมบัติในการตรวจสอบชื่อไฟล์สิ่งที่แนบมา ดังนั้นหากคุณต้องการทราบอย่างแท้จริงคุณต้องใช้วิธีอื่นเช่นผ่าน Add-in ของบุคคลที่สามหรือ Outlook VBA ดังนั้นที่นี่เราจะสอนวิธีบรรลุด้วย VBA อ่านเพื่อรับรายละเอียดการดำเนินการและรหัส VBA ที่เป็นรูปธรรม

ย้ายอีเมลขาเข้าอัตโนมัติไปยังโฟลเดอร์เฉพาะตามไฟล์แนบ

1. ขั้นแรก ให้เปิดโปรแกรม Outlook ตามปกติ
2. จากนั้นกดปุ่ม“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
3. ในหน้าต่าง“ Microsoft Visual Basic for Applications” ที่ตามมาคุณสามารถค้นหาและดับเบิลคลิกที่โครงการ“ ThisOutlookSession” ทางด้านซ้าย
4. ถัดไปในหน้าต่างโปรเจ็กต์“ ThisOutlookSession” ที่เปิดอยู่ให้คัดลอกและวางรหัส VBA ต่อไปนี้

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. จากนั้นคุณต้องลงนามแบบดิจิทัลในโครงการ VBA ใหม่

• ประการแรกคุณสามารถใช้เครื่องมือ inbuilt - ใบรับรองดิจิทัลสำหรับโครงการ VBA เพื่อสร้างใบรับรองส่วนบุคคล
• จากนั้นในโปรแกรมแก้ไข VBA ให้คลิก“ เครื่องมือ”>“ ลายเซ็นดิจิทัล” ในแถบเครื่องมือ
• จากนั้นทำตามคำแนะนำบนหน้าจอเพื่อลงนาม

6. หลังจากนั้นคุณสามารถออกจากโปรแกรมแก้ไข VBA และเปลี่ยนความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
7. หลังจากนั้น คุณควรปิดและเปิด Outlook ใหม่เพื่อเปิดใช้งานโปรเจ็กต์ VBA ใหม่
8. ในที่สุดนับจากนี้ Outlook จะตรวจสอบชื่อไฟล์ของไฟล์แนบของอีเมลขาเข้าทั้งหมดโดยอัตโนมัติและย้ายไฟล์ที่ต้องการไปยังโฟลเดอร์เฉพาะ

ปกป้องข้อมูล PST ของคุณ

เป็นที่ยอมรับกันโดยทั่วไปว่า Outlook มีความเสี่ยงที่จะเกิดความเสียหาย ดังนั้น การปกป้องข้อมูล PST ของคุณจากการเสียหายจึงเป็นเรื่องที่ค่อนข้างยากลำบาก แต่คุณก็ยังสามารถหาหลักเกณฑ์และเคล็ดลับบางอย่างได้ ตัวอย่างเช่น เพื่อป้องกันการสูญหายของข้อมูล PST คุณสามารถสำรองข้อมูลเป็นประจำ นอกจากนี้ เพื่อให้สามารถกู้คืนได้ทันทีหลังจาก Outlook ขัดข้อง คุณสามารถเตรียมผู้เชี่ยวชาญไว้รองรับได้ PST แก้ไข เครื่องมือเช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ SQL Server การฟื้นตัว และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.