Outlook VBA yordamida maxsus elektron pochta qo'shimchalarini qanday avtomatik saqlash mumkin

Ko'pgina foydalanuvchilar Outlook ilova nomlarida ma'lum so'zlarni avtomatik ravishda qidirishi va keyin maxsus qo'shimchalarni kompyuterlaridagi mahalliy jildga saqlashi mumkin deb umid qiladi. Ushbu maqola sizga Outlook VBA bilan buni qanday amalga oshirishni o'rgatadi.

Mening kundalik ishlarimda, agar qabul qilingan xatlardagi qo'shimchalar juda muhim bo'lmasa, men ularni mahalliy diskimga saqlamaslikni afzal ko'raman, ularni to'g'ridan-to'g'ri Outlook-da o'qib chiqing. Ammo agar qo'shimchalar muhim bo'lsa, masalan, xodimlar to'g'risidagi nizom, oylik ish hisoboti, men ularni kompyuterimdagi ma'lum bir papkaga saqlayman. Bunday holda, men Outlook-ni nomlarida ma'lum so'zlarni o'z ichiga olgan elektron pochta qo'shimchalarini ma'lum bir papkaga avtomatik ravishda saqlash uchun sozlashni xohlayman. Shunday qilib, men buni Outlook VBA bilan amalga oshirishning tezkor usulini topdim. Mana, VBA kodlari va qadamlari:

Muayyan elektron pochta qo'shimchalarini avtomatik saqlash

1. Birinchidan, siz Outlook-ni ishga tushirishingiz va "Tuzuvchi" yorlig'iga o'tishingiz kerak.
2. Keyinchalik, "Kod" guruhidagi "Visual Basic" tugmasini bosing.
3. Keyin "Visual Basic" oynasida "ThisOutlookSession" loyihasini ochishingiz va unga quyidagi kodlarni nusxalashingiz kerak.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak.

• Birinchidan, sertifikat yaratish uchun VBA loyihalari uchun raqamli sertifikatdan foydalaning.
• Keyin quyidagi rasmda ko'rsatilgan sertifikatni ushbu kodga tayinlang:

5. Shundan so'ng, siz joriy "Visual Basic" oynasidan chiqishingiz va "Tuzuvchi" yorlig'i ostidagi "Kod" guruhidagi "Makro sozlamalari" tugmasini bosishingiz mumkin.
6. Bundan buyon Outlook avtomatik ravishda ismlarida ma'lum so'zlarga ega bo'lgan qo'shimchalarni ko'rsatilgan mahalliy jildga saqlaydi.

Jiddiy Outlook korruptsiyasidan tiklang

Ko'p funktsiyalar bilan maqtansa ham, Outlook hali ham korruptsiyaga moyil. Shunday qilib, siz Outlook bilan yuzaga kelishi mumkin bo'lgan barcha muammolar haqida yorliqlarni saqlashingiz kerak, masalan PST pochta xatosi, Outlook javob bermayapti va hokazo. Xatolarga duch kelganingizda, ularni tuzatish uchun Outlook o'rnatilgan ScanPST.exe ta'mirlash vositasidan foydalanishingiz mumkin. Agar u muvaffaqiyatsiz bo'lsa, kuchliroq vositaga murojaat qiling.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash SQL Server mdf fayl muammosi va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com