Как автоматически использовать разные шрифты для разных учетных записей при отправке электронной почты в Outlook

Если вы настроили несколько учетных записей электронной почты в своем Outlook и хотите использовать разные шрифты в исходящих электронных письмах в соответствии с разными учетными записями электронной почты, используемыми для отправки, вы можете использовать подход, представленный в этой статье.

Многие пользователи надеются, что Outlook может автоматически выбирать и использовать разные шрифты в исходящих электронных письмах в зависимости от разных учетных записей электронной почты, которые они используют для отправки. Однако по умолчанию Outlook не имеет такой функции. К счастью, вы все еще можете реализовать это с помощью кода VBA. Теперь мы подробно раскроем этот метод.

Автоматическое использование разных шрифтов для разных учетных записей при отправке электронной почты

1. Для начала запустите приложение Outlook.
2. Затем в следующем главном окне Outlook вы должны нажать клавиши «Alt + F11».
3. Далее вы попадете в новое окно – «Microsoft Visual Basic для приложений».
4. В этом окне вам потребуется найти и открыть проект «ThisOutlookSession».
5. Затем скопируйте и вставьте следующий код 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

6. После этого вам лучше подписать этот код.

• Сначала нажмите кнопку «Инструменты» на панели инструментов.
• Затем выберите опцию «Цифровая подпись» из выпадающего списка.
• Позже вы можете следовать инструкциям на экране, чтобы выполнить эту задачу.

7. Затем вы можете выйти из текущего окна и перейти к изменению параметров макроса Outlook, чтобы разрешить подписанные проекты VBA.
8. Отныне каждый раз, когда вы отправляете электронное письмо, Outlook автоматически меняет шрифты в исходящих электронных письмах в соответствии с учетной записью электронной почты для отправки.

Будьте готовы к неожиданному сбою Outlook

Из-за уязвимости Outlook пользователям необходимо быть хорошо подготовленными к различным проблемам при постоянной работе с этой программой. Безусловно, одним из важнейших шагов является создание постоянной и актуальной резервной копии данных Outlook. Благодаря таким резервным копиям, даже если исходные данные Outlook будут повреждены в результате сбоя, вы все равно сможете... восстановить Outlook С легкостью извлекайте данные из резервных копий. Кроме того, рекомендуется оснастить Outlook мощным инструментом для исправления ошибок, например, DataNumen Outlook Repair. Это пригодится, когда резервное копирование не удастся.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql-повреждение и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com