Outlook VBA vasitəsilə yalnız müəyyən bir domendə olanlara düz mətn e-poçtlarını necə göndərmək olar

İndi paylaş:

Bəzi istifadəçilər Düz Mətn e-poçtlarını yalnız e-poçt ünvanları müəyyən bir domendə olan alıcılara göndərmək istəyirlər. Bu məqalə onu əldə etmək üçün ağıllı bir üsul təqdim edəcəkdir.

Əvvəlki yazımda “Xüsusi Kontaktlar üçün Həmişə Outlook E-poçtlarını Düz ​​Mətn Formatında Necə Göndərmək olar”, yalnız xüsusi kontaktlara Düz Mətn e-poçtlarını göndərmək üçün 2 yanaşma əldə edə bilərsiniz. Bu cür e-poçtları müəyyən bir poçt domenindəki bütün kontaktlara göndərmək istəyirsinizsə, bu məqalədəki 2 yoldan istifadə etmək bir az axmaq və əziyyətli olacaq. Beləliklə, burada daha təsirli olan başqa bir yolu sizinlə paylaşacağıq.

Outlook VBA vasitəsilə yalnız müəyyən bir domendə olanlara düz mətn e-poçtları göndərin

Düz Mətn E-poçtlarını Yalnız Xüsusi Domendə olanlara Göndərin

  1. Əvvəlcə Outlook proqramını işə salmalısınız.
  2. Sonra, Outlook əsas ekranında "Alt + F11" düymələrini basmalısınız.
  3. Sonra "Proqramlar üçün Microsoft Visual Basic" pəncərəsi açılacaq. Orada "ThisOutlookSession" layihəsini açmalısınız.
  4. Sonradan aşağıdakı VBA kodunu kopyalayıb bu layihəyə yapışdırın.
'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

VBA Kodu - Düz Mətn E-poçtlarını Yalnız Xüsusi Domendə olanlara göndərin

  1. Bundan sonra bu makronu imzalamalısınız. “Alətlər” > “Rəqəmsal İmza” üzərinə klikləyin və onu tamamlamaq üçün ekrandakı sehrbazı izləyin.
  2. Daha sonra cari pəncərədən çıxın. Sonra "Developer" sekmesine keçin və "Makro Təhlükəsizlik" düyməsini vurun. Yeni açılan informasiya qutusunda rəqəmsal imzalanmış makroları aktivləşdirmək üçün parametrləri dəyişdirməlisiniz.
  3. Nəhayət, bir atış edə bilərsiniz. Xüsusi e-poçt domenində bir alıcıya e-poçt yaradın və yazın. Və onu göndərmək üçün "Göndər" düyməsini basın. Bu prosesdə Outlook e-poçt formatını avtomatik olaraq Düz Mətnə dəyişəcək.

Zədələnmiş Outlook fayllarını bərpa edin

Outlook virus infeksiyasına, zərərli proqram hücumlarına, güc artımına və s. qarşı həssasdır. Beləliklə, korrupsiyadan sonra Outlook məlumatlarını bərpa etmək üçün bəzi məsləhətləri öyrənməliyik. Əvvəlcə ehtiyat nüsxələrinizi yoxlamalısınız. Əgər ehtiyat nüsxə çox köhnədirsə və ya bərpa olunmursa, daxili alətdən - Scanpst.exe-dən istifadə edə bilərsiniz. Təbii ki, inbox təmir aləti həmişə təsirli olmur. Beləliklə, daha yaxşı kimi etibarlı və etibarlı bir xarici alət hazırlamalısınız DataNumen Outlook Repair. Yüksək bərpa sürətinə görə yüksək tövsiyə olunur.

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 zədələnmiş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com

İndi paylaş:

Şərhlər bağlıdır.