Πολλοί χρήστες ελπίζουν ότι το Outlook μπορεί να επιλέξει αυτόματα τις διαφορετικές υπογραφές για διαφορετικούς παραλήπτες στα μηνύματα ηλεκτρονικού ταχυδρομείου. Έτσι, αυτό το άρθρο θα διδάξει πώς να το πραγματοποιήσετε μέσω VBA.
Από προεπιλογή, το Outlook σάς επιτρέπει μόνο την αυτόματη εισαγωγή της διαφορετικής υπογραφής σε νέα μηνύματα ηλεκτρονικού ταχυδρομείου, απαντήσεις και προωθήσεις. Ωστόσο, πολλοί άνθρωποι ελπίζουν ακόμη και ότι το Outlook μπορεί να επιλέξει αυτόματα τις διαφορετικές υπογραφές για διαφορετικούς παραλήπτες. Δυστυχώς, το Outlook δεν παρέχει μια τέτοια άμεση δυνατότητα. Επομένως, πρέπει να αναζητήσετε άλλους τρόπους, όπως πρόσθετα τρίτων ή κώδικα VBA. Τώρα, στα ακόλουθα, θα σας αποκαλύψουμε ένα κομμάτι κώδικα VBA, που μπορεί να σας βοηθήσει να το συνειδητοποιήσετε σαν αεράκι.
Αυτόματη επιλογή διαφορετικών υπογραφών για διαφορετικούς παραλήπτες
- Για να ξεκινήσετε, θα πρέπει να ξεκινήσετε το πρόγραμμα Outlook.
- Τότε καλύτερα να απενεργοποιήσετε τη δυνατότητα αυτόματης εισαγωγής υπογραφής.
- Αρχικά, μεταβείτε στο μενού "Αρχείο" και επιλέξτε "Επιλογές".
- Στο παράθυρο "Επιλογές του Outlook", μεταβείτε στην καρτέλα "Αλληλογραφία".
- Στη συνέχεια, βρείτε και κάντε κλικ στο κουμπί "Υπογραφές".
- Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, ορίστε το "(none)" τόσο στα "Νέα μηνύματα" και "Απαντήσεις/Προώθηση".
- Μετά από αυτό, κάντε κλικ σε μια σειρά από "OK" για να αποθηκεύσετε τις αλλαγές.
- Μετά από αυτό, μπορείτε να επιστρέψετε στο κύριο παράθυρο του Outlook και να πατήσετε τα πλήκτρα "Alt + F11".
- Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", βρείτε και ανοίξτε το έργο "ThisOutlookSession".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτό το έργο.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim objRecipient As Outlook.recipient
Dim strRecipientAddress As String
Dim strSignatureFile As String
Dim objFileSystem As Object
Dim objTextStream As Object
Dim strSignature As String
If TypeOf Item Is MailItem Then
Set objMail = Item
Set objRecipients = objMail.Recipients
End If
'Select different signature files based on recipients
'You can change the conditions as per you actual needs
If objRecipients.Count = 1 Then
Set objRecipient = objRecipients.Item(1)
strRecipientAddress = objRecipient.Address
If strRecipientAddress = "mandy@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
ElseIf strRecipientAddress = "abby@datanumen.com" Then
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
End If
Else
strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
End If
'Read the specific signature file
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
strSignature = objTextStream.ReadAll
'Insert the signature to this email
objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub
- Μετά από αυτό, πρέπει να υπογράψετε αυτόν τον κωδικό.
- Αργότερα αλλάξτε τις ρυθμίσεις μακροεντολής του Outlook για να επιτρέψετε υπογεγραμμένες μακροεντολές
- Από εδώ και στο εξής, κάθε φορά που κάνετε κλικ στο κουμπί "Αποστολή" για να στείλετε ένα email, το Outlook θα αναγνωρίζει τον παραλήπτη και θα εισάγει αυτόματα την αντίστοιχη υπογραφή στο τέλος του σώματος του email.
Προσέξτε για κρυφές κακόβουλες μακροεντολές στα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου
Στις μέρες μας οι ιοί έχουν γίνει πολύ ώριμοι και ισχυροί. Τα μεταμφιέζουν πάντα ως αβλαβή πράγματα στο email. Επομένως, τώρα που σκοπεύετε να χρησιμοποιήσετε μακροεντολές στο Outlook, θα πρέπει να αυξήσετε την επαγρύπνηση σας έναντι των κακόβουλων μακροεντολών. Διαφορετικά, τα δεδομένα σας PST θα διατηρηθούν σε κίνδυνο. Εάν το PST καταστραφεί, θα κάνετε ό,τι καλύτερο μπορείτε ανάκτηση PST δεδομένα. Σε αυτή την περίπτωση, προτείνεται η εφαρμογή ενός ισχυρού εργαλείου, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com