Note: The other languages of the website are Google-translated. Back to English

Hvordan indstilles forskellige underskrifter for svar og videresendelser i Outlook?

Normalt kan du indstille forskellige signaturer til forskellige konti i din Outlook, men har nogensinde prøvet at anvende forskellige signaturer til svar og videresend. Det betyder, at når du svarer en e-mail, indsættes signaturen1, når du videresender en e-mail, anvendes signaturen2. Hvordan kunne du løse denne opgave i Outlook?

Indstil forskellige underskrifter for svar og videresend med VBA-kode


Indstil forskellige underskrifter for svar og videresend med VBA-kode

Følgende VBA-kode kan hjælpe dig med at indstille forskellige underskrifter for svar og videresendelser. Gør nedenstående trin en efter en:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul, se skærmbillede:

VBA-kode: Indstil forskellige underskrifter for svar og videresend:

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

Bemærk: I ovenstående kode, Signature1 og Signature2 er de to signaturnavne, som du vil bruge til at besvare og videresende. Skift navnene efter dit behov.

doc sig forwar svar 1

3. Stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøj > Referencer at gå til Referencer-projekt1 dialogboks, og tjek Microsoft Scripting Runtime mulighed fra Tilgængelige referencer listefelt, se skærmbillede:

doc sig forwar svar 2

4. Og klik derefter på OK for at lukke dialogen, fra nu af, når du svarer en e-mail, indsættes Signatur1 med det samme, se skærmbillede:

doc sig forwar svar 3

Og når du videresender en besked, indsættes Signatur2 som følgende skærmbillede vist:

doc sig forwar svar 4


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL