Якщо ви налаштували кілька облікових записів електронної пошти у своєму Outlook і хочете використовувати різні шрифти у вихідних електронних листах відповідно до різних облікових записів електронної пошти, що використовуються для надсилання, ви можете скористатися підходом, представленим у цій статті.
Багато користувачів сподіваються, що Outlook може автоматично вибирати та використовувати різні шрифти у вихідних електронних листах на основі різних облікових записів електронної пошти, які вони використовують для надсилання. Однак за замовчуванням Outlook не має такої функції. На щастя, ви все ще можете зрозуміти це за допомогою коду VBA. Тепер ми детально розкриємо цей метод.
Автоматично використовувати різні шрифти для різних облікових записів під час надсилання електронної пошти
- Спочатку запустіть програму Outlook.
- Потім у наступному головному вікні Outlook слід натиснути клавіші “Alt + F11”.
- Далі ви введете нове вікно - “Microsoft Visual Basic for Applications”.
- У цьому вікні вам потрібно буде знайти та відкрити проект “ThisOutlookSession”.
- Згодом скопіюйте та вставте наступний код VBA у цей проект.
'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
- Після цього вам краще підписати цей код.
- Спочатку натисніть кнопку «Інструменти» на панелі інструментів.
- Потім виберіть варіант «Цифровий підпис» зі спадного списку.
- Пізніше ви зможете виконати це завдання, дотримуючись вказівок на екрані.
- Потім ви можете вийти з поточного вікна та продовжити змінювати параметри макросів Outlook, щоб дозволити підписані проекти VBA.
- Відтепер кожен раз, коли ви надсилаєте електронне повідомлення, Outlook автоматично змінює шрифти у вихідних електронних листах відповідно до облікового запису електронної пошти для надсилання.
Будьте готові до несподіваного збою Outlook
Через вразливість Outlook, користувачі повинні бути добре підготовленими до різних проблем, постійно маючи справу з Outlook. Безсумнівно, одним із найважливіших кроків є створення послідовної та актуальної резервної копії даних Outlook. Завдяки таким резервним копіям, навіть якщо оригінальні дані Outlook пошкоджені під час збою, ви все одно можете... відновити Outlook - - дані з резервних копій з максимальною легкістю. Крім того, також бажано оснастити ваш Outlook потужним інструментом для виправлення, таким як DataNumen Outlook Repair. Це стане в нагоді, коли резервні копії не вдаються.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com