Qanday qilib Outlook VBA yordamida ma'lum bir jildga yuborilgan elektron pochta xabarlarini avtomatik saqlash mumkin

Outlook yechimlari Sentyabr 29, 2025

Odatiy bo'lib, Outlook yuborilgan elektron pochta xabarlarini "Yuborishlar" papkasida saqlaydi. Muayyan yuborilgan xatlarni standart papkada saqlashni xohlamasangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin.

Ba'zi foydalanuvchilar ba'zi yuborilgan elektron pochta xabarlarini standart "Yuborilgan narsalar" jildida saqlash o'rniga avtomatik ravishda belgilangan papkaga saqlashni xohlashadi. Shunday qilib, ko'pchilik shunga o'xshash amalni taklif qiladigan Outlook qoidasiga murojaat qiladi - quyidagi skrinshotda ko'rsatilgan "nusxasini belgilangan papkaga ko'chirish". Biroq, bu orqali, aslida, asl yuborilgan elektron pochta hali ham "Yuborishlar" jildida saqlanadi. Yuborilgan xatning faqat nusxasi ko'rsatilgan jildga ko'chiriladi. Ko'rinib turibdiki, bu xususiyat haqiqiy ehtiyojlarni qondira olmaydi.

Albatta, foydalanuvchilar yuborilgan elektron pochtani saqlash uchun standart bo'lmagan jildni qo'lda belgilashlari mumkin. Shunchaki "Tanlovlar" yorlig'iga o'ting va "Yuborilgan elementni saqlash" > "Boshqa papka" ni bosing. Ammo bu yondashuv muammoli bo'ladi, chunki foydalanuvchilar har safar jildni qo'lda belgilashlari kerak.

Endi yuqorida aytib o'tilgan ikkala vosita ham samarali emas, nega Outlook VBA-ga qaytmasligingiz kerak? Muayyan yuborilgan elektron pochta xabarlarini ma'lum bir jildga avtomatik saqlash uchun aniq kodlar va qadamlar.

Muayyan yuborilgan elektron pochta xabarlarini ma'lum bir jildga avtomatik saqlash

S gatart bilan Outlook ilovasini ishga tushiring.
Keyin "Alt + F11" tugmachalarini bosishingiz kerak, bu sizga VBA muharriri oynasiga kirishga yordam beradi.
Qalqib chiquvchi "Ilovalar uchun Microsoft Visual Basic" oynasida siz chap tomondagi "ThisOutlookSession" loyihasini topishingiz va ikki marta bosishingiz mumkin.
Ochiq "ThisOutlookSession" loyihasi oynasida keyin unga quyidagi VBA kodlarini nusxalashingiz kerak.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim SentFolder As Folder
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'Specify the sent emails
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Specify the folder for saving the sent emails
          'You can change it as per your needs
          Set SentFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
          Set desFolder = SentFolder.Folders("Test")
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

Keyinchalik, ushbu kodni imzolashingiz va Outlook so'l darajasini past darajaga o'rnatishingiz kerak.
Nihoyat, joriy oynadan chiqishingiz mumkin. Bundan buyon maxsus yuborilgan xatlar avtomatik ravishda belgilangan pochta papkasida saqlanadi.

Qo'shimcha maslahat: Yuborayotganda "Jildni tanlash" dialog oynasini ko'rsating

Ba'zi odamlar yuborilgan elektron pochta xabarlarini saqlash uchun pochta papkasini qo'lda tanlashni xohlashadi. Ammo jildni tanlash uchun har doim "Variant" yorlig'iga o'tish tartibsiz bo'ladi. Bunday holda, ular Outlook jo'natayotganda "Jildni tanlash" dialog oynasini avtomatik ravishda ko'rsatishini xohlashadi. Ushbu talabga javoban, bu erda yana bir VBA kodlari mavjud. Siz uni "ThisOutlookSession" loyihasiga nusxalashingiz mumkin.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim desFolder As Folder
 
    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then
       'specify the email
       If InStr(Item.To, "shirley") > 0 Or InStr(LCase(Item.Subject), "test") > 0 Then
          'Display the “Select Folder” dialog box
          Set desFolder = Application.Session.PickFolder
          Set Item.SaveSentMessageFolder = desFolder
       End If
    End If
End Sub

Bundan buyon, har safar elektron pochta xabarini tugatganingizda va “Yuborish” tugmasini bosganingizda, quyidagi rasmdagi kabi “Jildni tanlash” dialog oynasi avtomatik ravishda ochiladi. O'sha paytda joriy yuborilgan elektron pochtani saqlash uchun jildni belgilashingiz mumkin.

Outlook-ni ta'mirlash

Outlook o'zining bir nechta funktsiyalari uchun juda ko'p maqtovga sazovor bo'ladi. Shunga qaramay, Outlook juda zaif xususiyatga ega bo'lganligi sababli. Bundan tashqari, zararli elektron pochta most Outlook ma'lumotlariga potentsial tahdidlar. Shuning uchun, oddiy Outlook foydalanuvchilari sifatida siz ustunlikni qo'lga kiritganingiz ma'qul Outlook PST pochtani tuzatish vositasikabi DataNumen Outlook Repair. Shunday qilib, siz turli xil Outlook xatolarini tezda hal qilishingiz va Outlook ma'lumotlaringizni yaxshi himoyalangan holda saqlashingiz mumkin.

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 buzilgan SQL Server mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com