Outlook elektron pochtangizdagi turli xil qabul qiluvchilar uchun turli imzolarni qanday avtomatik tanlash mumkin

Ko'pgina foydalanuvchilar Outlook elektron pochta xabarlarida turli xil qabul qiluvchilar uchun turli imzolarni avtomatik tanlashiga umid qiladilar. Shunday qilib, ushbu maqola uni VBA orqali qanday amalga oshirishni o'rgatadi.

Odatiy bo'lib, Outlook faqat yangi elektron pochta xabarlari, javoblar va yuborishlarga o'zgaruvchan imzoni avtomatik kiritish imkonini beradi. Biroq, ko'pchilik hatto Outlook turli xil qabul qiluvchilar uchun turli imzolarni avtomatik tanlashiga umid qiladi. Afsuski, Outlook bunday to'g'ridan-to'g'ri xususiyatni ta'minlamaydi. Shunday qilib, siz boshqa yo'llarni izlashingiz kerak, masalan, har qanday uchinchi tomon plaginlari yoki VBA kodi. Endi, quyida biz sizga VBA kodining bir qismini ochamiz, bu sizga uni shabada kabi anglashga yordam beradi.

Turli xil qabul qiluvchilar uchun turli imzolarni avtomatik tanlash

1. Boshlash uchun siz Outlook dasturingizni ishga tushirishingiz kerak.
2. Keyin avtomatik ravishda imzo qo'yish funksiyasini o'chirib qo'yganingiz ma'qul.

• Birinchidan, "Fayl" menyusiga o'ting va "Options" ni tanlang.
• "Outlook Options" oynasida "Pochta" yorlig'iga o'ting.
• Keyin toping va "Imzolar" tugmasini bosing.
• Keyingi qalqib chiquvchi dialog oynasida "Yangi xabarlar" va "Javoblar/yo'naltirishlar" qatorida "(yo'q)" ni o'rnating.
• Shundan so'ng, o'zgarishlarni saqlash uchun bir qator "OK" tugmasini bosing.

3. Shundan so'ng, siz Outlook asosiy oynasiga qaytishingiz va "Alt + F11" tugmachalarini bosishingiz mumkin.
4. Keyinchalik, "Ilovalar uchun Microsoft Visual Basic" oynasida "ThisOutlookSession" loyihasini toping va oching.
5. Keyinchalik, ushbu loyihaga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak.
7. Keyinchalik imzolangan makroslarga ruxsat berish uchun Outlook makro sozlamalarini o'zgartiring.
8. Bundan buyon siz elektron pochta xabarini yuborish uchun har safar “Yuborish” tugmasini bosganingizda, Outlook qabul qiluvchini aniqlaydi va elektron pochtaning oxiriga tegishli imzoni avtomatik kiritadi.

Kiruvchi elektron pochta xabarlarida yashirin zararli makroslarga e'tibor bering

Hozirgi vaqtda viruslar juda etuk va kuchli bo'lib qoldi. Ular har doim elektron pochtada ularni zararsiz narsalar sifatida yashirishadi. Shuning uchun, endi Outlook-da makroslardan foydalanmoqchi bo'lsangiz, zararli makroslarga qarshi hushyorlikni oshirishingiz kerak. Aks holda, sizning PST ma'lumotlaringiz xavf ostida qoladi. Agar PST buzilgan bo'lsa, siz qo'lingizdan kelganicha harakat qilasiz PSTni tiklash ma'lumotlar. Bunday holda, kuchli vositani qo'llash tavsiya etiladi, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com