Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как автоматически изменить подпись на основе получателей в Outlook?

По умолчанию Outlook имеет встроенную функцию, позволяющую пользователям автоматически изменять подпись при отправке писем через разные учетные записи электронной почты. Но помимо этого, здесь я покажу вам способ автоматического изменения подписи на основе разных получателей в поле «Кому» в Outlook.

Автоматически менять подпись на основе получателей с кодом VBA


Всегда отвечайте на электронную почту с учетной записью электронной почты по умолчанию в Outlook:

Если вы хотите всегда отвечать на электронную почту с помощью учетной записи электронной почты по умолчанию в своем Outlook, Всегда отвечать с учетной записью по умолчанию возможность Kutools for Outlook сделают вам одолжение. Смотрите скриншот:

Kutools for Outlook: с более чем 40 удобными надстройками Outlook, бесплатно попробовать без ограничений в 45-дни. Скачать и бесплатно пробную версию!


Автоматически менять подпись на основе получателей с кодом VBA

Следуйте приведенным ниже инструкциям, чтобы применять различные подписи к соответствующим получателям при отправке писем в Outlook.

1. Во-первых, вам необходимо отключить функцию автоматической прикрепленной подписи в Outlook. Пожалуйста, нажмите филе > Опционы для открытия Параметры Outlook окна.

2. в Параметры Outlook окно, выберите почта в левой панели, затем нажмите Подписи в Составить сообщения раздел. Смотрите скриншот:

3. в Подписи и канцелярские принадлежности диалогового окна, перейдите к Выберите подпись по умолчанию раздела под Подпись электронной почты , выберите учетную запись электронной почты в Адрес электронной почты выпадающий список, а затем выберите (Нет) из Новые сообщения и Ответов / вперед выпадающие списки. Повторите эти действия, пока не будут установлены все учетные записи электронной почты. (Нет), Затем нажмите OK Кнопка.

Внимание: Вы также можете создать свои необходимые подписи в этом Подписи и канцелярские принадлежности диалоговое окно.

4. Нажмите OK когда он вернет Параметры Outlook окна.

5. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

6. в Microsoft Visual Basic для приложений окно, двойной щелчок ThisOutlookSession в левой панели, чтобы открыть окно кода и копию под кодом VBA в окне. Смотрите скриншот:

Код VBA: автоматическая смена подписи на основе получателей в Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

Примечания:

1. В коде VBA замените "Адрес электронной почты 1 / 2 / 3 / 4«С определенными адресами электронной почты получателей.

2. "aaa.htm""bbb.htm" а также "ccc.htm"- это указанная подпись, которую вы отправите соответствующим получателям.

3. В этом случае подпись "ааа"Будет отправлено на"Адрес электронной почты 1", Подпись"BBB"Будет отправлено на"Адрес электронной почты 2(Основной ключ) и Адрес электронной почты 3Кингфилдс, а также "Адрес электронной почты 4«Получит письмо с встроенной подписью»CCC». Пожалуйста, измените их в соответствии с вашими потребностями.

7. Затем нажмите Инструменты > дело , чтобы перейти к Ссылки-Project диалоговое окно. В диалоговом окне, пожалуйста, проверьте Время выполнения Microsoft Scripting , а затем нажмите OK , см. снимок экрана:

8. нажмите другой + Q для закрытия Microsoft Visual Basic для приложений окна.

С этого момента, после составления электронного письма и нажатия кнопки «Отправить», соответствующая подпись будет автоматически вставлена ​​в конец тела электронной почты на основе адреса электронной почты получателя в поле «Кому».

Если вы хотите вставить метку времени в подпись в тело электронной почты при создании / ответе / пересылке нового сообщения электронной почты в Outlook, вы можете включить Добавить подпись даты при создании нового, ответного и пересылаемого сообщения возможность Kutools for Outlook чтобы добиться этого. Смотрите скриншот:

Kutools for Outlook: с более чем 40 удобными надстройками Outlook, бесплатно попробовать без ограничений в 45-дни. Скачать и бесплатно пробную версию!



Kutools for Outlook

Более чем расширенные функции 100 для Outlook 2010, 2013, 2016, 2019 и 365

снимок экрана kutools для внешнего вида крошечный для баннера 201812

Дополнительные функции | Бесплатная загрузка | Только $ 39.00 для сотен функций

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Devansh · 12 days ago
    How would this behave if there are multiple recipients?