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

Әртүрлі алушыларға арналған әртүрлі қолтаңбаларды автоматты түрде таңдау
- Бастау үшін сіз Outlook бағдарламасын іске қосуыңыз керек.
- Содан кейін қолтаңбаны автоматты түрде енгізу мүмкіндігін өшіргеніңіз жөн.
- Алдымен «Файл» мәзіріне өтіп, «Параметрлер» тармағын таңдаңыз.
- «Outlook параметрлері» терезесінде «Пошта» қойындысына ауысыңыз.
- Содан кейін «Қолтаңбалар» түймесін тауып, басыңыз.
- Келесі қалқымалы диалогтық терезеде «Жаңа хабарламалар» және «Жауаптар/қайта жіберу» екеуінде де «(жоқ)» орнатыңыз.
- Осыдан кейін өзгертулерді сақтау үшін «OK» сериясын басыңыз.
- Осыдан кейін Outlook негізгі терезесіне оралып, «Alt + F11» пернелерін басыңыз.
- Әрі қарай, «Қолданбаларға арналған Microsoft Visual Basic» терезесінде «ThisOutlookSession» жобасын тауып ашыңыз.
- Содан кейін келесі 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
- Осыдан кейін сіз осы кодқа қол қоюыңыз керек.
- Кейінірек қол қойылған макростарға мүмкіндік беру үшін Outlook макро параметрлерін өзгертіңіз.
- Бұдан былай электрондық поштаны жіберу үшін «Жіберу» түймесін басқан сайын, Outlook алушыны анықтайды және электрондық пошта мәтінінің соңына сәйкес қолтаңбаны автоматты түрде енгізеді.
Кіріс электрондық хаттарда жасырын зиянды макростарға назар аударыңыз
Қазіргі уақытта вирустар өте жетілген және күшті болды. Олар әрқашан электрондық поштада оларды зиянсыз заттар ретінде жасырады. Сондықтан, енді Outlook бағдарламасында макростарды пайдаланғыңыз келсе, зиянды макростарға қарсы қырағы болуыңыз керек. Әйтпесе, сіздің PST деректеріңіз қауіпте сақталады. Егер PST бүлінсе, сіз бар күшіңізді саласыз PST қалпына келтіру деректер. Бұл жағдайда күшті құралды қолдану ұсынылады, мысалы DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

