Як автоматично вибирати різні підписи для різних одержувачів у ваших електронних листах Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Багато користувачів сподіваються, що Outlook може автоматично вибирати різні підписи для різних одержувачів в електронних листах. Таким чином, ця стаття навчить, як реалізувати це за допомогою VBA.

За замовчуванням Outlook дозволяє лише автоматично вставляти змінний підпис у нові електронні листи, відповіді та пересилання. Однак багато людей навіть сподіваються, що Outlook може автоматично вибирати різні підписи для різних одержувачів. На жаль, Outlook не надає такої прямої функції. Таким чином, вам доведеться шукати інші способи, наприклад будь-які сторонні надбудови або код VBA. Нижче ми представимо вам фрагмент коду VBA, який допоможе вам реалізувати це як вітерець.

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

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

  1. To start запустіть програму Outlook.
  2. Тоді вам краще вимкнути функцію автоматичного вставлення підпису.Вимкніть функцію автоматичного вставлення підпису
  • Спочатку перейдіть до меню «Файл» і виберіть «Параметри».
  • У вікні «Параметри Outlook» перейдіть на вкладку «Пошта».
  • Потім знайдіть і натисніть кнопку «Підписи».
  • Далі у спливаючому діалоговому вікні встановіть «(немає)» у «Нові повідомлення» та «Відповіді/пересилання».
  • Після цього натисніть ряд «ОК», щоб зберегти зміни.
  1. Після цього ви можете повернутися до головного вікна Outlook і натиснути клавіші «Alt + F11».
  2. Далі у вікні «Microsoft Visual Basic for Applications» знайдіть і відкрийте проект «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 виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

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