Kaip automatiškai naudoti skirtingus šriftus skirtingoms paskyroms siunčiant el

Jei „Outlook“ sukonfigūravote kelias el. pašto paskyras ir norite naudoti skirtingus šriftus siunčiamuose el. laiškuose pagal skirtingas siuntimui naudojamas el. pašto paskyras, galite naudoti šiame straipsnyje pateiktą metodą.

Daugelis vartotojų tikisi, kad „Outlook“ gali automatiškai pasirinkti ir naudoti skirtingus šriftus siunčiamuose el. laiškuose pagal skirtingas el. pašto paskyras, kurias jie naudoja siuntimui. Tačiau pagal numatytuosius nustatymus „Outlook“ tokios funkcijos neturi. Laimei, jūs vis dar galite tai suprasti naudodami VBA kodą. Dabar mes išsamiai atskleisime šį metodą.

Siųsdami el. laišką automatiškai naudokite skirtingus šriftus skirtingoms paskyroms

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada kitame pagrindiniame „Outlook“ lange turėtumėte paspausti „Alt + F11“ klavišus.
3. Tada pateksite į naują langą – „Microsoft Visual Basic for Applications“.
4. Šiame lange turėsite rasti ir atidaryti projektą „ThisOutlookSession“.
5. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį 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. Po to geriau pasirašyti šį kodą.

• Pirmiausia įrankių juostoje spustelėkite mygtuką „Įrankiai“.
• Tada išskleidžiamajame sąraše pasirinkite parinktį „Skaitmeninis parašas“.
• Vėliau galite vadovautis ekrane pateikiamomis instrukcijomis, kad užbaigtumėte šią užduotį.

7. Tada galite išeiti iš dabartinio lango ir keisti „Outlook“ makrokomandos nustatymus, kad leistų pasirašyti VBA projektus.
8. Nuo šiol kiekvieną kartą, kai siunčiate el. laišką, „Outlook“ automatiškai pakeis siunčiamų el. laiškų šriftus pagal siuntimo el. pašto paskyrą.

Būkite pasirengę netikėtai „Outlook“ avarijai

Dėl „Outlook“ pažeidžiamumo vartotojai turi būti gerai pasiruošę įvairioms problemoms, kai nuolat dirba su „Outlook“. Be jokios abejonės, vienas iš svarbiausių žingsnių yra nuolatinės ir atnaujintos „Outlook“ duomenų atsarginės kopijos kūrimas. Turėdami tokias atsargines kopijas, net jei originalūs „Outlook“ duomenys sugadinami gedimo atveju, vis tiek galite... atkurti Outlook duomenis iš atsarginių kopijų itin lengvai. Be to, patartina „Outlook“ programoje naudoti galingą taisymo įrankį, pvz. DataNumen Outlook Repair. Tai pravers, kai nepavyks sukurti atsarginių kopijų.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com