Белгілі бір жіберушіден кіріс 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 бағдарламасы осы поштадағы тіркемелерді автоматты түрде ашады.

Кіріс қалтасын жөндеу құралын қолданыңыз

Outlook деректер файлы бүлінген кезде, сіз не істер едіңіз? Шындығында, біріншіден, кірістірілген Outlook түзету құралын пайдалана аласыз - Сканерлеу. Ол Outlook бағдарламасына қатысты кейбір ұсақ мәселелерді шеше алады. Бұл қызметтік бағдарлама сәтсіз болған жағдайда, әлдеқайда тәжірибелі және сенімді сыртқы құралға жүгінудің уақыты келді, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген mdf және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com