Kako samodejno uporabiti različne pisave za različne račune pri pošiljanju e-pošte v programu Outlook

Če ste v Outlooku konfigurirali več e-poštnih računov in želite v odhodnih e-poštnih sporočilih uporabljati različne pisave glede na različne e-poštne račune, ki se uporabljajo za pošiljanje, lahko uporabite pristop, predstavljen v tem članku.

Mnogi uporabniki upajo, da lahko Outlook samodejno izbere in uporablja različne pisave v odhodnih e-poštnih sporočilih na podlagi različnih e-poštnih računov, ki jih uporabljajo za pošiljanje. Vendar Outlook privzeto nima take funkcije. Na srečo lahko to še vedno spoznate s pomočjo kode VBA. Zdaj bomo to metodo podrobno razkrili.

Samodejno uporabite različne pisave za različne račune pri pošiljanju e-pošte

1. Najprej zaženite aplikacijo Outlook.
2. Nato v naslednjem glavnem oknu programa Outlook pritisnite tipki “Alt + F11”.
3. Nato odprete novo okno - »Microsoft Visual Basic for Applications«.
4. V tem oknu boste morali najti in odpreti projekt »ThisOutlookSession«.
5. Nato v ta projekt kopirajte in prilepite naslednjo kodo VBA.

'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. Po tem je bolje, da podpišete to kodo.

• Najprej v orodni vrstici kliknite gumb »Orodja«.
• Nato na spustnem seznamu izberite možnost »Digital Signature«.
• Kasneje lahko sledite navodilom na zaslonu, da dokončate to nalogo.

7. Nato lahko zaprete trenutno okno in nadaljujete s spreminjanjem nastavitev makra Outlook, da omogočite podpisane projekte VBA.
8. Od zdaj naprej bo Outlook vsakič, ko boste poslali e-pošto, samodejno spreminjal pisave v odhodnih e-poštnih sporočilih v skladu z e-poštnim računom za pošiljanje.

Bodite pripravljeni na nepričakovano zrušitev Outlooka

Zaradi ranljivosti Outlooka morajo biti uporabniki dobro pripravljeni na različne težave, ko nenehno delajo z Outlookom. Nedvomno je eden najpomembnejših korakov ustvarjanje dosledne in posodobljene varnostne kopije podatkov v Outlooku. S takimi varnostnimi kopijami lahko, tudi če se izvirni podatki v Outlooku med sesutjem poškodujejo, še vedno ... obnoviti Outlook podatke iz varnostnih kopij z največjo lahkoto. Poleg tega je priporočljivo, da svoj Outlook opremite z zmogljivim orodjem za popravljanje, kot je DataNumen Outlook Repair. Prišel bo prav, ko varnostne kopije ne uspejo.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql korupcije in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com