Cara Otomatis Memilih Tanda Tangan Berbeda untuk Penerima Berbeda di Email Outlook Anda

Banyak pengguna berharap Outlook dapat secara otomatis memilih tanda tangan yang berbeda untuk penerima yang berbeda di email. Demikian artikel ini akan mengajarkan bagaimana mewujudkannya melalui VBA.

Secara default, Outlook hanya memungkinkan Anda untuk secara otomatis memasukkan berbagai tanda tangan ke dalam email baru, balasan, dan penerusan. Namun, banyak orang bahkan berharap Outlook dapat secara otomatis memilih tanda tangan yang berbeda untuk berbagai penerima. Sayangnya, Outlook tidak menyediakan fitur langsung seperti itu. Jadi, Anda harus mencari cara lain, seperti add-in pihak ketiga atau kode VBA. Sekarang, berikut ini, kami akan mengungkap sepotong kode VBA kepada Anda, yang dapat membantu Anda menyadarinya dengan sangat mudah.

Pilih Otomatis Tanda Tangan Berbeda untuk Penerima Berbeda

1. Pertama-tama, Anda harus membuka program Outlook Anda.
2. Maka Anda sebaiknya menonaktifkan fitur tanda tangan penyisipan otomatis.

• Pertama, masuk ke menu "File" dan pilih "Options".
• Di jendela "Opsi Outlook", alihkan ke tab "Email".
• Kemudian cari dan klik tombol "Tanda Tangan".
• Selanjutnya di kotak dialog popup, setel "(tidak ada)" di kedua "Pesan Baru" dan "Balasan / Teruskan".
• Setelah itu, klik serangkaian "OK" untuk menyimpan perubahan.

3. Setelah itu, Anda dapat kembali ke jendela utama Outlook dan menekan tombol “Alt + F11”.
4. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", temukan dan buka proyek "ThisOutlookSession".
5. Selanjutnya, salin dan tempel kode VBA berikut ke dalam proyek 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. Setelah itu, Anda harus menandatangani kode ini.
7. Kemudian ubah pengaturan makro Outlook Anda untuk memperbolehkan makro bertanda tangan.
8. Mulai sekarang, setiap kali Anda mengklik tombol "Kirim" untuk mengirim email, Outlook akan mengidentifikasi penerima dan secara otomatis memasukkan tanda tangan yang sesuai di akhir badan email.

Carilah Makro Berbahaya Tersembunyi di Email Masuk

Saat ini virus telah menjadi sangat dewasa dan kuat. Mereka selalu menyamarkannya sebagai hal yang tidak berbahaya di email. Oleh karena itu, sekarang Anda bermaksud untuk menggunakan makro di Outlook, Anda harus meningkatkan kewaspadaan Anda terhadap makro berbahaya. Jika tidak, data PST Anda akan tetap berisiko. Jika PST rusak, Anda akan mencoba sebaik mungkin memulihkan PST data. Dalam hal ini, disarankan untuk menggunakan alat yang ampuh, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com