Outlook VBA көмегімен арнайы электрондық пошта тіркемелерін қалай автоматты түрде сақтау керек

Көптеген пайдаланушылар Outlook тіркеме аттарындағы белгілі бір сөздерді автоматты түрде іздей алады, содан кейін арнайы тіркемелерді компьютерлеріндегі жергілікті қалтаға сақтай алады деп үміттенеді. Бұл мақала оны Outlook VBA көмегімен қалай жасауға болатынын үйретеді.

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

Арнайы электрондық пошта тіркемелерін автоматты түрде сақтау

1. Алдымен Outlook бағдарламасын іске қосып, «Әзірлеуші» қойындысына өтіңіз.
2. Содан кейін «Код» тобындағы «Visual Basic» түймесін басыңыз.
3. Содан кейін «Visual Basic» терезесінде «ThisOutlookSession» жобасын ашып, оған келесі кодтарды көшіру керек.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

4. Осыдан кейін сіз осы кодқа қол қоюыңыз керек.

• Біріншіден, сертификат жасау үшін VBA жобаларына арналған Digital Certificate пайдаланыңыз.
• Содан кейін келесі суретте көрсетілген сертификатты осы кодқа тағайындаңыз:

5. Осыдан кейін сіз ағымдағы «Visual Basic» терезесінен шыға аласыз және «Әзірлеуші» қойындысындағы «Код» тобындағы «Макро баптаулар» батырмасын шерте аласыз.
6. Бұдан былай Outlook аттары белгілі сөздері бар тіркемелерді жергілікті қалтаға автоматты түрде сақтайды.

Outlook -тегі ауыр сыбайлас жемқорлықтан құтылыңыз

Көптеген функциялармен мақтанғанымен, Outlook әлі де сыбайлас жемқорлыққа бейім. Осылайша, сіз Outlook бағдарламасында туындауы мүмкін барлық мәселелерді бақылауыңыз керек, мысалы PST пошта қатесі, Outlook жауап бермейді және т.б. Қателермен бетпе-бет келгенде, оларды түзету үшін Outlook кіріктірілген жөндеу құралын, ScanPST.exe пайдалануға болады. Егер ол сәтсіз болса, күшті құралға жүгініңіз.

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

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