Kuinka määrittää eri allekirjoitukset 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?
Aseta eri allekirjoitukset vastauksille ja edelleenlähetyksille VBA-koodilla
Aseta eri allekirjoitukset vastauksille ja edelleenlähetyksille VBA-koodilla
Seuraava VBA-koodi voi auttaa sinua määrittämään erilaisia allekirjoituksia vastauksille ja edelleenlähetyksille. Tee seuraavat vaiheet yksitellen:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Napsauta sitten liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin, katso kuvakaappaus:
VBA-koodi: Aseta eri allekirjoitukset vastauksille ja edelleenlähetyksille:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
InsertSignature Response, "Signature1.htm" 'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
InsertSignature Forward, " Signature2.htm" 'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
Dim xSignatureFile As String
Dim xMailItem As Outlook.MailItem
xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
GText = ""
GText = GTextStream.ReadAll
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
With xMailItem
.Display
.HTMLBody = .HTMLBody & "<br><br>" & GText
End With
End Sub
Huomautuksia: Yllä olevassa koodissa Allekirjoitus 1 ja Allekirjoitus 2 ovat kaksi allekirjoituksen nimeä, joita haluat käyttää vastaamiseen ja edelleenlähettämiseen. Muuta nimet tarpeidesi mukaan.
3. Vielä sisällä Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet mennä Referenssit-Projekti1 valintaikkuna ja tarkista Microsoft Scripting Runtime Vaihtoehto Saatavilla olevat referenssit luetteloruutu, katso kuvakaappaus:
4. Ja napsauta sitten OK sulkeaksesi valintaikkunan, tästä lähtien, kun vastaat sähköpostiin, Signature1 lisätään heti, katso kuvakaappaus:
Ja kun välität viestin, Signature2 lisätään seuraavan kuvakaappauksen mukaisesti:
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 ...
