Gå til hovedindhold

Hvordan tilføjer man forskellige signaturer til flere e-mail-konti, når man opretter en ny e-mail i Outlook?

Fra tutorialen: E-mail signaturer i Outlook, bør du vide, hvordan du opretter en signatur i Outlook. Men efter at have oprettet en ny signatur, bliver du nødt til manuelt at tilføje den oprettede signatur til en ny besked ved at vælge underskrift > Den oprettede signatur i beskedvinduet.

Selvfølgelig kan du få Outlook til at tilføje en signatur automatisk, når du opretter en ny besked ved at klikke underskrift > Underskrifter, og vælge en signatur for en specifik e-mail-konto som vist nedenfor.

Men hvad nu hvis du har mange e-mail-konti og ønsker at tilføje forskellige signaturer til dine flere konti i batches? I denne tutorial vil jeg introducere en VBA-metode for at hjælpe dig med at få dette job gjort nemt.


Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i Outlook

1. I din Outlook skal du trykke på andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. Dobbeltklik på i vinduet Microsoft Visual Basic for Applications Denne OutlookSession i projektruden, og kopier nedenstående VBA-kode ind i vinduet ThisOutlookSession (kode). Se skærmbillede:

VBA-kode: Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i 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. Klik på i vinduet Microsoft Visual Basic til applikationer indsatte > Moduler. Kopier derefter følgende VBA-kode til modulvinduet.

VBA-kode: Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i Outlook - Modul

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: ") = 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 "" '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
Bemærk:
  • 1) Du bør udskifte , i 39. og 48. række til dine faktiske e-mailadresser.
  • 2) Du bør udskifte Signature1 , Signature2 i 45. og 54. række til dine faktiske signaturnavne.
  • 3) Med ovenstående VBA-kode kan vi tilføje signaturer til to e-mail-konti. Hvis du har flere konti, skal du erstatte den 57. række i koden med flere sager:
  • Sag ""
    Hvis VBA.InStr(xSubject, "RE: ") = 1 Så
    Exit Sub
    ElseIf VBA.InStr(xSubject, "FW: ") = 1 Så
    Exit Sub
    Else
    xSignatureFile = xSignaturePath & "Signature.htm"
    xIsNew = Sand
    End If

4. Klik på i vinduet Microsoft Visual Basic til applikationer Værktøjer > Referencer, markér afkrydsningsfeltet ud for Microsoft Word 16.0-objektbibliotek, og klik OK.

5. Genstart Outlook, og gem VBA-koderne.

6. Når du nu opretter en ny besked med en e-mail-konto, som du har oprettet en signatur til, tilføjes den tilsvarende signatur automatisk.

Bemærk: Hvis du opdager, at der er tilføjet to signaturer, når du opretter en ny besked med en e-mail-konto, skal du klikke underskrift > Underskrifter i beskedvinduet. I sektionen Vælg standardsignatur skal du vælge den e-mail-konto, der har to signaturer, og vælge (Ingen) fra rullelisten Nye beskeder.


Relaterede artikler

Sådan importeres eller indsættes HTML-signaturer i Outlook?

For eksempel downloadede du nogle HTML-signaturer fra websteder og vil importere dem til din Outlook. Nogen nemme måder? Denne artikel vil guide dig til at importere eller indsætte HTML-signaturer i Outlook trin for trin.

Hvordan indsætter man baggrundsfarve i en Outlook-signatur?

Det er nemt at tilføje eller fjerne baggrundsfarve i en e-mail i Outlook. Men hvordan kunne du indsætte eller fjerne baggrundsfarve i en Outlook-signatur? Nedenstående løsninger hjælper dig med at løse det:

Sådan tilføjer du forskellige signaturer til flere e-mail-konti, når du svarer eller videresender i Outlook?

Hvis du vil have Outlook til at tilføje signatur automatisk, når du besvarer eller videresender en meddelelse, skal du konfigurere standardsignaturen ved at klikke på Signatur > Signaturer og vælge en signatur for en specifik e-mail-konto som vist nedenfor. Men hvad nu hvis du har mange e-mail-konti og ønsker at tilføje forskellige signaturer til dine flere konti i batches? I denne tutorial vil jeg introducere en VBA-metode for at hjælpe dig med at få dette job gjort nemt.

Hvordan indstiller man forskellige signaturer til svar og videresendelser i Outlook?

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


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
I tried to initiate this settings in my outlook for changing the signature automatically, but it doesn't function.

the signature stays the same while using different email accounts.

any idea why ?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations