Slik bruker du automatisk forskjellige skrifter for forskjellige kontoer når du sender e-post i Outlook

Hvis du har konfigurert flere e-postkontoer i Outlook og ønsker å bruke forskjellige fonter i utgående e-poster i henhold til forskjellige e-postkontoer som brukes til å sende, kan du bruke tilnærmingen som er introdusert i denne artikkelen.

Mange brukere håper at Outlook automatisk kan velge og bruke forskjellige fonter i utgående e-poster basert på forskjellige e-postkontoer som de bruker til å sende. Men som standard har ikke Outlook en slik funksjon. Heldigvis kan du fortsatt innse dette ved hjelp av VBA-kode. Nå vil vi avsløre denne metoden i detalj.

Bruk automatisk forskjellige skrifter for forskjellige kontoer når du sender e-post

1. Først starter du Outlook-programmet ditt.
2. Deretter, i det påfølgende Outlook-hovedvinduet, bør du trykke "Alt + F11" -tastene.
3. Deretter går du inn i et nytt vindu - "Microsoft Visual Basic for Applications".
4. I dette vinduet må du finne og åpne "ThisOutlookSession"-prosjektet.
5. Deretter kopierer og limer du inn følgende VBA-kode i dette prosjektet.

'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. Etter det er det bedre å signere denne koden.

• Først klikker du på "Verktøy"-knappen i verktøylinjen.
• Velg deretter alternativet "Digital signatur" fra rullegardinlisten.
• Senere kan du følge instruksjonene på skjermen for å fullføre denne oppgaven.

7. Deretter kan du avslutte det gjeldende vinduet og fortsette å endre Outlook-makroinnstillingene for å tillate de signerte VBA-prosjektene.
8. Fra nå av, hver gang du sender en e-post, vil Outlook automatisk endre skriftene i de utgående e-postene i henhold til e-postkontoen for sending.

Hold deg forberedt på uventet Outlook-krasj

På grunn av Outlooks sårbarhet må brukere være godt forberedt på ulike problemer når de håndterer Outlook hele tiden. Uten tvil er et av de viktigste trinnene å lage en konsekvent og oppdatert sikkerhetskopi av Outlook-data. Med slike sikkerhetskopier kan du fortsatt, selv om de originale Outlook-dataene blir skadet i et krasj. gjenopprette Outlook data fra sikkerhetskopier med største letthet. I tillegg er det også lurt å utstyre Outlook med et kraftig fikseringsverktøy, for eksempel DataNumen Outlook Repair. Det vil komme godt med når sikkerhetskopiering mislykkes.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med