Qanday qilib kiruvchi elektron pochta xabarlarini biriktirilgan fayl nomlari asosida ma'lum papkalarga avtomatik ko'chirish mumkin

Ko'pgina foydalanuvchilar Outlook avtomatik ravishda kiruvchi elektron pochta xabarlarini biriktirilgan fayl nomlariga ko'ra ma'lum pochta papkalariga ko'chirishi va arxivlashi mumkin deb umid qiladi. Shunday qilib, ushbu maqolada biz uni Outlook VBA bilan olishda yordam berishning tezkor usulini ko'rsatamiz.

Agar siz kiruvchi elektron pochta xabarlarini qo'shimchalarning fayl nomlariga ko'ra ma'lum papkalarga avtomatik ko'chirmoqchi bo'lsangiz, birinchi navbatda Outlook qoidasidan foydalanish haqida o'ylaysiz. Biroq, nihoyat Outlook qoidasida ilova fayl nomini tekshirish xususiyati yo'qligini bilib olasiz. Shuning uchun, agar siz haqiqatan ham buni amalga oshirishni istasangiz, boshqa usullardan foydalanishingiz kerak, masalan, uchinchi tomon plaginlari yoki Outlook VBA orqali. Shunday qilib, biz sizga VBA bilan qanday erishishni o'rgatamiz. Batafsil operatsiyalar va aniq VBA kodlarini olish uchun o'qing.

Kiruvchi xatlarni qo'shimchalar asosida ma'lum jildlarga avtomatik ko'chirish

1. Sifatida uchuntart, Outlook dasturini odatdagidek ishga tushiring.
2. Keyin VBA muharririga kirish uchun "Alt + F11" tugmachalarini bosing.
3. Keyingi "Ilovalar uchun Microsoft Visual Basic" oynasida siz chap tomondagi "ThisOutlookSession" loyihasini topishingiz va ikki marta bosishingiz mumkin.
4. Keyin ochilgan "ThisOutlookSession" loyihasi oynasida quyidagi VBA kodlaridan nusxa oling va joylashtiring.

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

5. Keyinchalik, siz yangi VBA loyihasini raqamli imzolashingiz kerak.

• Birinchidan, shaxsiy sertifikat yaratish uchun o'rnatilgan vositadan - VBA loyihalari uchun raqamli sertifikatlardan foydalanishingiz mumkin.
• Keyin VBA muharririda asboblar panelidagi "Asboblar" > "Raqamli imzo" ni bosing.
• Keyin imzolash uchun ekrandagi ko'rsatmalarga amal qiling.

6. Shundan so'ng siz VBA muharriridan chiqishingiz va Outlook makro xavfsizligini past darajaga o'zgartirishingiz mumkin.
7. Keyinroq javob berishingiz keraktart Outlook yangi VBA loyihasini faollashtirish uchun.
8. Oxir-oqibat, bundan buyon Outlook avtomatik ravishda barcha kiruvchi elektron pochta xabarlarining biriktirma fayl nomlarini tekshiradi va ma'lumlarini ma'lum papkalarga ko'chiradi.

PST ma'lumotlaringizni himoya qiling

Bu sadaqaost Outlook korruptsiyaga moyil ekanligi shubhasiz. Shunday qilib, PST ma'lumotlaringizni shikastlanishdan himoya qilish juda qiyin vazifadir. Ammo siz hali ham ba'zi qoidalar va maslahatlarni topishingiz mumkin. Masalan, PST ma'lumotlarining yo'qolishini oldini olish uchun siz muntazam ravishda ma'lumotlarning zaxira nusxasini yaratishda davom etishingiz mumkin. Bundan tashqari, Outlook ishdan chiqqanidan keyin darhol qutqaruvni ta'minlash uchun siz tajribali mutaxassislarni tayyorlashingiz mumkin PST tuzatish asbob, kabi DataNumen Outlook Repair.

Muallif kirish:

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