Таны Outlook имэйлд өөр өөр хүлээн авагчдад өөр гарын үсгийг хэрхэн яаж автоматаар сонгох вэ

Олон хэрэглэгчид Outlook нь имэйл дэх өөр өөр хүлээн авагчдад зориулсан өөр гарын үсгийг автоматаар сонгож чадна гэж найдаж байна. Тиймээс энэ нийтлэл нь VBA-ээр дамжуулан үүнийг хэрхэн хэрэгжүүлэхийг заах болно.

Анхдагч байдлаар Outlook нь зөвхөн янз бүрийн гарын үсгийг шинэ имэйл, хариу, дамжуулалтанд автоматаар оруулах боломжийг олгодог. Гэсэн хэдий ч олон хүмүүс Outlook нь өөр өөр хүлээн авагчдын хувьд өөр гарын үсгийг автоматаар сонгож чадна гэж найдаж байна. Харамсалтай нь Outlook нь ийм шууд шинж чанарыг хангаж чадахгүй байна. Тиймээс та гуравдагч этгээдийн нэмэлт нэмэлт эсвэл VBA код гэх мэт өөр арга зам хайх хэрэгтэй. Одоо, дараахь зүйлсээр бид танд салхи мэт мэдрэхэд туслах VBA кодын хэсгийг танилцуулах болно.

Автоматаар өөр өөр хүлээн авагчдад зориулж өөр гарын үсгийг сонго

1. Эхлэхийн тулд та Outlook програмаа ажиллуулах хэрэгтэй.
2. Дараа нь та гарын үсэг зурах функцийг автоматаар оруулахаа больсон нь дээр.

• Нэгдүгээрт, "Файл" цэс рүү ороод "Сонголт" -ыг сонгоно уу.
• "Outlook Options" цонхонд "Mail" таб руу шилжих хэрэгтэй.
• Дараа нь "Гарын үсэг" товчийг олж дарна уу.
• Дараа нь гарч ирэх цонхны цонхонд "Шинэ мессеж" ба "Хариу өгөх / дамжуулах" гэсэн хоёрын аль алинд нь "(байхгүй)" гэсэн тохиргоог оруулна уу.
• Үүний дараа өөрчлөлтийг хадгалахын тулд цуврал “OK” дээр дарна уу.

3. Үүний дараа та Outlook-ийн үндсэн цонх руу буцаж очоод "Alt + F11" товчийг дарна уу.
4. Дараа нь, "Microsoft Visual Basic for Applications" цонхноос "ThisOutlookSession" төслийг олж нээнэ үү.
5. Дараа нь дараахь 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

6. Үүний дараа та энэ кодонд гарын үсэг зурах ёстой.
7. Дараа нь гарын үсэг зурсан макроудыг зөвшөөрөхийн тулд Outlook макро тохиргоогоо өөрчил.
8. Одооноос эхлэн "Илгээх" товчийг дарж имэйл илгээх бүртээ Outlook нь хүлээн авагчийг тодорхойлж, имэйлийн төгсгөлд харгалзах гарын үсгийг автоматаар оруулах болно.

Ирж буй имэйлүүдээс нууцлагдсан хортой макродыг хайж олох

Өнөө үед вирусууд маш их боловсорч, хүчтэй болсон. Тэд үргэлж и-мэйлээр тэднийг хор хөнөөлгүй зүйл гэж далдалдаг. Тиймээс, Outlook дээр макро ашиглах гэж байгаа тул хортой макроос сэрэмжтэй байх хэрэгтэй. Үгүй бол таны PST өгөгдөл эрсдэлд орох болно. Хэрэв PST авлигад автвал та чадах бүхнээ хийх болно PST сэргээх өгөгдөл. Энэ тохиолдолд хүчтэй хэрэгсэл хэрэглэхийг санал болгож байна DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com