Как да добавя различни подписи към множество имейл акаунти, когато отговаряте или препращате в Outlook?

Автор: Аманда Ли Последна промяна: 2022-11-30

От урока: Имейл подписи в Outlook, трябва да знаете как да създадете подпис в Outlook. Въпреки това, след като създадете нов подпис, ще трябва ръчно да добавите създадения подпис, ако искате да го добавите, когато отговаряте на или препращате съобщение, като изберете Подпис > Създаденият подпис в прозореца на съобщението.

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

Но какво ще стане, ако имате много имейл акаунти и искате да добавите различни подписи за множеството си акаунти на партиди? В този урок ще представя метод на VBA, който да ви помогне да свършите тази работа лесно.

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

1. Във вашия Outlook натиснете Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.

2. В прозореца на Microsoft Visual Basic за приложения щракнете двукратно върху ThisOutlookSession в прозореца на проекта и копирайте следния VBA код в прозореца ThisOutlookSession (Код). Вижте екранна снимка:

VBA код: Добавете различни подписи към множество имейл акаунти, когато създавате нов имейл в Outlook - ThisOutlookSession

Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer

Private Sub Application_Startup()
  Set GInspectors = Application.Inspectors
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
  Set xMail = Item
  Set GInspector = Nothing
  Set GInspector = xMail.GetInspector
  StartTimer
End If
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  On Error Resume Next
  EndTimer
  Set GInspector = Nothing
  Set GInspector = Inspector
  StartTimer
End Sub

3. В прозореца на Microsoft Visual Basic за приложения щракнете Поставете > Модули. След това копирайте следния VBA код в прозореца на модула.

VBA код: Добавете различни подписи към множество имейл акаунти, когато отговорите или препратите в Outlook - Модул

Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector

Sub StartTimer()
  On Error Resume Next
  TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub

Sub EndTimer()
  On Error Resume Next
  KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
  On Error Resume Next
  Call SetSignatureToAccount
  EndTimer
End Sub

Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
  Case "" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") Then
      xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name that you will set as the signature when you reply to a message.
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name that you will set as the signature when you forward a message.
    Else
      xIsNew = True
      Exit Sub
    End If
  Case "" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") Then
      xSignatureFile = xSignaturePath & "Signature3.htm" 'Replace "Signature3" with your actual signature name that you will set as the signature when you reply to a message.
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      xSignatureFile = xSignaturePath & "Signature4.htm" 'Replace "Signature4" with your actual signature name that you will set as the signature when you forward a message.
    Else
      xIsNew = True
      Exit Sub
    End If
  'Add more Cases for more email accounts
End Select
If xIsNew = True Then
  With xDoc.Application.Selection
    .WholeStory
    .EndKey
    .InsertParagraphAfter
    .MoveDown Unit:=wdLine, Count:=1
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
Else
  With xDoc.Application.Selection
    .MoveRight Unit:=wdCharacter, Count:=1
    .HomeKey Emptyparam, Emptyparam
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub

Забележка:

1) Трябва да смените намлява в 39-ия и 48-ия ред към действителните ви имейл адреси.
2) Трябва да замените Подпис в 41-ви, 43-ти, 50-ти и 52-ри редове до вашите действителни имена на подписи според коментарите.
3) С горния VBA код можем да добавим подписи към два имейл акаунта. Ако имате повече акаунти, заменете 57-ия ред на кода с още Cases:

случай ""
Ако VBA.InStr(xSubject, "RE:") = 1 Тогава
xSignatureFile = xSignaturePath & "Signature1.htm"
ElseIf VBA.InStr(xSubject, "FW:") = 1 Тогава
xSignatureFile = xSignaturePath & "Signature2.htm"
Още
xIsNew = Вярно
Излезте от под
крайна сметка, ако

4. В прозореца на Microsoft Visual Basic за приложения щракнете Инструменти > Препратки, поставете отметка в квадратчето до Библиотека с обекти Microsoft Word 16.0, и кликнете OK.

5. Рестартирайте Outlook и запазете VBA кодовете.

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

Забележка: Ако установите, че има добавени два подписа, когато отговаряте или препращате съобщение с имейл акаунт, моля, щракнете Подпис > Подписи в прозореца на съобщението. В секцията Избор на подпис по подразбиране изберете имейл акаунта, който има два подписа, и изберете (Няма) от падащия списък Отговори/препращания.

Свързани статии

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

Например, изтеглили сте някои HTML подписи от уебсайтове и искате да ги импортирате във вашия Outlook. Някакви лесни начини? Тази статия ще ви напътства как да импортирате или вмъкнете HTML подписи в Outlook стъпка по стъпка.

Как да вмъкна цвят на фона в подпис на Outlook?

Лесно е да добавите или премахнете фонов цвят в имейл в Outlook. Но как можете да вмъкнете или премахнете цвета на фона в подпис на Outlook? Заобиколните решения по-долу ще ви помогнат да го разрешите:

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

Ако искате Outlook да добавя подпис автоматично, когато създавате ново съобщение, ще трябва да конфигурирате подписа по подразбиране, като щракнете върху Подпис > Подписи и изберете подпис за конкретен имейл акаунт, както е показано по-долу. Но какво ще стане, ако имате много имейл акаунти и искате да добавите различни подписи за множеството си акаунти на партиди? В този урок ще представя метод на VBA, който да ви помогне да свършите тази работа лесно.

Как да зададете различни подписи за отговори и препращания в Outlook?

Обикновено можете да зададете различни подписи за различни акаунти във вашия Outlook, но някога сте опитвали да приложите различни подписи за отговори и препращания. Това означава, че когато отговаряте на имейл, се вмъква подпис1, когато препращате имейл, се прилага подпис2. Как можете да решите тази задача в Outlook?