Ako automaticky otvárať prílohy prichádzajúcich e-mailov programu Outlook od konkrétneho odosielateľa

Ak chcete, aby program Outlook automaticky otváral prílohy prichádzajúcich e-mailov od konkrétneho odosielateľa, môžete si prečítať tento článok. Tu vás prevedieme návodom, ako to dosiahnuť.

Napríklad váš šéf vám často pošle e-mail s niekoľkými dôležitými prílohami súborov. Aby ste na svojho nadriadeného zareagovali čo najskôr, musíte prílohy otvoriť, keď ich dostanete. V tomto scenári môžete túžiť po inteligentnejšej metóde, ktorá umožní aplikácii Outlook automaticky otvárať prichádzajúce e-mailové prílohy od vášho nadriadeného. Teraz vám ukážeme takúto metódu.

Automaticky otvárať prílohy prichádzajúcich e-mailov od konkrétneho odosielateľa

1. Ak chcete začať, spustite aplikáciu Outlook.
2. Potom prejdite do editora VBA pomocou skratky - „Alt + F11“
3. Ďalej vložte nasledujúci kód VBA do projektu „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. Následne zatvorte editor VBA.
5. Nakoniec reštartujte aplikáciu Outlook, aby ste aktivovali nové makro.
6. Odteraz bude program Outlook vždy, keď do vašej doručenej pošty dorazí nová pošta od konkrétneho odosielateľa, automaticky otvoriť prílohy v tejto pošte.

Použiť nástroj na opravu doručenej pošty

Čo by ste potom urobili, keď je poškodený dátový súbor programu Outlook? Vlastne najskôr môžete využiť vstavaný nástroj na opravu Outlooku - Scanpst. Je schopný vyriešiť niektoré drobné problémy spojené s vašim Outlookom. Za predpokladu, že táto utilita zlyhá, je najvyšší čas uchýliť sa k oveľa skúsenejšiemu a spoľahlivejšiemu externému nástroju, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S