Как да изпращате обикновени текстови имейли само на тези в определен домейн чрез Outlook VBA

Някои потребители биха искали да изпращат имейли с обикновен текст само до получателите, чиито имейл адреси са в определен домейн. Тази статия ще представи интелигентен метод за получаване.

В предишната ми статия „Как винаги да изпращате имейли на Outlook в обикновен текстов формат за конкретни контакти”, Можете да получите 2 подхода за изпращане на имейли с обикновен текст само до конкретни контакти. Ако искате да изпратите такива имейли до всички контакти в определен пощенски домейн, използването на двата начина в тази статия ще бъде малко глупаво и обезпокоително. Следователно тук ще ви споделим друг начин, който е много по-ефективен.

Изпращайте обикновени текстови имейли само на тези в определен домейн

1. На първо място, трябва да стартирате приложението си Outlook.
2. След това трябва да натиснете бутоните „Alt + F11“ на главния екран на Outlook.
3. След това ще се появи прозорецът „Microsoft Visual Basic for Applications“. В него трябва да отворите проекта “ThisOutlookSession”.
4. Впоследствие копирайте и поставете следния VBA код в този проект.

'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

5. След това трябва да подпишете този макрос. Щракнете върху „Инструменти“> „Цифров подпис“ и следвайте екранния съветник, за да го завършите.
6. По-късно излезте от текущия прозорец. След това преминете към раздела „Разработчик“ и докоснете бутона „Макросигурност“. В новия изскачащ диалогов прозорец трябва да промените настройките, за да активирате макроси с цифрово подписване.
7. И накрая, можете да направите снимка. Създайте и съставете имейл на един получател в определен имейл домейн. И натиснете бутона „Изпрати“, за да го изпратите. В този процес Outlook автоматично ще промени формата на имейл на Plain Text.

Възстановяване на повредени файлове на Outlook

Outlook е уязвим към вирусна инфекция, злонамерени атаки, пренапрежение и т.н. По този начин трябва да научим някои съвети за възстановяване на данни на Outlook след повреда. Отначало трябва да проверите архивите си. Ако архивирането е твърде старо или не може да бъде възстановено, можете да използвате вградения инструмент - Scanpst.exe. Разбира се, инструмент за ремонт на входящата кутия не винаги е ефективен. По този начин е по-добре да подготвите надежден и убедителен външен инструмент, като DataNumen Outlook Repair. Препоръчва се силно поради високата степен на възстановяване.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com