Outlook VBA yordamida chiquvchi xatlardagi qo'shimchalarni avtomatik tekshirish qanday

Ba'zan, haftalik ishlaringiz haqida xabar berish uchun elektron pochta xabarlari kabi maxsus elektron pochta xabarlariga kerakli qo'shimchalarni qo'shishni unutishingiz mumkin. Ushbu maqola sizga maxsus elektron pochta xabarlarini qo'shimchalarsiz yuborishning oldini olish uchun qalqib chiquvchi ogohlantirishni faollashtirishni o'rgatadi.

Outlook 2010 va oldingi versiyalaridan farqli o'laroq, Outlook 2013 chiquvchi elektron pochta xabarlariga hech qanday fayl biriktirmaganligingizni eslatish uchun mahalliy yordamga ega. Ushbu xususiyatni quyidagi skrinshot kabi Outlook parametrlarida yoqishingiz mumkin:

Yo'qolgan qo'shimchalar haqida avtomatik ogohlantirishni yoqsangiz, har safar elektron pochta xabarini yuborganingizda ogohlantirish paydo bo'ladi. Lekin ko'p hollarda siz fayllarni biriktirishingiz shart emas. Bunday hollarda ogohlantirish zerikarli bo'ladi. Bu yerda biz sizga Outlook VBA yordamida ma'lum chiquvchi elektron pochtalarda qo'shimchalar bo'lmaganda avtomatik ogohlantirishni qanday yoqishni aytib beramiz.

Muayyan chiquvchi xatlardagi qo'shimchalarni avtomatik tekshirish

1. Eng boshida Outlook-ni ishga tushiring va "Tuzuvchi" yorlig'iga o'ting.
2. "Kod" guruhidagi "Visual Basic" tugmasini bosing.
3. Keyin yangi qalqib chiquvchi "Ilovalar uchun Microsoft Visual Basic" oynasida uni ochish uchun "ThisOutlookSession" loyihasini ikki marta bosishingiz kerak.
4. Keyinchalik, quyidagi kodlarni "ThisOutlookSession" loyihasiga nusxalashingiz kerak.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Keyin asboblar panelidagi saqlash belgisini bosing.
6. Shundan so'ng siz ushbu kodni imzolashni davom ettirishingiz kerak.

• Avvalo, siz raqamli sertifikat yaratishingiz kerak. MS Office o'rnatilgan yordamchi dastur - "VBA loyihalari uchun raqamli sertifikat" bilan birga keladi. Buni "Boshlash menyusi"da "vba" ni qidirish orqali topishingiz mumkin.
• Keyin kodni imzolash uchun "vizual asosiy" oynasiga qayting.

7. Shundan so'ng, "Visual Basic" dan chiqing va "Dasturchi" yorlig'i ostidagi "Makro sozlamalari" tugmasini bosing. "Ishonch markazi" muloqot oynasida siz faqat raqamli imzolangan makroslarni yoqishni tanlashingiz kerak. Oxirgi marta "OK" tugmasini bosishni unutmang.
8. Nihoyat, siz sinab ko'rishingiz mumkin. Muayyan qabul qiluvchi va mavzu bilan, lekin qo'shimchalarsiz yangi xabar yarating. "Yuborish" tugmasini bosganingizda, siz quyidagi rasmda ko'rsatilgan qalqib chiquvchi ogohlantirish olasiz:

Outlook ma'lumotlaringizni himoyalangan holda saqlang

Ushbu Outlook korruptsiyaga moyil bo'lganligi sababli, Outlook ma'lumotlaringizni himoya qilish uchun harakat qilishingiz kerak. Eng yaxshi usul - doimiy va dolzarb zaxira nusxasini yaratish. Shunday qilib, siz osongina qila olasiz buzilgan Outlook ma'lumotlarini tiklash kutilmagan Outlook ishdan chiqqan taqdirda ham zaxira nusxalaridan. Bundan tashqari, agar zaxira nusxasi afsuski muvaffaqiyatsiz bo'lsa, sizda tajribali ta'mirlash vositasidan yordam olishdan boshqa tanlovingiz yo'q. 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 JB xatosini tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com