Outlook бағдарламасында электрондық пошта тақырыбын қосымша атымен қалай толтыруға болады

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

Көптеген пайдаланушылар электрондық поштаның тақырып жолына тіркеме атауын қолмен теруге үйренген. Мұндай жағдайда, егер Outlook мұны автоматты түрде орындай алса, бұл әлдеқайда ыңғайлы болады. Сондай-ақ, кейбір пайдаланушылар тақырып жолын толтыруды жиі ұмытып кетеді. Сондықтан, «Жіберу» түймесін басқан кезде, олар «тақырып жоқ» ескерту хабарламасын алады. Мұндай жағдайда, егер Outlook тақырыпты тіркеме атауымен автоматты түрде толтыра алса, олар тітіркендіргіш «тақырып жоқ» ескертуінен аулақ бола алады. Қысқасы, көптеген Outlook пайдаланушылары Outlook-тың поштаның тақырып жолын тіркеме атауымен автоматты түрде толтыруына мүмкіндік беретін осындай әдісті аңсайды деп есептеледі. Бақытымызға орай, Outlook VBA көмегімен біз мұны өте оңай жасай аламыз. Міне, VBA-ның егжей-тегжейлі кодтары мен қадамдары.

Электрондық пошта тақырыбын қосымша атауымен автоматты түрде толтыру

1. Біріншіден, Outlook бағдарламасын іске қосып, «Әзірлеуші» қойындысына ауыса аласыз.
2. Осы қойындының астында VBA редакторы шығарылатын «Visual Basic» батырмасын басу керек.
3. Келесі терезеде алдымен «ThisOutlookSession» жобасын оң жағындағы жобалар тізімінен табуға тура келеді.
4. Осы жобаны ашу үшін келесі екі рет нұқыңыз. Оған келесі кодтарды көшіріңіз.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Осыдан кейін сізге ағымдағы VBA жобасына цифрлық сертификатты әдеттегідей тағайындау қажет.

• Біріншіден, цифрлық сертификат алу үшін «VBA жобаларына арналған сандық сертификаттар» утилитасын пайдаланыңыз.
• Кейіннен сіз ағымдағы макросқа қол қоя аласыз.

6. Кейінірек VBA редакторынан шығып, макро параметрлерін «Сандық қол қойылған макростарға арналған хабарламалар, қалған барлық макростар өшірілген» күйіне өзгертіңіз.
7. Соңында сіз көріңіз.

• Жаңа электрондық пошта жасаңыз.
• Егер сіз тақырыпты толтырмаған болсаңыз және файлды қосқыңыз келсе, сізге келесі сурет сияқты хабарлама келеді:
• «Иә» таңдаған кезде тақырып бірден тіркеме атауымен толтырылады.

Outlook жиі кездесетін мәселелермен күресу

Outlook бағдарламасын бірнеше ондаған жылдар бойы қолданған жағдайда, көптеген Outlook мәселелеріне тап болуыңыз керек. Содан кейін, сіз олармен кездескенде әдетте қандай әрекеттерді жасайсыз? Оларды мүмкіндігінше тезірек анықтау және жою ұсынылады. Бұл жинақталған мәселелер кез-келген уақытта Outlook деректерін зақымдауы мүмкін. Демек, Outlook әдеттегідей жұмыс істей алатын болса да, кіріс жәшігін немесе сыртқы құралдарды қолданған жөн Outlook PST қателерін жөндеу утилитасысияқты DataNumen Outlook Repair, қателерді анықтау және шешу үшін PST файлдарыңызды сканерлеу.

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

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