Тақырыпсыз Outlook электрондық поштасын жібермес бұрын негізгі мәтіннің бірінші жолын тақырып ретінде қалай алуға болады

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

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

Тақырыбы жоқ электрондық поштаны жібермес бұрын негізгі мәтіннің бірінші жолын автоматты түрде алыңыз

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін, « бөліміндегі қадамдарды орындау арқылыOutlook бағдарламасында VBA кодын қалай іске қосуға болады«, сіз VBA редакторына кіре аласыз.
3. Әрі қарай, VBA редакторында «MS Word Object Library »-ге сәйкесНысанды қалай қосуға болады Library VBA сілтемесі«.
4. Кейінірек төмендегі кодты «ThisOutlookSession» жобасына көшіріңіз.

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

5. Осыдан кейін курсорды «Application_Startup »ішкі бағдарламасын таңдап,« F5 »пернесін басыңыз.
6. Соңында, сіз көріңіз.

• Алдымен тақырыбы бос электрондық поштаны жасаңыз және жазыңыз.
• Содан кейін «Жіберу» түймесін басыңыз.
• Кейінірек негізгі мәтіннің бірінші жолын тақырып ретінде алу керектігін сұрайтын хабарлама аласыз.
• «Иә» түймесін таңдаған кезде, электрондық пошта мәтінінің бірінші жолы шығарылады және тақырып ретінде пайдаланылады және электрондық пошта жіберіледі.

Outlook деректерін қауіпсіз сақтаңыз

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

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

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