Kako automatski koristiti različite fontove za različite račune prilikom slanja e-pošte u programu Outlook

Ako ste konfigurirali nekoliko računa e-pošte u svom Outlooku i željeli biste koristiti različite fontove u odlaznim porukama e-pošte prema različitim računima e-pošte koji se koriste za slanje, možete upotrijebiti pristup predstavljen u ovom članku.

Mnogi se korisnici nadaju da Outlook može automatski odabrati i koristiti različite fontove u odlaznim e-porukama na temelju različitih računa e-pošte koje koriste za slanje. Međutim, Outlook prema zadanim postavkama nema takvu značajku. Srećom, to još uvijek možete realizirati uz pomoć VBA koda. Sada ćemo detaljno otkriti ovu metodu.

Automatsko korištenje različitih fontova za različite račune prilikom slanja e-pošte

1. Prvo pokrenite Outlook aplikaciju.
2. Zatim, u sljedećem glavnom prozoru Outlooka, trebate pritisnuti tipke "Alt + F11".
3. Zatim ćete otvoriti novi prozor – “Microsoft Visual Basic za aplikacije”.
4. U ovom prozoru od vas će se tražiti da pronađete i otvorite projekt “ThisOutlookSession”.
5. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj projekt.

'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. Nakon toga, bolje je da potpišete ovaj kod.

• Najprije kliknite gumb "Alati" na alatnoj traci.
• Zatim odaberite opciju "Digitalni potpis" s padajućeg popisa.
• Kasnije možete slijediti upute na zaslonu kako biste dovršili ovaj zadatak.

7. Zatim možete izaći iz trenutnog prozora i nastaviti s promjenom postavki Outlook makronaredbi kako biste dopustili potpisane VBA projekte.
8. Od sada, svaki put kada pošaljete e-poštu, Outlook će automatski promijeniti fontove u odlaznim e-porukama prema računu e-pošte za slanje.

Budite spremni za neočekivano rušenje programa Outlook

Zbog ranjivosti Outlooka, korisnici moraju biti dobro pripremljeni za razne probleme kada stalno koriste Outlook. Bez ikakve sumnje, jedan od najvažnijih koraka je izrada dosljedne i ažurne sigurnosne kopije Outlook podataka. S takvim sigurnosnim kopijama, čak i ako se izvorni Outlook podaci oštete uslijed pada sustava, i dalje možete... oporaviti Outlook podatke iz sigurnosnih kopija s najvećom lakoćom. Osim toga, preporučljivo je opremiti Outlook moćnim alatom za popravak, kao što je DataNumen Outlook Repair. Dobro će doći kada sigurnosna kopija ne uspije.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com