Kuinka lisätä erilaisia allekirjoituksia useisiin sähköpostitileihin, kun luot uuden sähköpostin 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 uuteen viestiin manuaalisesti valitsemalla allekirjoitus > Luotu allekirjoitus viesti-ikkunassa.
Voit tietysti asettaa Outlookin lisäämään allekirjoituksen automaattisesti, kun luot uuden viestin 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 luot uuden sähköpostin 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 Sub3. 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 luot uuden sähköpostin Outlookissa - Moduuli
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: ") = 1 Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name
xIsNew = True
End If
Case "name2@example.com" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name
xIsNew = True
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) Sinun tulee vaihtaa nimi1@esimerkki.fi ja nimi2@esimerkki.fi 39. ja 48. rivillä todellisiin sähköpostiosoitteisiisi.
- 2) Sinun pitäisi vaihtaa Allekirjoitus 1 ja Allekirjoitus 2 45. ja 54. rivillä todellisiin allekirjoituksiisi.
- 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:
Jos VBA.InStr(xSubject, "RE: ") = 1 Sitten
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Sitten
Exit Sub
Muu
xSignatureFile = xSignaturePath & "Signature.htm"
xIsNew = Totta
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 luot uuden viestin sähköpostitilillä, jolle olet määrittänyt allekirjoituksen, vastaava allekirjoitus lisätään automaattisesti.
Huomautus: Jos huomaat, että kaksi allekirjoitusta on lisätty, kun luot uuden viestin 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 Uudet viestit -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:
Jos haluat Outlookin lisäävän allekirjoituksen automaattisesti, kun vastaat viestiin tai välität sen edelleen, sinun on määritettävä oletusallekirjoitus napsauttamalla Allekirjoitus > Allekirjoitukset ja valitsemalla allekirjoitus tietylle sähköpostitilille alla olevan kuvan mukaisesti. 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!
📧 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 ...
