Ako automaticky používať rôzne písma pre rôzne účty pri odosielaní e-mailov v programe Outlook

Ak ste vo svojom Outlooku nakonfigurovali niekoľko e-mailových účtov a chcete v odchádzajúcich e-mailoch používať rôzne písma podľa rôznych e-mailových účtov používaných na odosielanie, môžete využiť prístup uvedený v tomto článku.

Mnoho používateľov dúfa, že program Outlook môže automaticky vyberať a používať rôzne písma v odchádzajúcich e-mailoch na základe rôznych e-mailových účtov, ktoré používajú na odosielanie. Predvolene však Outlook takúto funkciu nemá. Našťastie si to stále môžete uvedomiť pomocou kódu VBA. Teraz túto metódu podrobne odhalíme.

Automaticky pri odosielaní e-mailov používať rôzne písma pre rôzne účty

1. Najprv spustite aplikáciu Outlook.
2. V nasledujúcom hlavnom okne programu Outlook by ste potom mali stlačiť klávesy „Alt + F11“.
3. Ďalej vstúpite do nového okna - „Microsoft Visual Basic for Applications“.
4. V tomto okne budete požiadaní, aby ste našli a otvorili projekt „ThisOutlookSession“.
5. Následne skopírujte a prilepte nasledujúci kód VBA do tohto projektu.

'Occurs when you click "Send" button
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Use different fonts based on different send using account
       'Change the accounts and fonts as per your needs
       Select Case objMail.SendUsingAccount
              Case "johnsmith@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Times New Roman"
                        .Size = 13
                        .ColorIndex = wdBlue
                   End With
              Case "team1@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Cambria"
                        .Size = 10
                        .ColorIndex = wdBlack
                   End With
              Case "johnsmith_jonny@outlook.com"
                   With objMailDocument.Range.Font
                        .Name = "Segoe Script"
                        .Size = 8
                        .ColorIndex = wdDarkYellow
                   End With
      End Select
 
      objMail.Save
    End If
End Sub

6. Potom je lepšie tento kód podpísať.

• Najskôr kliknite na tlačidlo „Nástroje“ na paneli nástrojov.
• Potom z rozbaľovacieho zoznamu vyberte možnosť „Digitálny podpis“.
• Neskôr môžete túto úlohu dokončiť podľa pokynov na obrazovke.

7. Potom môžete opustiť aktuálne okno a pokračovať v zmene nastavení makra programu Outlook, aby ste povolili podpísané projekty VBA.
8. Odteraz bude program Outlook pri každom odosielaní e-mailu automaticky meniť písma odchádzajúcich e-mailov podľa e-mailového účtu na odoslanie.

Pripravte sa na neočakávané zlyhanie aplikácie Outlook

Vzhľadom na zraniteľnosť Outlooku musia byť používatelia dobre pripravení na rôzne problémy, ktoré s ním môžu riešiť neustále. Jedným z najdôležitejších krokov je bezpochyby vytvorenie konzistentnej a aktuálnej zálohy údajov Outlooku. S takýmito zálohami, aj keď sa pôvodné údaje Outlooku pri páde poškodia, stále môžete... obnoviť Outlook dáta zo záloh s maximálnou ľahkosťou. Okrem toho je tiež vhodné vybaviť si Outlook výkonným nástrojom na opravu, ako napríklad DataNumen Outlook Repair. Bude sa to hodiť, keď zlyhajú zálohy.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane korupcia sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S