Bijlagen van de inkomende Outlook-e-mails van een specifieke afzender automatisch openen

Als u wilt dat Outlook automatisch de bijlagen opent van inkomende e-mails van een specifieke afzender, kunt u dit artikel lezen. Hier zullen we u begeleiden hoe u dit kunt bereiken.

Uw baas e-mailt u bijvoorbeeld vaak met een aantal belangrijke bestandsbijlagen. Om zo snel mogelijk op uw baas te reageren, moet u de bijlagen openen wanneer u ze ontvangt. In dit scenario verlang je misschien naar een slimmere methode om Outlook automatisch de inkomende e-mailbijlagen van je baas te laten openen. Nu zullen we u zo'n methode laten zien.

Bijlagen van inkomende e-mails van een specifieke afzender automatisch openen

1. Begin met het opstarten van de Outlook-applicatie.
2. Open vervolgens de VBA-editor via de snelkoppeling - "Alt + F11"
3. Plaats vervolgens de volgende VBA-code in het project "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. Sluit vervolgens de VBA-editor.
5. Start Outlook ten slotte opnieuw op om de nieuwe macro te activeren.
6. Elke keer dat er een nieuwe mail van de specifieke afzender in je inbox binnenkomt, opent Outlook vanaf nu automatisch de bijlagen in deze mail.

Pas Inbox Repair Tool toe

Wat zou u dan doen als uw Outlook-gegevensbestand beschadigd is? Eigenlijk kunt u ten eerste gebruik maken van de ingebouwde Outlook-fix-tool - scanpst. Het is in staat om enkele kleine problemen met uw Outlook op te lossen. Op voorwaarde dat dit hulpprogramma faalt, is het de hoogste tijd om een ​​beroep te doen op een veel meer ervaren en betrouwbare externe tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com