Як автоматично змінювати підпис на основі одержувачів в Outlook?
За замовчуванням Outlook має вбудовану функцію для автоматичної зміни підпису під час надсилання електронних листів через різні облікові записи електронної пошти. Але крім цього, тут я покажу вам спосіб автоматичної зміни підпису на основі різних одержувачів у полі Кому в Outlook.
Змінюйте підпис на основі одержувачів автоматично за допомогою коду VBA
Змінюйте підпис на основі одержувачів автоматично за допомогою коду VBA
Виконайте наведені нижче дії, щоб застосувати різні підписи до відповідних одержувачів під час надсилання електронних листів у Outlook.
1. По-перше, вам потрібно вимкнути функцію автоматичного підключення підпису в Outlook. Клацніть філе > Опції відкрити Параметри Outlook вікна.
2 В Параметри Outlook вікно, виберіть пошта на лівій панелі, а потім клацніть на Signatures кнопка в Створення повідомлень розділ. Дивіться знімок екрана:
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 2022/08/01
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 xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
примітки:
- 1). У коді VBA, будь ласка, замініть “Адреса електронної пошти 1/2/3/4”З певними адресами електронної пошти одержувачів.
- 2). "aaa.htm""bbb.htm"І"ccc.htm" - це вказані підписи, які ви надішлете відповідним одержувачам.
- 3). У цьому випадку підпис “ааа”Буде надіслано на“Адреса електронної пошти 1”, Підпис“БББ”Буде надіслано на“Адреса електронної пошти 2"І"Адреса електронної пошти 3", і “Адреса електронної пошти 4”Отримає електронний лист із вкладеним підписом“CCC". Будь ласка, змініть їх відповідно до ваших потреб.
- 4). Якщо в електронному листі кілька одержувачів, код враховує лише першого одержувача. У цьому випадку інші одержувачі отримають електронні листи з тим самим підписом, що й перший одержувач.
7 Потім натисніть Tools > посилання йти до Список літератури-проект діалогове вікно. У діалоговому вікні, перевірте обидва Бібліотека об’єктів Microsoft Word і Виконання сценаріїв Microsoft , а потім клацніть OK , див. знімок екрана:
8 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, після створення електронного листа та натискання кнопки Надіслати, відповідний підпис буде автоматично вставлений в кінець основного листа електронної пошти на основі адреси електронної пошти одержувача в полі Кому.
Автоматично вставляти поточну дату як підпис під час надсилання електронної пошти в Outlook:
Якщо ви хочете вставити мітку часу як підпис у тіло електронної пошти під час створення / відповіді / пересилання нового електронного листа у своєму Outlook, ви можете ввімкнути Додайте підпис дати при створенні нового, відповіді та пересилання електронного листа можливість Kutools для Outlook щоб його досягти. Дивіться знімок екрана:
Завантажте та спробуйте зараз (60-денна безкоштовна версія)
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.