Kā automātiski izmantot dažādus fontus dažādiem kontiem, sūtot e-pastu programmā Outlook

Ja programmā Outlook esat konfigurējis vairākus e-pasta kontus un vēlaties izejošajos e-pastos izmantot dažādus fontus atbilstoši dažādiem sūtīšanai izmantotajiem e-pasta kontiem, varat izmantot šajā rakstā ieviesto pieeju.

Daudzi lietotāji cer, ka programma Outlook var automātiski atlasīt un izmantot dažādus fontus izejošajos e-pastos, pamatojoties uz dažādiem e-pasta kontiem, kurus viņi izmanto sūtīšanai. Tomēr pēc noklusējuma Outlook nav šādas funkcijas. Par laimi, jūs joprojām to varat saprast, izmantojot VBA kodu. Tagad mēs detalizēti atklāsim šo metodi.

Sūtot e-pastu, automātiski izmantojiet dažādus fontus dažādiem kontiem

1. Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam nākamajā Outlook galvenajā logā jums jānospiež taustiņi “Alt + F11”.
3. Pēc tam ievadīsit jaunu logu - “Microsoft Visual Basic for Applications”.
4. Šajā logā jums jāatrod un jāatver projekts “ThisOutlookSession”.
5. Pēc tam nokopējiet un ielīmējiet šo VBA kodu šajā 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. Pēc tam labāk parakstīt šo kodu.

• Vispirms rīkjoslā noklikšķiniet uz pogas “Rīki”.
• Pēc tam nolaižamajā sarakstā izvēlieties opciju “Digitālais paraksts”.
• Vēlāk jūs varat izpildīt ekrānā redzamos norādījumus, lai veiktu šo uzdevumu.

7. Pēc tam varat iziet no pašreizējā loga un turpināt mainīt Outlook makro iestatījumus, lai atļautu parakstītos VBA projektus.
8. Turpmāk katru reizi, kad sūtāt e-pastu, Outlook automātiski mainīs izejošo e-pastu fontus atbilstoši nosūtīšanas e-pasta kontam.

Sagatavojieties neparedzētai Outlook avārijai

Outlook ievainojamības dēļ lietotājiem, pastāvīgi strādājot ar Outlook, ir jābūt labi sagatavotiem dažādām problēmām. Bez šaubām, viens no svarīgākajiem soļiem ir izveidot konsekventu un atjauninātu Outlook datu dublējumu. Ar šādiem dublējumiem, pat ja sākotnējie Outlook dati avārijas gadījumā tiek bojāti, jūs joprojām varat atgūt Outlook datus no dublējumkopijām ar vislielāko vieglumu. Turklāt ieteicams aprīkot savu Outlook ar spēcīgu labošanas rīku, piemēram, DataNumen Outlook Repair. Tas noderēs, ja dublēšana neizdosies.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar