Különböző betűtípusok automatikus használata különböző fiókokhoz, amikor e-mailt küld az Outlookban

Ha több e-mail fiókot állított be az Outlook programban, és különböző betűtípusokat szeretne használni a kimenő e-mailekben a küldéshez használt különböző e-mail fiókok szerint, használhatja a cikkben bemutatott megközelítést.

Sok felhasználó azt reméli, hogy az Outlook automatikusan kiválasztja és használhatja a különböző betűtípusokat a kimenő e-mailekben az általuk küldéshez használt különböző e-mail fiókok alapján. Az Outlook azonban alapértelmezés szerint nem rendelkezik ilyen funkcióval. Szerencsére ezt a VBA kód segítségével még mindig meg lehet valósítani. Most részletesen bemutatjuk ezt a módszert.

Automatikusan használjon különböző betűtípusokat a különböző fiókokhoz e-mail küldésekor

1. Először is indítsa el az Outlook alkalmazást.
2. Ezután az Outlook következő főablakában meg kell nyomnia az „Alt + F11” billentyűket.
3. Ezután megjelenik egy új ablak – „Microsoft Visual Basic for Applications”.
4. Ebben az ablakban meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
5. Ezt követően másolja ki és illessze be a következő VBA-kódot ebbe a projektbe.

'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. Ezt követően jobb, ha aláírja ezt a kódot.

• Először kattintson az „Eszközök” gombra az eszköztáron.
• Ezután válassza ki a „Digitális aláírás” opciót a legördülő listából.
• Később követheti a képernyőn megjelenő utasításokat a feladat végrehajtásához.

7. Ezután kiléphet az aktuális ablakból, és módosíthatja az Outlook makró beállításait, hogy engedélyezze az aláírt VBA-projekteket.
8. Mostantól minden alkalommal, amikor e-mailt küld, az Outlook automatikusan módosítja a betűtípusokat a kimenő e-mailekben a küldéshez használt e-mail fióknak megfelelően.

Készüljön fel az Outlook váratlan összeomlására

Az Outlook sebezhetősége miatt a felhasználóknak fel kell készülniük a különféle problémákra, amikor folyamatosan az Outlookkal foglalkoznak. Kétségtelen, hogy az egyik legfontosabb lépés az Outlook-adatok következetes és naprakész biztonsági mentése. Az ilyen biztonsági mentésekkel, még ha az eredeti Outlook-adatok megsérülnek is egy összeomlás során, továbbra is megőrizheti adatait. az Outlook helyreállítása adatokat a biztonsági mentésekből a lehető legnagyobb könnyedséggel. Ezenkívül azt is tanácsos, hogy az Outlookot egy hatékony javítóeszközzel szerelje fel, például DataNumen Outlook Repair. Hasznos lesz, ha a biztonsági mentés sikertelen.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com