Outlook электрондық поштаңыздағы әртүрлі алушыларға арналған әртүрлі қолтаңбаларды автоматты түрде қалай таңдауға болады

Қазір бөлісу:

Көптеген пайдаланушылар Outlook бағдарламасы электрондық хаттардағы әртүрлі алушылар үшін әртүрлі қолтаңбаларды автоматты түрде таңдай алады деп үміттенеді. Осылайша, бұл мақала оны VBA арқылы қалай жүзеге асыру керектігін үйретеді.

Әдепкі бойынша, Outlook тек жаңа электрондық хаттарға, жауаптарға және қайта жіберулерге әртүрлі қолтаңбаны автоматты түрде енгізуге мүмкіндік береді. Дегенмен, көптеген адамдар Outlook бағдарламасы әртүрлі алушыларға әртүрлі қолтаңбаларды автоматты түрде таңдай алады деп үміттенеді. Өкінішке орай, Outlook мұндай тікелей мүмкіндікті қамтамасыз етпейді. Осылайша, кез келген үшінші тарап қондырмалары немесе VBA коды сияқты басқа жолдарды іздеу керек. Енді келесіде біз сізге VBA кодының бір бөлігін ашамыз, ол сізге оны жел сияқты түсінуге көмектеседі.

Outlook электрондық пошталарындағы әртүрлі алушыларға арналған әртүрлі қолтаңбаларды автоматты түрде таңдау

Әртүрлі алушыларға арналған әртүрлі қолтаңбаларды автоматты түрде таңдау

  1. Бастау үшін сіз Outlook бағдарламасын іске қосуыңыз керек.
  2. Содан кейін қолтаңбаны автоматты түрде енгізу мүмкіндігін өшіргеніңіз жөн.Автоматты кірістіру қолтаңба мүмкіндігін өшіріңіз
  • Алдымен «Файл» мәзіріне өтіп, «Параметрлер» тармағын таңдаңыз.
  • «Outlook параметрлері» терезесінде «Пошта» қойындысына ауысыңыз.
  • Содан кейін «Қолтаңбалар» түймесін тауып, басыңыз.
  • Келесі қалқымалы диалогтық терезеде «Жаңа хабарламалар» және «Жауаптар/қайта жіберу» екеуінде де «(жоқ)» орнатыңыз.
  • Осыдан кейін өзгертулерді сақтау үшін «OK» сериясын басыңыз.
  1. Осыдан кейін Outlook негізгі терезесіне оралып, «Alt + F11» пернелерін басыңыз.
  2. Әрі қарай, «Қолданбаларға арналған Microsoft Visual Basic» терезесінде «ThisOutlookSession» жобасын тауып ашыңыз.
  3. Содан кейін келесі 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

VBA коды - әртүрлі алушыларға арналған әртүрлі қолтаңбаларды автоматты түрде таңдау

  1. Осыдан кейін сіз осы кодқа қол қоюыңыз керек.
  2. Кейінірек қол қойылған макростарға мүмкіндік беру үшін Outlook макро параметрлерін өзгертіңіз.
  3. Бұдан былай электрондық поштаны жіберу үшін «Жіберу» түймесін басқан сайын, Outlook алушыны анықтайды және электрондық пошта мәтінінің соңына сәйкес қолтаңбаны автоматты түрде енгізеді.

Кіріс электрондық хаттарда жасырын зиянды макростарға назар аударыңыз

Қазіргі уақытта вирустар өте жетілген және күшті болды. Олар әрқашан электрондық поштада оларды зиянсыз заттар ретінде жасырады. Сондықтан, енді Outlook бағдарламасында макростарды пайдаланғыңыз келсе, зиянды макростарға қарсы қырағы болуыңыз керек. Әйтпесе, сіздің PST деректеріңіз қауіпте сақталады. Егер PST бүлінсе, сіз бар күшіңізді саласыз PST қалпына келтіру деректер. Бұл жағдайда күшті құралды қолдану ұсынылады, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.