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

Перспективные решения 29 сентября, 2025
Поделись сейчас:

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

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

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

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

  1. К start с, вы должны запустить программу Outlook.
  2. Тогда вам лучше отключить функцию автоматической вставки подписи.Отключить функцию автоматической вставки подписи
  • Во-первых, перейдите в меню «Файл» и выберите «Параметры».
  • В окне «Параметры Outlook» перейдите на вкладку «Почта».
  • Затем найдите и нажмите кнопку «Подписи».
  • Затем во всплывающем диалоговом окне установите «(нет)» как в «Новые сообщения», так и в «Ответы/пересылки».
  • После этого нажмите серию «ОК», чтобы сохранить изменения.
  1. После этого вы можете вернуться в главное окно Outlook и нажать клавиши «Alt + F11».
  2. Далее в окне «Microsoft Visual Basic для приложений» найдите и откройте проект «ThisOutlookSession».
  3. Затем скопируйте и вставьте следующий код 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
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          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
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

Код VBA - автоматический выбор разных подписей для разных получателей

  1. После этого следует подписать этот код.
  2. Позже измените настройки макроса Outlook, чтобы разрешить подписанные макросы.
  3. Отныне каждый раз, когда вы нажимаете кнопку «Отправить», чтобы отправить электронное письмо, Outlook будет определять получателя и автоматически вставлять соответствующую подпись в конце тела электронного письма.

Ищите скрытые вредоносные макросы во входящих электронных письмах

В настоящее время вирусы стали очень зрелыми и мощными. Они всегда маскируют их под безобидные вещи в электронной почте. Поэтому теперь, когда вы собираетесь использовать макросы в Outlook, вам следует повысить бдительность в отношении вредоносных макросов. В противном случае ваши данные PST будут в опасности. Если PST будет поврежден, вы сделаете все возможное, чтобы восстановить PST данные. В этом случае предлагается применить мощный инструмент, такой как DataNumen Outlook Repair.

Об авторе:

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

Поделись сейчас:

Комментарии закрыты.