Outlookda elektron pochta mavzusi sifatida ilova nomini tez-tez ishlatasizmi? Agar shunday bo'lsa, Outlook uni avtomatik ravishda yakunlashiga umid qilishingiz kerak. Ushbu maqola Outlook VBA bilan amalga oshirish uchun qulay usulni taqdim etadi.
Ko'pgina foydalanuvchilar elektron pochta mavzusi qatoriga ilova nomini qo'lda yozishga odatlangan. Bunday holatda, agar Outlook buni avtomatik ravishda amalga oshira olsa, bu ancha qulayroq bo'ladi. Bundan tashqari, ba'zi foydalanuvchilar ko'pincha mavzu qatorini to'ldirishni unutishadi. Shunday qilib, "Yuborish" tugmasini bosganda, ular "mavzu yo'q" ogohlantirish xabarini olishadi. Bunday holda, agar Outlook mavzuni avtomatik ravishda ilova nomi bilan to'ldira olsa, ular zerikarli "mavzu yo'q" ogohlantirishidan qochishlari mumkin. Xulosa qilib aytganda, ko'plab Outlook foydalanuvchilari Outlookning pochta mavzusi qatorini ilova nomi bilan avtomatik ravishda to'ldirishiga imkon beradigan bunday usulni orzu qilishlariga ishonishadi. Yaxshiyamki, Outlook VBA yordamida biz bunga juda osonlikcha erisha olamiz. Mana batafsil VBA kodlari va bosqichlari.
Elektron pochta mavzusi qatorini ilova nomi bilan avtomatik toʻldirish
- Avvalo, siz Outlook-ni ishga tushirishingiz va "Dasturchi" yorlig'iga o'tishingiz mumkin.
- Keyin ushbu yorliq ostida siz VBA muharririni chiqaradigan "Visual Basic" tugmasini bosishingiz kerak.
- Keyingi oynada siz avval o'ng tarafdagi loyihalar ro'yxatida "ThisOutlookSession" loyihasini topishingiz kerak.
- Keyingi loyihani ochish uchun ikki marta bosing. Va keyin unga quyidagi kodlarni ko'chiring.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Shundan so'ng, odatdagidek joriy VBA loyihasiga raqamli sertifikat tayinlashni davom ettirishingiz kerak.
- Birinchidan, raqamli sertifikat yaratish uchun o'rnatilgan "VBA loyihalari uchun raqamli sertifikatlar" yordam dasturidan foydalaning.
- Keyinchalik, joriy makrosga imzo chekishingiz mumkin.
- Keyinchalik VBA muharriridan chiqing va makro sozlamalarini "Raqamli imzolangan makroslar uchun bildirishnomalar, boshqa barcha makrolar o'chirilgan" ga o'zgartiring.
- Nihoyat, siz sinab ko'rishingiz mumkin.
- Yangi elektron pochta yarating.
- Agar siz mavzuni to'ldirmagan bo'lsangiz va fayl qo'shmoqchi bo'lsangiz, quyidagi rasm kabi xabar olasiz:
- “Ha” ni tanlaganingizda, mavzu bir vaqtning o'zida ilova nomi bilan to'ldiriladi.
Tez-tez uchraydigan Outlook muammolari bilan engish
Agar siz Outlook-dan o'nlab yillar davomida foydalangan bo'lsangiz, ko'plab Outlook muammolariga duch kelgan bo'lishingiz kerak. Keyin, ular bilan uchrashganda odatda qanday harakatlar qilasiz? Ularni imkon qadar tezroq aniqlash va yo'q qilish tavsiya etiladi. Buning sababi shundaki, to'plangan muammolar istalgan vaqtda Outlook ma'lumotlaringizga zarar etkazishi mumkin. Shunday qilib, Outlook odatdagidek ishlashi mumkin bo'lsa ham, siz kirish qutisini tuzatish vositasini yoki tashqi vositani qo'llaganingiz ma'qul Outlook PST xatolarni tuzatish yordam dasturikabi DataNumen Outlook Repair, xatolarni aniqlash va hal qilish uchun PST fayllaringizni skanerlash uchun.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc shikastlangan ta'mirlash SQL Server ma'lumotlar bazasi va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com