Belirli Bir Göndericiden Gelen Outlook E-postalarının Eklerini Otomatik Olarak Açma

Outlook'un belirli bir göndericiden gelen e-postaların eklerini otomatik olarak açmasını istiyorsanız bu makaleyi okuyabilirsiniz. Burada, bunu nasıl başaracağınız konusunda size rehberlik edeceğiz.

Örneğin, patronunuz size birkaç önemli dosya eki içeren e-postalar gönderir. Patronunuza mümkün olan en kısa sürede tepki verebilmek için, ekleri aldığınızda açmanız gerekir. Bu senaryoda, Outlook'un patronunuzdan gelen e-posta eklerini otomatik olarak açmasına izin vermek için daha akıllı bir yöntem isteyebilirsiniz. Şimdi size böyle bir yöntem göstereceğiz.

Belirli Bir Göndericiden Gelen E-postaların Eklerini Otomatik Aç

1. Öncelikle Outlook uygulamasını başlatın.
2. Ardından, “Alt + F11” kısayoluyla VBA düzenleyicisine erişin
3. Ardından, aşağıdaki VBA kodunu “ThisOutlookSession” projesine yerleştirin.

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. Ardından, VBA editörünü kapatın.
5. Son olarak, yeni makroyu etkinleştirmek için Outlook uygulamanızı yeniden başlatın.
6. Bundan sonra, belirli bir göndericiden gelen kutunuza her yeni posta geldiğinde, Outlook bu postadaki ekleri otomatik olarak açacaktır.

Gelen Kutusu Onarım Aracını Uygula

Outlook veri dosyanız bozulduğunda ne yaparsınız? Aslında, öncelikle dahili Outlook düzeltme aracını kullanabilirsiniz – Tarama. Outlook'unuzla ilgili bazı küçük sorunları çözebilir. Bu yardımcı programın başarısız olması koşuluyla, çok daha deneyimli ve güvenilir bir harici araca başvurmanın tam zamanı. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com