Хэрхэн гарчиггүйгээр Outlook имэйл илгээхээсээ өмнө үндсэн мөрийг автоматаар субьект болгон авах вэ

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

Олон хэрэглэгчид имэйл бичих, илгээхдээ гарчиг оруулахаа мартдаг. Тиймээс, хэрэв гарч буй имэйлд гарчиг байхгүй бол Outlook нь имэйлийн үндсэн мөрийн сэдвийг автоматаар бөглөнө гэж найдаж байна. Дараа нь бид тантай хялбар бөгөөд хялбар аргыг хуваалцах болно.

Гарчиггүйгээр имэйл илгээхийн өмнө автоматаар эхний мөрийг субьект болгон авна уу

1. Хамгийн эхэнд Outlook програмыг ажиллуулаарай.
2. Дараа нь "-д заасан алхмуудыг дагана уу.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ", та VBA засварлагч руу орж болно.
3. Дараа нь VBA засварлагч дээр “MS Word Object Library ”-г заасны дагууОбьектийг хэрхэн яаж нэмэх вэrary 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