Μετάβαση στο κύριο περιεχόμενο

Πώς να προσθέσετε διαφορετικές υπογραφές σε πολλούς λογαριασμούς email κατά τη δημιουργία ενός νέου email στο Outlook;

Από το σεμινάριο: Υπογραφές email στο Outlook, θα πρέπει να γνωρίζετε πώς να δημιουργήσετε μια υπογραφή στο Outlook. Ωστόσο, μετά τη δημιουργία μιας νέας υπογραφής, θα πρέπει να προσθέσετε τη δημιουργημένη υπογραφή σε ένα νέο μήνυμα χειροκίνητα επιλέγοντας Υπογραφή > Η υπογραφή που δημιουργήθηκε στο παράθυρο μηνυμάτων.

Φυσικά, μπορείτε να βάλετε το Outlook να προσθέτει αυτόματα μια υπογραφή όταν δημιουργείτε ένα νέο μήνυμα κάνοντας κλικ Υπογραφή > Υπογραφέςκαι επιλέγοντας μια υπογραφή για έναν συγκεκριμένο λογαριασμό email όπως φαίνεται παρακάτω.

Ωστόσο, τι γίνεται αν έχετε πολλούς λογαριασμούς email και θέλετε να προσθέσετε διαφορετικές υπογραφές για τους πολλαπλούς λογαριασμούς σας σε παρτίδες; Σε αυτό το σεμινάριο, θα εισαγάγω μια μέθοδο VBA για να σας βοηθήσω να κάνετε αυτή τη δουλειά εύκολα.


Προσθέστε διαφορετικές υπογραφές σε πολλούς λογαριασμούς email όταν δημιουργείτε ένα νέο email στο Outlook

1. Στο Outlook, πατήστε το άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Στο παράθυρο Microsoft Visual Basic for Applications, κάντε διπλό κλικ Αυτό το OutlookSession στο παράθυρο Project και αντιγράψτε τον παρακάτω κώδικα VBA στο παράθυρο ThisOutlookSession (Code). Δείτε στιγμιότυπο οθόνης:

Κώδικας VBA: Προσθέστε διαφορετικές υπογραφές σε πολλούς λογαριασμούς email όταν δημιουργείτε ένα νέο email στο 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. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο Module.

Κώδικας VBA: Προσθέστε διαφορετικές υπογραφές σε πολλούς λογαριασμούς email όταν δημιουργείτε ένα νέο email στο Outlook - Module

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
Σημείωση:
  • 1) Θα πρέπει να αντικαταστήσετε το και στην 39η και 48η σειρά στις πραγματικές διευθύνσεις email σας.
  • 2) Θα πρέπει να αντικαταστήσετε Υπογραφή1 και Υπογραφή2 στην 45η και 54η σειρά στα πραγματικά ονόματα της υπογραφής σας.
  • 3) Με τον παραπάνω κωδικό VBA, μπορούμε να προσθέσουμε υπογραφές σε δύο λογαριασμούς email. Εάν έχετε περισσότερους λογαριασμούς, αντικαταστήστε την 57η σειρά του κωδικού με περισσότερες περιπτώσεις:
  • Υπόθεση ""
    Αν VBA.InStr(xSubject, "RE: ") = 1 Τότε
    Έξοδος Sub
    ElseIf VBA.InStr(xSubject, "FW: ") = 1 Τότε
    Έξοδος Sub
    Αλλού
    xSignatureFile = xSignaturePath & "Signature.htm"
    xIsNew = Αλήθεια
    End If

4. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Εργαλεία > αναφορές, επιλέξτε το πλαίσιο δίπλα στο Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0, και κάντε κλικ στο κουμπί OK.

5. Επανεκκινήστε το Outlook και αποθηκεύστε τους κωδικούς VBA.

6. Τώρα, όταν δημιουργείτε ένα νέο μήνυμα με έναν λογαριασμό email για τον οποίο έχετε δημιουργήσει μια υπογραφή, η αντίστοιχη υπογραφή θα προστεθεί αυτόματα.

Σημείωση: Εάν διαπιστώσετε ότι προστέθηκαν δύο υπογραφές όταν δημιουργείτε ένα νέο μήνυμα με έναν λογαριασμό email, κάντε κλικ Υπογραφή > Υπογραφές στο παράθυρο μηνυμάτων. Στην ενότητα Επιλογή προεπιλεγμένης υπογραφής, επιλέξτε τον λογαριασμό email που έχει δύο υπογραφές και επιλέξτε (Κανένας) από την αναπτυσσόμενη λίστα Νέα μηνύματα.


Σχετικά Άρθρα

Πώς να εισαγάγετε ή να εισαγάγετε υπογραφές HTML στο Outlook;

Για παράδειγμα, κατεβάσατε ορισμένες υπογραφές HTML από ιστότοπους και θέλετε να τις εισαγάγετε στο Outlook. Τυχόν εύκολοι τρόποι; Αυτό το άρθρο θα σας καθοδηγήσει για εισαγωγή ή εισαγωγή HTML υπογραφών στο Outlook βήμα προς βήμα.

Πώς να εισαγάγετε το χρώμα φόντου σε μια υπογραφή του Outlook;

Είναι εύκολο να προσθέσετε ή να αφαιρέσετε χρώμα φόντου σε ένα email στο Outlook. Όμως, πώς θα μπορούσατε να εισαγάγετε ή να αφαιρέσετε το χρώμα φόντου σε μια υπογραφή του Outlook; Οι παρακάτω λύσεις θα σας βοηθήσουν να το λύσετε:

Πώς να προσθέσετε διαφορετικές υπογραφές σε πολλούς λογαριασμούς email κατά την απάντηση ή την προώθηση στο Outlook;

Εάν θέλετε το Outlook να προσθέτει αυτόματα υπογραφή όταν απαντάτε ή προωθείτε ένα μήνυμα, θα πρέπει να διαμορφώσετε την προεπιλεγμένη υπογραφή κάνοντας κλικ στην επιλογή Υπογραφή > Υπογραφές και επιλέγοντας μια υπογραφή για έναν συγκεκριμένο λογαριασμό email όπως φαίνεται παρακάτω. Ωστόσο, τι γίνεται αν έχετε πολλούς λογαριασμούς email και θέλετε να προσθέσετε διαφορετικές υπογραφές για τους πολλαπλούς λογαριασμούς σας σε παρτίδες; Σε αυτό το σεμινάριο, θα εισαγάγω μια μέθοδο VBA για να σας βοηθήσω να κάνετε αυτή τη δουλειά εύκολα.

Πώς να ορίσετε διαφορετικές υπογραφές για απαντήσεις και προωθήσεις στο Outlook;

Κανονικά, μπορείτε να ορίσετε διαφορετικές υπογραφές για διαφορετικούς λογαριασμούς στο Outlook, αλλά, έχετε προσπαθήσει ποτέ να εφαρμόσετε διαφορετικές υπογραφές για απαντήσεις και προωθήσεις. Αυτό σημαίνει ότι, όταν απαντάτε σε ένα email, εισάγεται η υπογραφή1, όταν προωθείτε ένα email, εφαρμόζεται η υπογραφή2. Πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία στο Outlook;


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

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