Cara Auto Pilih Tanda Tangan Yang Berbeza untuk Penerima Berbeza dalam Email Outlook Anda

Ramai pengguna berharap Outlook dapat memilih tandatangan yang berbeza secara automatik untuk penerima yang berbeza dalam e-mel. Oleh itu, artikel ini akan mengajar bagaimana mewujudkannya melalui VBA.

Secara lalai, Outlook hanya membenarkan anda memasukkan tanda tangan yang berbeza secara automatik ke dalam e-mel, balasan, dan penerusan baru. Walau bagaimanapun, banyak orang berharap Outlook dapat memilih tandatangan yang berbeza secara automatik untuk pelbagai penerima. Sayangnya, Outlook tidak menyediakan ciri langsung seperti itu. Oleh itu, anda harus mencari cara lain, seperti mana-mana tambahan pihak ketiga atau kod VBA. Berikut ini, kami akan memperkenalkan sepotong kod VBA kepada anda, yang dapat membantu anda merealisasikannya seperti angin.

Auto Pilih Tandatangan Berbeza untuk Penerima Berbeza

1. Untuk bermula, anda perlu melancarkan program Outlook anda.
2. Oleh itu, anda lebih baik mematikan ciri tandatangan memasukkan automatik.

• Pertama, pergi ke menu "Fail" dan pilih "Pilihan".
• Di tetingkap "Pilihan Outlook", beralih ke tab "Mel".
• Kemudian cari dan klik pada butang "Tandatangan".
• Selanjutnya di kotak dialog pop timbul, tetapkan “(none)” di kedua “New Messages” dan “Replies / Forward”.
• Selepas itu, klik satu siri "OK" untuk menyimpan perubahan.

3. Selepas itu, anda boleh kembali ke tetingkap utama Outlook dan tekan kekunci "Alt + F11".
4. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications", cari dan buka projek "ThisOutlookSession".
5. Selepas itu, salin dan tampal kod VBA berikut ke dalam projek ini.

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

6. Selepas itu, anda harus menandatangani kod ini.
7. Nanti ubah tetapan makro Outlook anda untuk membenarkan makro yang ditandatangani.
8. Mulai sekarang, setiap kali anda mengklik butang "Kirim" untuk menghantar e-mel, Outlook akan mengenal pasti penerima dan memasukkan tanda tangan secara automatik di hujung badan e-mel.

Cari Makro Berbahaya Tersembunyi di E-mel Masuk

Pada masa ini virus menjadi sangat matang dan kuat. Mereka selalu menyamar sebagai perkara yang tidak berbahaya dalam e-mel. Oleh itu, sekarang kerana anda bermaksud menggunakan makro di Outlook, anda harus meningkatkan kewaspadaan anda terhadap makro jahat. Jika tidak, data PST anda akan disimpan dalam risiko. Sekiranya PST rosak, anda akan berusaha sebaik mungkin memulihkan PST data. Dalam kes ini, disarankan untuk menggunakan alat yang ampuh, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com