Kuinka käyttää eri fontteja automaattisesti eri tileille, kun lähetät sähköpostia Outlookissa

Jos olet määrittänyt useita sähköpostitilejä Outlookissa ja haluat käyttää erilaisia ​​kirjasimia lähtevissä sähköposteissa lähetykseen käytettyjen eri sähköpostitilien mukaan, voit käyttää tässä artikkelissa esitettyä lähestymistapaa.

Monet käyttäjät toivovat, että Outlook voi automaattisesti valita ja käyttää erilaisia ​​kirjasimia lähtevissä sähköposteissa eri sähköpostitilien perusteella, joita he käyttävät lähettämiseen. Oletuksena Outlookissa ei kuitenkaan ole tällaista ominaisuutta. Onneksi voit silti ymmärtää tämän VBA-koodin avulla. Nyt paljastamme tämän menetelmän yksityiskohtaisesti.

Käytä eri fontteja automaattisesti eri tileille, kun lähetät sähköpostia

1. Käynnistä ensin Outlook-sovelluksesi.
2. Sitten seuraavassa Outlookin pääikkunassa sinun on painettava "Alt + F11" -näppäimiä.
3. Seuraavaksi syötät uuden ikkunan - "Microsoft Visual Basic for Applications".
4. Tässä ikkunassa sinun on löydettävä ja avattava ThisOutlookSession-projekti.
5. Kopioi ja liitä seuraava VBA-koodi tähän projektiin.

'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. Sen jälkeen sinun on parempi allekirjoittaa tämä koodi.

• Napsauta ensin työkalurivin Työkalut-painiketta.
• Valitse sitten "Digitaalinen allekirjoitus" -vaihtoehto avattavasta luettelosta.
• Myöhemmin voit suorittaa tämän tehtävän noudattamalla näytön ohjeita.

7. Sitten voit poistua nykyisestä ikkunasta ja jatkaa Outlook-makroasetusten muuttamista sallimaan allekirjoitetut VBA-projektit.
8. Tästä lähtien joka kerta, kun lähetät sähköpostia, Outlook muuttaa automaattisesti lähtevien sähköpostien kirjasimet sähköpostitilin mukaan lähetystä varten.

Valmistaudu odottamattomaan Outlook-kaatumiseen

Outlookin haavoittuvuuden vuoksi käyttäjien on oltava hyvin varautuneita erilaisiin ongelmiin, kun he ovat jatkuvasti tekemisissä Outlookin kanssa. Yksi tärkeimmistä vaiheista on epäilemättä tehdä johdonmukainen ja ajantasainen varmuuskopio Outlook-tiedoista. Tällaisten varmuuskopioiden avulla voit silti, vaikka alkuperäiset Outlook-tiedot vaurioituisivat kaatumisen yhteydessä. palauttaa Outlook tietoja varmuuskopioista äärimmäisen helposti. Lisäksi on suositeltavaa varustaa Outlook tehokkaalla korjaustyökalulla, kuten DataNumen Outlook Repair. Se on kätevä, kun varmuuskopiot epäonnistuvat.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com