Outlook VBA ile Belirli Giden E-postalardaki Ekleri Otomatik Olarak Kontrol Etme

Bazen, haftalık çalışmalarınızı bildirmek için e-postalar gibi belirli e-postalara gerekli ekleri eklemeyi unutabilirsiniz. Bu makale, belirli e-postaları ekleri olmadan göndermenizi önlemek için bir açılır pencere uyarısını etkinleştirmeyi öğretecektir.

Outlook 2010 ve önceki sürümlerden farklı olarak Outlook 2013, giden e-postalara herhangi bir dosya eklemediğinizde size hatırlatan yerel bir desteğe sahiptir. Bu özelliği, aşağıdaki ekran görüntüsü gibi Outlook Seçeneklerinde etkinleştirebilirsiniz:

Eklerin eksik olması durumunda otomatik uyarıyı etkinleştirdiğiniz sürece, her e-posta gönderdiğinizde bir uyarı açılır. Ancak çoğu zaman gerçekten dosya eklemeniz gerekmez. Bu gibi durumlarda uyarı can sıkıcı olacaktır. Burada, Outlook VBA kullanarak belirli giden e-postalarda ek bulunmadığında otomatik uyarıyı nasıl etkinleştireceğinizi anlatacağız.

Belirli Giden E-postalardaki Ekleri Otomatik Kontrol Et

1. En başta, Outlook'u başlatın ve “Geliştirici” sekmesine geçin.
2. "Kod" grubundaki "Visual Basic" düğmesine tıklayın.
3. Daha sonra yeni açılan “Microsoft Visual Basic for Applications” penceresinde “ThisOutlookSession” projesine çift tıklayarak onu açmalısınız.
4. Ardından aşağıdaki kodları “ThisOutlookSession” projesine kopyalamalısınız.

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. Daha sonra araç çubuğundaki kaydet simgesine tıklayın.
6. Bundan sonra, bu kodu imzalamaya devam etmelisiniz.

• Öncelikle dijital bir sertifika oluşturmalısınız. MS Office, "VBA Projeleri için Dijital Sertifika" adlı yerleşik bir yardımcı programla birlikte gelir. Bunu "Başlat Menüsü"nde "vba" aratarak bulabilirsiniz.
• Ardından, kodu imzalamak için "visual basic" penceresine geri dönün.

7. Bundan sonra, “Visual Basic” ten çıkın ve “Geliştirici” sekmesi altındaki “Makro ayarları” düğmesine tıklayın. "Güven Merkezi" iletişim kutusunda, yalnızca dijital olarak imzalanmış makroları etkinleştirmeyi seçmelisiniz. Son olarak “Tamam”a tıklamayı unutmayın.
8. Sonunda bir deneyebilirsin. Belirli bir alıcısı ve konusu olan ancak ekleri olmayan yeni bir mesaj oluşturun. “Gönder” düğmesine tıkladığınızda, aşağıdaki resimde gösterilen bir açılır pencere uyarısı alacaksınız:

Outlook Verilerinizi Koruyun

Bu Outlook bozulmalara eğilimli olduğundan, Outlook verilerinizi korumak için çaba göstermelisiniz. En iyi yol, tutarlı ve güncel bir yedekleme yapmaktır. Bu nedenle, kolayca yapabilirsiniz bozuk Outlook verilerini kurtar beklenmedik bir Outlook çökmesine maruz kalsa bile yedeklemelerden. Ek olarak, yedekleme ne yazık ki başarısız olursa, deneyimli bir onarım aracından yardım almaktan başka seçeneğiniz yoktur. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL db hatası ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com