Ինչպես ավտոմատ բացել մուտքային 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-ը ավտոմատ կերպով կբացի այս նամակի հավելվածները:

Կիրառել Inbox Repair Tool-ը

Երբ ձեր Outlook-ի տվյալների ֆայլը վնասված է, ի՞նչ կանեիք այդ դեպքում: Իրականում, նախ, դուք կարող եք օգտագործել ներկառուցված Outlook ամրագրման գործիքը. Սկանպստ. Այն ի վիճակի է լուծել ձեր Outlook-ի հետ կապված որոշ փոքր խնդիրներ: Պայմանով, որ այս օգտակար ծրագիրը ձախողվի, վաղուց ժամանակն է դիմել շատ ավելի փորձառու և հուսալի արտաքին գործիքի, ինչպիսին է. DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com