Та хавсралтын нэрийг Outlook дээр имэйлийн сэдэв болгон байнга ашигладаг уу? Хэрэв тийм бол Outlook үүнийг автоматаар дуусгана гэж найдаж байна. Энэ нийтлэл нь Outlook VBA-г ашиглан үүнийг хэрэгжүүлэхэд хялбар аргыг танилцуулах болно.
Олон хэрэглэгчид имэйлийн гарчгийн мөрөнд хавсралтын нэрийг гараар бичихэд дассан байдаг. Ийм тохиолдолд Outlook үүнийг автоматаар хийж чадвал илүү тохиромжтой байх болно. Түүнчлэн, зарим хэрэглэгчид гарчгийн мөрийг бөглөхөө мартдаг. Тиймээс "Илгээх" товчийг дарахад тэд "гарчиггүй" гэсэн анхааруулгын мессеж хүлээн авах болно. Ийм тохиолдолд, хэрэв Outlook нь гарчгийг хавсралтын нэрээр автоматаар бөглөж чадвал тэд "гарчиггүй" гэсэн ядаргаатай анхааруулгаас зайлсхийх боломжтой болно. Товчхондоо, Outlook-ийн олон хэрэглэгчид Outlook нь имэйлийн гарчгийн мөрийг хавсралтын нэрээр автоматаар бөглөх ийм аргыг хүсч байгаа гэж үздэг. Аз болоход, Outlook VBA-ийн тусламжтайгаар бид үүнийг хамгийн хялбараар хийж чадна. VBA-ийн дэлгэрэнгүй кодууд болон алхмуудыг энд оруулав.
Имэйлийн сэдвийн мөрийг хавсралтын нэрээр автоматаар бөглөнө үү
- Эхлээд та Outlook-г эхлүүлж, "Хөгжүүлэгч" таб руу шилжиж болно.
- Дараа нь энэ табын доор та "Visual Basic" товчийг дарах хэрэгтэй бөгөөд энэ нь VBA засварлагчийг гаргах болно.
- Дараагийн цонхонд та эхлээд баруун талд байгаа төслийн жагсаалтаас "ThisOutlookSession" төслийг олох хэрэгтэй.
- Дараа нь энэ төслийг нээхийн тулд давхар товшино уу. Дараа нь дараах кодуудыг хуулж оруулаарай.
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
- Үүний дараа та ердийн байдлаар одоогийн VBA төсөлд дижитал гэрчилгээ олгох ажлыг үргэлжлүүлэх хэрэгтэй.
- Нэгдүгээрт, дижитал гэрчилгээ үүсгэхийн тулд "VBA төслүүдийн дижитал гэрчилгээ" суурилуулсан хэрэгслийг ашиглана уу.
- Үүний дараа та одоогийн макро гарын үсэг зурж болно.
- Дараа нь VBA засварлагчаас гараад макро тохиргоог "Дижитал гарын үсэгтэй макроны мэдэгдэл, бусад бүх макро идэвхгүй" болгож өөрчил.
- Эцэст нь та хичээгээд үзээрэй.
- Шинэ имэйл үүсгэх.
- Хэрэв та сэдвээ бөглөөгүй бөгөөд файл хавсаргах гэж байгаа бол дараах зураг шиг мессеж хүлээн авна.
- "Тийм" гэснийг сонгоход тухайн сэдвийг хавсралтын нэрээр нэг дор бөглөнө.
Төлөв байдлын талаархи байнгын асуудлуудыг даван туулах
Хэрэв та Outlook-ийг хэдэн арван жилийн турш ашигласан бол Outlook-ийн олон асуудалтай тулгарсан байх ёстой. Тэгээд тэдэнтэй уулзахдаа ихэвчлэн ямар арга хэмжээ авдаг вэ? Тэднийг аль болох хурдан илрүүлж, арилгахыг зөвлөж байна. Учир нь хуримтлагдсан асуудлууд нь таны Outlook өгөгдлийг хэзээ ч гэмтээж болзошгүй юм. Тиймээс, Outlook ердийнхөөрөө ажиллаж байсан ч ирсэн имэйлийг засах хэрэгсэл эсвэл гадаад програмыг ашиглах нь дээр Outlook PST алдаа засах хэрэгсэл, гэх мэт DataNumen Outlook Repair, алдааг илрүүлэх, шийдвэрлэхийн тулд PST файлуудаа сканнердах.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. гэмтсэн засах SQL Server Өгөгдлийн сан програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com