Outlook VBA ilə xüsusi e-poçt əlavələrini avtomatik olaraq necə saxlamaq olar

Bir çox istifadəçi ümid edir ki, Outlook avtomatik olaraq qoşma adlarında xüsusi sözləri axtara və sonra xüsusi qoşmaları kompüterlərində yerli qovluğa saxlaya bilər. Bu məqalə sizə Outlook VBA ilə bunu necə həyata keçirəcəyinizi öyrədəcək.

Gündəlik işlərimdə, əgər alınan e-məktublardakı əlavələr çox vacib deyilsə, mən onları yerli diskimdə saxlamamağa üstünlük verirəm, sadəcə onları birbaşa Outlook-da oxuyuram. Ancaq əlavələr vacibdirsə, məsələn, kadr qaydaları, aylıq iş hesabatı, onları kompüterimdə müəyyən bir qovluğa saxlayacağam. Belə olan halda, mən Outlook-u adlarında xüsusi sözlərdən ibarət olan e-poçt qoşmalarını avtomatik olaraq müəyyən bir qovluğa saxlamaq üçün konfiqurasiya etmək istəyirəm. Beləliklə, mən Outlook VBA ilə həyata keçirmək üçün sürətli bir üsul tapdım. Budur ətraflı VBA kodları və addımları:

Xüsusi E-poçt Qoşmalarını Avtomatik Saxla

1. Əvvəlcə Outlook-u işə salmalı və "Developer" sekmesine keçməlisiniz.
2. Sonra, "Kod" qrupunda "Visual Basic" düyməsini basın.
3. Sonra “Visual Basic” pəncərəsində “ThisOutlookSession” layihəsini açmalı və ona aşağıdakı kodları kopyalamalısınız.

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. Bundan sonra bu kodu imzalamalısınız.

• Birincisi, sertifikat yaratmaq üçün VBA Layihələri üçün Rəqəmsal Sertifikatdan istifadə edin.
• Sonra sertifikatı aşağıdakı şəkildə göstərilən bu koda təyin edin:

5. Bundan sonra, cari “Visual Basic” pəncərəsindən çıxa və “Developer” sekmesinin altındakı “Kod” qrupunda “Makro Parametrlər” düyməsini sıxa bilərsiniz.
6. Bundan sonra Outlook avtomatik olaraq adlarında xüsusi sözlər olan qoşmaları qeyd etdiyiniz yerli qovluqda saxlayacaq.

Ciddi Outlook Korrupsiyasından qurtarın

Çox funksiyaları ilə öyünməsinə baxmayaraq, Outlook hələ də korrupsiyaya meyllidir. Beləliklə, Outlook-da baş verə biləcək bütün problemlərə dair nişanları saxlamalısınız, məsələn PST poçt xətası, Outlook cavab vermir və s. Səhvlərlə qarşılaşdıqda, onları düzəltmək üçün Outlook daxili təmir alətindən, ScanPST.exe-dən istifadə edə bilərsiniz. Əgər uğursuz olarsa, daha güclü bir vasitəyə müraciət edin.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf fayl problemi və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com