Jak odesílat e-maily ve formátu prostého textu pouze těm v konkrétní doméně prostřednictvím aplikace Outlook VBA

Někteří uživatelé by rádi posílali e-maily ve formátu prostého textu pouze příjemcům, jejichž e-mailové adresy jsou v konkrétní doméně. Tento článek představí chytrou metodu, jak toho dosáhnout.

V mém předchozím článku „Jak vždy odesílat e-maily aplikace Outlook ve formátu prostého textu pro konkrétní kontakty“, můžete získat 2 způsoby odesílání e-mailů ve formátu prostého textu pouze konkrétním kontaktům. Pokud chcete posílat takové e-maily všem kontaktům v konkrétní poštovní doméně, použití 2 způsobů v tomto článku bude trochu hloupé a problematické. Proto se zde s vámi podělíme o jiný způsob, který je mnohem efektivnější.

Posílejte e-maily ve formátu prostého textu pouze uživatelům v konkrétní doméně

1. Nejprve byste měli spustit aplikaci Outlook.
2. Poté musíte stisknout tlačítka „Alt + F11“ na hlavní obrazovce aplikace Outlook.
3. Dále se otevře okno „Microsoft Visual Basic for Applications“. V něm byste měli otevřít projekt „ThisOutlookSession“.
4. Následně zkopírujte a vložte následující kód VBA do tohoto projektu.

'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. Poté musíte toto makro podepsat. Klikněte na „Nástroje“ > „Digitální podpis“ a dokončete postup podle průvodce na obrazovce.
6. Později opusťte aktuální okno. Poté přejděte na kartu „Vývojář“ a klepněte na tlačítko „Zabezpečení maker“. V novém vyskakovacím dialogovém okně byste měli změnit nastavení tak, aby byla povolena digitálně podepsaná makra.
7. Konečně si můžete zastřelit. Vytvořte a vytvořte e-mail jednomu příjemci v konkrétní e-mailové doméně. A kliknutím na tlačítko „Odeslat“ zprávu odešlete. V tomto procesu Outlook automaticky změní formát e-mailu na prostý text.

Obnovte poškozené soubory aplikace Outlook

Aplikace Outlook je zranitelná vůči virové infekci, útokům malwaru, přepětí a tak dále. Proto bychom se měli naučit několik tipů, jak obnovit data aplikace Outlook po poškození. Nejprve byste měli zkontrolovat zálohy. Pokud je záloha příliš stará nebo ji nelze obnovit, můžete použít vestavěný nástroj – Scanpst.exe. Samozřejmě, nástroj pro opravu doručené pošty není vždy efektivní. Proto si raději připravte spolehlivý a přesvědčivý externí nástroj, např DataNumen Outlook Repair. Důrazně se doporučuje kvůli jeho vysoké obnovitelnosti.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com