Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

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

По подразбиране Outlook разполага с вградена функция за автоматично подмяна на подпис от потребители, докато изпращат имейли чрез различни имейл акаунти. Но освен това, тук ще ви покажа метод за автоматично подмяна на подпис, базиран на различни получатели в полето До в Outlook.

Промяна на подпис въз основа на получателите автоматично с код VBA


Винаги отговаряйте на имейл с имейл акаунта по подразбиране в Outlook:

Ако искате винаги да отговаряте на имейл с имейл акаунт по подразбиране в Outlook, Винаги отговаряйте със стандартния акаунт възможност за Kutools за Outlook ще ви направи услуга. Вижте екранна снимка:

Kutools за Outlook: с повече от 40 удобни добавки за Outlook, свободни да опитате без ограничение в 45 дни. Изтеглете и безплатна пробна версия сега!


Промяна на подпис въз основа на получателите автоматично с код VBA

Моля, следвайте стъпките по-долу, за да приложите различни подписи на съответните получатели, докато изпращате имейли в Outlook.

1. Първо, трябва да деактивирате функцията за автоматичен подпис в Outlook. Моля, кликнете досие > Настроики за да отворите Outlook Options прозорец.

2. В Outlook Options прозорец, изберете Mail в левия прозорец, след което кликнете върху Подписи бутон в Съставяйте съобщения секция. Вижте екранна снимка:

3. В Подписи и канцеларски материали диалогов прозорец, отидете на Изберете подразбиращ се подпис раздел под Подпис на електронната поща , изберете имейл акаунт в Имейл акаунт падащ списък и след това изберете (Няма) от Нови съобщения и Отговори / напред падащи списъци. Повторете тези стъпки, докато всички имейл акаунти не бъдат настроени (Няма), След това кликнете върху OK бутон.

Забележка: Можете също така да създадете необходимите си подписи в това Подписи и канцеларски материали диалогов прозорец.

4. Щракнете върху OK когато той върне Outlook Options прозорец.

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"Ще получи имейл с вграден подпис"МКО". Моля, променете ги според вашите нужди.

7. След това кликнете Инструменти > Препратки за да отидете на Позоваването-Проект диалогов прозорец. В диалоговия прозорец проверете Време за изпълнение на Microsoft Scripting , след което щракнете върху OK бутон, вижте екранната снимка:

8. Натисни Друг + Q клавиши за затваряне на Microsoft Visual Basic за приложения прозорец.

Отсега нататък, след като композирате имейл и натиснете бутона Изпращане, съответният подпис ще бъде автоматично вмъкнат в края на тялото на имейла въз основа на имейл адреса на получателя в полето До.

Ако искате да вмъкнете маркера на времето като подпис в тялото на електронната поща, докато създавате / отговаряте / изпращате нови имейли в Outlook, можете да активирате Добавете подпис на датата, когато създавате нови, отговори и препращате имейл възможност за Kutools за Outlook за да го постигне. Вижте екранна снимка:

Kutools за Outlook: с повече от 40 удобни добавки за Outlook, свободни да опитате без ограничение в 45 дни. Изтеглете и безплатна пробна версия сега!



Kutools за 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?