Тіркеме файл атаулары негізінде кіріс хаттарды нақты қалталарға қалай автоматты түрде жылжыту керек

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Көптеген пайдаланушылар Outlook бағдарламасы тіркелген файл атауларына сәйкес кіріс хаттарды автоматты түрде жылжытады және нақты пошта қалталарына архивтей алады деп үміттенеді. Осылайша, осы мақалада біз сізге Outlook VBA көмегімен алуға көмектесетін жылдам әдісті ашамыз.

Егер сіз кіріс электрондық хаттарды тіркемелерінің файл атаулары бойынша нақты қалталарға автоматты түрде жылжытқыңыз келсе, алдымен Outlook ережесін қолдануды ойластырасыз. Алайда, сіз Outlook ережесінде тіркеменің файл атауын тексеру мүмкіндігі жоқ екенін білесіз. Сондықтан, егер сіз оны шынымен жүзеге асырғыңыз келсе, басқа жолдарды, мысалы, үшінші тарап қондырмасы немесе Outlook VBA арқылы қолдануыңыз керек. Сонымен, мұнда біз сізге VBA көмегімен оған қалай жетуге болатындығын үйретеміз. Егжей-тегжейлі операциялар мен нақты VBA кодтарын алу үшін оқыңыз.

Кіріс хаттарын тіркеме файл атаулары негізінде нақты қалталарға автоматты түрде жылжыту

Кіріс хаттарды тіркемелер негізінде нақты қалталарға автоматты түрде жылжыту

  1. Үшінtart, әдеттегідей Outlook бағдарламасын іске қосыңыз.
  2. Содан кейін VBA редакторына кіру үшін «Alt + F11» батырмаларын басыңыз.
  3. Келесі «Microsoft Visual Basic for Applications» терезесінде сіз сол жақта орналасқан «ThisOutlookSession» жобасын тауып, оны екі рет шерте аласыз.
  4. Ашылған «ThisOutlookSession» жоба терезесінде келесі VBA кодтарын көшіріп, қойыңыз.
Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

VBA кодтары - Тіркеме файл атауларына негізделген кіріс хаттарды арнайы қалталарға автоматты түрде жылжыту

  1. Кейін сізге жаңа VBA жобасына цифрлық қолтаңба қою керек.
  • Біріншіден, сіз жеке сертификат жасау үшін кіріктірілген құралды - VBA жобаларына арналған сандық сертификаттарды пайдалана аласыз.
  • Содан кейін VBA редакторында құралдар тақтасындағы «Құралдар»> «Сандық қолтаңба» батырмасын басыңыз.
  • Оған қол қою үшін экрандағы нұсқауларды орындаңыз.
  1. Осыдан кейін сіз VBA редакторынан шығып, Outlook макроқауіпсіздігін төмен деңгейге ауыстыра аласыз.
  2. Кейінірек сіз демалуыңыз керекtart Жаңа VBA жобасын іске қосу үшін Outlook.
  3. Сайып келгенде, бұдан былай Outlook бағдарламасы барлық келіп түскен электрондық хаттардың тіркемелерінің файл атауларын автоматты түрде тексеріп, нақты папкаларға көшіреді.Тіркеме файл атауларына негізделген электронды хаттарды мұрағаттау

PST деректерін қорғаңыз

Бұл зекетost Outlook-тың сыбайлас жемқорлыққа ұшырайтындығы туралы күмәнсіз факт. Демек, сіздің PST деректерді зақымданудан қорғау өте күрделі міндет. Бірақ сіз әлі де бірнеше ережелер мен кеңестер таба аласыз. Мысалы, PST деректерінің жоғалуын болдырмау үшін сіз жүйелі түрде деректердің сақтық көшірмесін жасай аласыз. Сонымен қатар, Outlook апатынан кейін жедел құтқару үшін сіз тәжірибелі адамды дайындай аласыз PST түзету сияқты құрал DataNumen Outlook Repair.

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

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

Қазір бөлісу:

Пікірлер жабылды.