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

Ako ste konfigurisali nekoliko naloga e-pošte u svom Outlooku i želite da koristite različite fontove u odlaznim porukama e-pošte prema različitim nalozima e-pošte koji se koriste za slanje, možete koristiti pristup predstavljen u ovom članku.

Mnogi korisnici se nadaju da Outlook može automatski odabrati i koristiti različite fontove u odlaznim porukama e-pošte na osnovu različitih naloga e-pošte koje koriste za slanje. Međutim, Outlook prema zadanim postavkama nema takvu funkciju. Srećom, to još uvijek možete shvatiti 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 programa Outlook, trebali biste pritisnuti tipke “Alt + F11”.
3. Zatim ćete ući u novi prozor – “Microsoft Visual Basic za aplikacije”.
4. U ovom prozoru od vas će se tražiti da pronađete i otvorite projekat “ThisOutlookSession”.
5. Nakon toga, kopirajte i zalijepite sljedeći VBA kod u ovaj projekat.

'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.

• Prvo kliknite na dugme „Alati“ na traci sa alatkama.
• Zatim odaberite opciju “Digitalni potpis” sa padajuće liste.
• Kasnije možete slijediti upute na ekranu da dovršite ovaj zadatak.

7. Zatim možete izaći iz trenutnog prozora i nastaviti sa promjenom postavki Outlook makroa da biste dozvolili potpisane VBA projekte.
8. Od sada, svaki put kada pošaljete e-poštu, Outlook će automatski promijeniti fontove u odlaznim porukama e-pošte prema nalogu e-pošte za slanje.

Budite spremni za neočekivani pad Outlooka

Zbog ranjivosti Outlooka, korisnici moraju biti dobro pripremljeni za razne probleme kada stalno rade s Outlookom. Bez ikakve sumnje, jedan od najvažnijih koraka je pravljenje dosljedne i ažurne sigurnosne kopije Outlook podataka. S takvim sigurnosnim kopijama, čak i ako se originalni Outlook podaci oštete uslijed pada sistema, 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 popravke, kao što je DataNumen Outlook Repair. Dobro će doći kada sigurnosna kopija ne uspije.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com