Outlook VBA ilə xüsusi gedən e-poçtlarda qoşmaları avtomatik yoxlamaq

Bəzən həftəlik işlərinizi bildirmək üçün e-poçtlar kimi xüsusi e-poçtlara tələb olunan qoşmaları əlavə etməyi unuda bilərsiniz. Bu məqalə sizə xüsusi e-poçtları əlavələr olmadan göndərməyin qarşısını almaq üçün pop-up xəbərdarlığını aktivləşdirməyi öyrədəcək.

Outlook 2010 və əvvəlki versiyalardan fərqli olaraq, Outlook 2013, gedən e-poçtlara heç bir fayl əlavə etmədiyiniz zaman sizə xatırlatmaq üçün yerli dəstəyə malikdir. Bu funksiyanı aşağıdakı ekran görüntüsü kimi Outlook Seçimlərində aktivləşdirə bilərsiniz:

Çatışmayan qoşmalar üçün avtomatik xəbərdarlığı aktivləşdirdiyiniz müddətdə hər dəfə e-poçt göndərdiyiniz zaman bir xəbərdarlıq görünəcək. Amma most zaman, həqiqətən, faylları əlavə etmək lazım deyil. Belə hallarda xəbərdarlıq bezdirici olacaq. Burada Outlook VBA vasitəsilə xüsusi gedən e-poçtlarda heç bir qoşma olmadıqda avtomatik xəbərdarlığı necə aktivləşdirəcəyini söyləyəcəyik.

Xüsusi Gedən E-poçtlarda Qoşmaların Avtomatik Yoxlanması

1. Əvvəlcə Outlook-u işə salın və "Developer" sekmesine keçin.
2. "Kod" qrupunda "Visual Basic" düyməsini basın.
3. Sonra yeni açılan “Proqramlar üçün Microsoft Visual Basic” pəncərəsində onu açmaq üçün “ThisOutlookSession” layihəsinə iki dəfə klik etməlisiniz.
4. Daha sonra aşağıdakı kodları “ThisOutlookSession” layihəsinə köçürməlisiniz.

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. Sonra alətlər panelində saxla simgesini basın.
6. Bundan sonra bu kodu imzalamağa davam etməlisiniz.

• Əvvəlcə rəqəmsal sertifikat yaratmalısınız. MS Office daxili yardım proqramı ilə təchiz edilmişdir - "VBA Layihələri üçün Rəqəmsal Sertifikat". Bunu "Start Menyu”.
• Sonra kodu imzalamaq üçün "vizual əsas" pəncərəsinə qayıdın.

7. Bundan sonra, "Visual Basic" dən çıxın və "Developer" sekmesinde "Makro parametrləri" düyməsini basın. “Güvən Mərkəzi” dialoq qutusunda siz yalnız rəqəmsal imzalanmış makroları aktiv etməyi seçməlisiniz. Son olaraq “OK” düyməsini sıxmağı unutmayın.
8. Nəhayət, bir cəhd edə bilərsiniz. Xüsusi alıcı və mövzu ilə, lakin əlavələr olmadan yeni mesaj yaradın. "Göndər" düyməsini kliklədikdə, aşağıdakı şəkildə göstərilən pop-up xəbərdarlıq alacaqsınız:

Outlook məlumatlarınızı qoruyun

Outlook korrupsiyaya meylli olduğundan, Outlook məlumatlarınızı qorumaq üçün səy göstərməlisiniz. Ən yaxşı yol ardıcıl və aktual ehtiyat nüsxəsini yaratmaqdır. Beləliklə, asanlıqla edə bilərsiniz zədələnmiş Outlook məlumatlarını bərpa edin gözlənilməz Outlook qəzasına uğrasa belə ehtiyat nüsxələrindən. Əlavə olaraq, ehtiyat nüsxə uğursuz olarsa, təcrübəli təmir alətindən kömək almaqdan başqa çarəniz yoxdur, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL db xətasını təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com