Xüsusi Göndərəndən Gələn Outlook E-poçtlarının Qoşmalarını Avtomatik Açmaq necə

Outlook-un müəyyən bir göndəricidən daxil olan e-poçtların əlavələrini avtomatik açmasını istəyirsinizsə, bu məqaləni oxuya bilərsiniz. Burada buna necə nail olmağı sizə bələdçi edəcəyik.

Məsələn, müdiriniz tez-tez sizə bir neçə vacib fayl əlavəsi ilə e-poçt göndərir. Müdirinizə mümkün qədər tez reaksiya vermək üçün əlavələri aldığınız zaman onları açmalısınız. Bu ssenaridə, Outlook-a müdirinizdən gələn e-poçt qoşmalarını avtomatik açmağa icazə vermək üçün daha ağıllı bir üsul istəyə bilərsiniz. İndi sizə belə bir üsul göstərəcəyik.

Xüsusi Göndərəndən Gələn E-poçtların Əlavələrini Avtomatik Açın

1. Başlamaq üçün Outlook tətbiqini işə salın.
2. Sonra qısayol vasitəsilə VBA redaktoruna daxil olun - "Alt + F11"
3. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə qoyun.

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. Sonra VBA redaktorunu bağlayın.
5. Nəhayət, yeni makronu aktivləşdirmək üçün Outlook tətbiqinizi yenidən başladın.
6. Bundan sonra, hər dəfə xüsusi göndərəndən yeni məktub gələnlər qutunuza gəldikdə, Outlook avtomatik olaraq bu məktubdakı qoşmaları açacaq.

Gələnlər Qutunu Təmir Alətini tətbiq edin

Outlook məlumat faylınız xarab olduqda, onda nə edərdiniz? Əslində, ilk növbədə, daxili Outlook düzəltmə alətindən istifadə edə bilərsiniz - scanpst. O, Outlook ilə əlaqəli bəzi kiçik problemləri həll etməyə qadirdir. Bu yardım proqramının uğursuz olması şərtilə, daha təcrübəli və etibarlı xarici vasitəyə müraciət etməyin vaxtıdır, məsələn: DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com