Многие пользователи надеются, что Outlook может автоматически выбирать разные подписи для разных получателей в электронных письмах. Таким образом, эта статья научит, как реализовать это через VBA.
По умолчанию Outlook позволяет автоматически вставлять переменную подпись только в новые электронные письма, ответы и пересылки. Однако многие люди даже надеются, что Outlook может автоматически выбирать разные подписи для разных получателей. К сожалению, Outlook не предоставляет такой прямой возможности. Таким образом, вам придется искать другие способы, такие как любые сторонние надстройки или код VBA. Далее мы представим вам фрагмент кода VBA, который поможет вам реализовать его с легкостью.
Автоматический выбор разных подписей для разных получателей
- К start с, вы должны запустить программу Outlook.
- Тогда вам лучше отключить функцию автоматической вставки подписи.
- Во-первых, перейдите в меню «Файл» и выберите «Параметры».
- В окне «Параметры Outlook» перейдите на вкладку «Почта».
- Затем найдите и нажмите кнопку «Подписи».
- Затем во всплывающем диалоговом окне установите «(нет)» как в «Новые сообщения», так и в «Ответы/пересылки».
- После этого нажмите серию «ОК», чтобы сохранить изменения.
- После этого вы можете вернуться в главное окно Outlook и нажать клавиши «Alt + F11».
- Далее в окне «Microsoft Visual Basic для приложений» найдите и откройте проект «ThisOutlookSession».
- Затем скопируйте и вставьте следующий код VBA в этот проект.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMail As Outlook.MailItem Dim objRecipients As Outlook.Recipients Dim objRecipient As Outlook.recipient Dim strRecipientAddress As String Dim strSignatureFile As String Dim objFileSystem As Object Dim objTextStream As Object Dim strSignature As String Если TypeOf Item Is MailItem Then Set objMail = Item Set objRecipients = objMail.Recipients End If 'Выберите разные файлы подписи на основе получателей' Вы можете изменить условия в соответствии с вашими фактическими потребностями. If objRecipients.Count = 1 Затем установите objRecipient = objRecipients. Item(1) strRecipientAddress = objRecipient.Address Если strRecipientAddress = "mandy@datanumen.com" Затем strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm" ElseIf strRecipientAddress = "anne@datanumen.com" или strRecipientAddress = "tony@datanumen.com" Затем strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm" ElseIf strRecipientAddress = "abby@datanumen.com" Затем strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm" End If Else strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData \Roaming\Microsoft\Signatures\John Smith.htm" End If 'Прочитать конкретный файл подписи Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile) strSignature = objTextStream.ReadAll 'Вставить подпись в этот адрес электронной почты objMail.HTMLBody = objMail.HTMLBody & " " & стрПодпись & " " Конец суб
- После этого следует подписать этот код.
- Позже измените настройки макроса Outlook, чтобы разрешить подписанные макросы.
- Отныне каждый раз, когда вы нажимаете кнопку «Отправить», чтобы отправить электронное письмо, Outlook будет определять получателя и автоматически вставлять соответствующую подпись в конце тела электронного письма.
Ищите скрытые вредоносные макросы во входящих электронных письмах
В настоящее время вирусы стали очень зрелыми и мощными. Они всегда маскируют их под безобидные вещи в электронной почте. Поэтому теперь, когда вы собираетесь использовать макросы в Outlook, вам следует повысить бдительность в отношении вредоносных макросов. В противном случае ваши данные PST будут в опасности. Если PST будет поврежден, вы сделаете все возможное, чтобы восстановить PST данные. В этом случае предлагается применить мощный инструмент, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправление sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com