Как автоматически открывать вложения входящих писем Outlook от определенного отправителя

Если вы хотите, чтобы Outlook автоматически открывал вложения входящих писем от определенного отправителя, вы можете прочитать эту статью. Здесь мы расскажем вам, как этого добиться.

Например, ваш начальник часто отправляет вам по электронной почте несколько важных вложенных файлов. Чтобы как можно быстрее отреагировать на своего босса, вам нужно открывать вложения, когда вы их получаете. В этом случае вам может понадобиться более разумный метод, позволяющий Outlook автоматически открывать вложения электронной почты, входящие от вашего начальника. Сейчас мы покажем вам такой метод.

Автоматическое открытие вложений входящих писем от определенного отправителя

1. К starт с, запустите приложение 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. В конце концов, резtart ваше приложение Outlook, чтобы активировать новый макрос.
6. Отныне каждый раз, когда в папку «Входящие» приходит новое письмо от определенного отправителя, Outlook будет автоматически открывать вложения в этом письме.

Применить инструмент восстановления папки «Входящие»

Что бы вы сделали, если ваш файл данных Outlook поврежден? На самом деле, во-первых, вы можете использовать встроенный инструмент исправления Outlook — Скэнпст. Он может решить некоторые крошечные проблемы, связанные с вашим Outlook. При условии, что эта утилита не работает, самое время прибегнуть к гораздо более опытному и надежному внешнему инструменту, такому как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com