Kuinka lisätä eri allekirjoituksia useisiin sähköpostitileihin, kun vastaat tai lähetät edelleen Outlookissa?

Opetuksesta: Sähköpostin allekirjoitukset Outlookissa, sinun pitäisi osata luoda allekirjoitus Outlookissa. Uuden allekirjoituksen luomisen jälkeen sinun on kuitenkin lisättävä luotu allekirjoitus manuaalisesti, jos haluat lisätä sen, kun vastaat viestiin tai välität sen valitsemalla allekirjoitus > Luotu allekirjoitus viesti-ikkunassa.

Voit tietysti asettaa Outlookin lisäämään allekirjoituksen automaattisesti, kun vastaat uuteen viestiin tai välität sen napsauttamalla allekirjoitus > allekirjoituksetja valitse allekirjoitus tietylle sähköpostitilille alla kuvatulla tavalla.

Entä jos sinulla on useita sähköpostitilejä ja haluat lisätä eri allekirjoituksia useille tileillesi erissä? Tässä opetusohjelmassa esittelen VBA-menetelmän, jonka avulla voit tehdä tämän työn helposti.

Lisää erilaisia ​​allekirjoituksia useisiin sähköpostitileihin, kun vastaat tai lähetät edelleen Outlookissa

1. Paina Outlookissa muut + F11 -näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.

2. Kaksoisnapsauta Microsoft Visual Basic for Applications -ikkunassa ThisOutlookSession Projekti-ruudussa ja kopioi alla oleva VBA-koodi ThisOutlookSession (Koodi) -ikkunaan. Katso kuvakaappaus:

VBA-koodi: Lisää erilaisia ​​allekirjoituksia useisiin sähköpostitileihin, kun luot uuden sähköpostin Outlookissa - 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. Napsauta Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit. Kopioi sitten seuraava VBA-koodi moduuliikkunaan.

VBA-koodi: Lisää erilaisia ​​allekirjoituksia useisiin sähköpostitileihin, kun vastaat tai lähetät edelleen Outlook -moduulissa

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 "name1@example.com" '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 "name2@example.com" '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

Huomautus:

• 1) Sinun tulee vaihtaa nimi1@esimerkki.fi ja nimi2@esimerkki.fi 39. ja 48. rivillä todellisiin sähköpostiosoitteisiisi.
• 2) Sinun pitäisi vaihtaa allekirjoitus 41., 43., 50. ja 52. rivillä todellisiin allekirjoituksiisi kommenttien mukaan.
• 3) Yllä olevalla VBA-koodilla voimme lisätä allekirjoituksia kahdelle sähköpostitilille. Jos sinulla on useampia tilejä, korvaa koodin 57. rivi lisäämällä tapauksia:
Kirjainkoko "nimi@esimerkki.fi"
Jos VBA.InStr(xSubject, "RE: ") = 1 Sitten
xSignatureFile = xSignaturePath & "Signature1.htm"
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Sitten
xSignatureFile = xSignaturePath & "Signature2.htm"
Muu
xIsNew = Totta
Exit Sub
End If

4. Napsauta Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet, valitse valintaruutu vieressä Microsoft Word 16.0 -objektikirjasto, ja napsauta OK.

5. Käynnistä Outlook uudelleen ja tallenna VBA-koodit.

6. Nyt, kun vastaat viestiin tai lähetät sen edelleen sähköpostitilillä, jolle olet määrittänyt allekirjoituksen, vastaava allekirjoitus lisätään automaattisesti.

Huomautus: Jos huomaat, että siihen on lisätty kaksi allekirjoitusta, kun vastaat viestiin tai lähetät sen edelleen sähköpostitilillä, napsauta allekirjoitus > allekirjoitukset viesti-ikkunassa. Valitse Valitse oletusallekirjoitus -osiossa sähköpostitili, jolla on kaksi allekirjoitusta, ja valitse (Ei mitään) avattavasta Vastaukset/edelleenlähetys-luettelosta.

---

Liittyvät artikkelit

Kuinka tuoda tai lisätä HTML-allekirjoituksia Outlookiin?

Olet esimerkiksi ladannut joitain HTML-allekirjoituksia verkkosivustoilta ja haluat tuoda ne Outlookiin. Onko helppoja tapoja? Tämä artikkeli opastaa sinua tuomaan tai lisäämään HTML-allekirjoituksia Outlookiin vaihe vaiheelta.

Kuinka lisätä taustaväri Outlook-allekirjoitukseen?

Taustavärin lisääminen tai poistaminen sähköpostista on helppoa Outlookissa. Mutta kuinka voit lisätä tai poistaa taustavärin Outlook-allekirjoituksesta? Alla olevat kiertotavat auttavat sinua ratkaisemaan sen:

Kuinka lisätä erilaisia ​​allekirjoituksia useisiin sähköpostitileihin, kun luot uuden sähköpostin Outlookissa?

Jos haluat Outlookin lisäävän allekirjoituksen automaattisesti, kun luot uuden viestin, sinun on määritettävä oletusallekirjoitus napsauttamalla Allekirjoitus > Allekirjoitukset ja valitsemalla allekirjoitus tietylle sähköpostitilille alla kuvatulla tavalla. Entä jos sinulla on useita sähköpostitilejä ja haluat lisätä eri allekirjoituksia useille tileillesi erissä? Tässä opetusohjelmassa esittelen VBA-menetelmän, jonka avulla voit tehdä tämän työn helposti.

Kuinka asettaa erilaisia ​​allekirjoituksia vastauksille ja edelleenlähetyksille Outlookissa?

Yleensä voit asettaa eri allekirjoituksia eri tileille Outlookissa, mutta olet koskaan yrittänyt käyttää erilaisia ​​allekirjoituksia vastauksille ja edelleenlähetyksille. Se tarkoittaa, että kun vastaat sähköpostiin, allekirjoitus1 lisätään, kun lähetät sähköpostin, allekirjoitus2 otetaan käyttöön. Kuinka voit ratkaista tämän tehtävän Outlookissa?

---

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet Pro: Erätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille      Lataa ilmainen versio      Päivitä Professionaliin