Hoe u automatisch verschillende lettertypen voor verschillende accounts kunt gebruiken bij het verzenden van e-mail in Outlook

Als u meerdere e-mailaccounts in uw Outlook heeft geconfigureerd en u wilt verschillende lettertypen gebruiken in uitgaande e-mails volgens verschillende e-mailaccounts die worden gebruikt voor het verzenden, kunt u de aanpak gebruiken die in dit artikel is geïntroduceerd.

Veel gebruikers hopen dat Outlook automatisch verschillende lettertypen kan selecteren en gebruiken in uitgaande e-mails op basis van verschillende e-mailaccounts die ze gebruiken om te verzenden. Standaard heeft Outlook zo'n functie echter niet. Gelukkig kun je dit nog steeds realiseren met behulp van VBA-code. Nu zullen we deze methode in detail onthullen.

Gebruik automatisch verschillende lettertypen voor verschillende accounts bij het verzenden van e-mail

1. Start allereerst de Outlook-applicatie.
2. Vervolgens moet u in het volgende hoofdvenster van Outlook op de toetsen "Alt + F11" drukken.
3. Vervolgens komt u in een nieuw venster - "Microsoft Visual Basic for Applications".
4. In dit venster zou u het project "ThisOutlookSession" moeten zoeken en openen.
5. Kopieer en plak vervolgens de volgende VBA-code in dit project.

'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. Daarna kunt u deze code beter ondertekenen.

• Klik eerst op de knop "Extra" in de werkbalk.
• Kies vervolgens de optie "Digitale handtekening" in de vervolgkeuzelijst.
• Later kunt u de instructies op het scherm volgen om deze taak te voltooien.

7. Vervolgens kunt u het huidige venster verlaten en doorgaan met het wijzigen van uw Outlook-macro-instellingen om de ondertekende VBA-projecten toe te staan.
8. Vanaf nu zal Outlook elke keer dat u een e-mail verzendt, automatisch de lettertypen in de uitgaande e-mails wijzigen volgens het e-mailaccount voor verzending.

Blijf voorbereid op een onverwachte crash in Outlook

Vanwege de kwetsbaarheid van Outlook moeten gebruikers altijd goed voorbereid zijn op diverse problemen bij het gebruik ervan. Een van de belangrijkste stappen is ongetwijfeld het maken van een regelmatige en actuele back-up van uw Outlook-gegevens. Met dergelijke back-ups kunt u, zelfs als de originele Outlook-gegevens beschadigd raken door een crash, uw gegevens nog steeds gebruiken. Outlook herstellen Gegevens uit back-ups kunnen met het grootste gemak worden hersteld. Daarnaast is het raadzaam om uw Outlook uit te rusten met een krachtige hersteltool, zoals... DataNumen Outlook Repair. Het is handig wanneer back-ups mislukken.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com