วิธีเปิดไฟล์แนบอัตโนมัติของอีเมล Outlook ขาเข้าจากผู้ส่งที่ระบุ

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

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

เปิดไฟล์แนบอัตโนมัติของอีเมลขาเข้าจากผู้ส่งที่ระบุ

1. เริ่มต้นด้วยการเปิดแอปพลิเคชัน Outlook
2. จากนั้น เข้าถึงโปรแกรมแก้ไข VBA ด้วยทางลัด – “Alt + F11”
3. จากนั้นใส่โค้ด VBA ต่อไปนี้ลงในโปรเจ็กต์ “ThisOutlookSession”

Private Declare Function GetShortPathName Lib "kernel32" _
 Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
 ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private WithEvents objItems As Outlook.Items

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

'Occurs when new item arrives in Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objWsShell As Object
    Dim strTempFolder As String
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Attachment
    Dim strFileName As String
 
    If Item.Class = olMail Then
       Set objMail = Item
       'Change sender email address
       If objMail.SenderEmailAddress = "boss@datanumen.com" Then
          Set objWShell = CreateObject("WScript.Shell")
          strTempFolder = Environ("Temp") & "\"
 
          Set objWsShell = CreateObject("WScript.Shell")
          Set objAttachments = objMail.Attachments
          If objAttachments.Count > 0 Then
             For Each objAttachment In objAttachments
                 strFileName = objAttachment.DisplayName
                 On Error Resume Next
                 Kill strTempFolder & strFileName
                 On Error GoTo 0
 
                 'Save the attachment
                 objAttachment.SaveAsFile strTempFolder & strFileName
 
                 'Open the attachment
                 strFileName = GetShortFileName(strTempFolder & strFileName)
                 On Error Resume Next
                 objWsShell.Run strFileName
             Next
          End If
        End If
    End If
End Sub

Function GetShortFileName(ByVal FullPath As String) As String
    Dim lAns As Long
    Dim sAns As String
    Dim iLen As Integer
 
    On Error Resume Next

    If Dir(FullPath) <> "" Then
       sAns = Space(255)
       lAns = GetShortPathName(FullPath, sAns, 255)
       GetShortFileName = Left(sAns, lAns)
    End If
End Function

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

ใช้เครื่องมือซ่อมแซมกล่องขาเข้า

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

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

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