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. For det første, start Outlook-applikasjonen din.
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 holde seg godt forberedt på ulike problemer når de arbeider med Outlook hele tiden. Uten tvil er en av de most viktige trinn er å lage en konsistent og oppdatert sikkerhetskopi for Outlook-data. Med slike sikkerhetskopier kan du fortsatt gjøre det, selv om de originale Outlook-dataene blir skadet ved krasj gjenopprette Outlook data fra sikkerhetskopier med utmost letthet. I tillegg er det også tilrådelig å utstyre Outlook med et kraftig fikseverktøy, som f 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