Kuidas automaatselt avada konkreetselt saatjalt sissetulevate Outlooki meilide manuseid

Kui soovite, et Outlook avaks automaatselt konkreetselt saatjalt saabuvate meilide manused, lugege seda artiklit. Siin juhendame teid, kuidas seda saavutada.

Näiteks saadab teie ülemus teile sageli mitu olulist failimanust. Et oma ülemusele võimalikult kiiresti reageerida, peate manused nende kättesaamisel avama. Selle stsenaariumi korral võite igatseda nutikamat meetodit, mis lubaks Outlookil automaatselt avada ülemuse sissetulevad meilimanused. Nüüd näitame teile sellist meetodit.

Konkreetselt saatjalt sissetulevate e-kirjade manuste automaatne avamine

1. Et start koos käivitage Outlooki rakendus.
2. Seejärel avage otsetee kaudu VBA redaktor - "Alt + F11"
3. Järgmisena sisestage projekti "ThisOutlookSession" järgmine VBA kood.

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. Seejärel sulgege VBA redaktor.
5. Lõpuks restart oma Outlooki rakendust uue makro aktiveerimiseks.
6. Edaspidi avab Outlook iga kord, kui teie postkasti saabub konkreetselt saatjalt uus kiri, automaatselt selle kirja manused.

Rakendage postkasti parandamise tööriist

Mida teeksite, kui teie Outlooki andmefail on rikutud? Tegelikult saate kõigepealt kasutada sisseehitatud Outlooki parandustööriista - scanpst. See suudab lahendada mõned teie Outlookiga seotud väikesed probleemid. Kui see utiliit ebaõnnestub, on viimane aeg kasutada palju kogenumat ja usaldusväärsemat välist tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom