Outlook VBA-тэй тодорхой тодорхой имэйлийн хавсралтыг хэрхэн автоматаар шалгах вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Заримдаа та долоо хоногт хийсэн ажлаа тайлагнах имэйл гэх мэт тодорхой имэйлд шаардлагатай хавсралтыг нэмж оруулахаа мартаж магадгүй юм. Энэ нийтлэл нь танд тодорхой имэйлийг хавсралтгүйгээр илгээхээс урьдчилан сэргийлэхийн тулд попап сэрэмжлүүлгийг идэвхжүүлэхийг заах болно.

Outlook 2010 болон өмнөх хувилбаруудаас ялгаатай нь Outlook 2013 нь танд гарч буй имэйлд ямар ч файл хавсаргаагүй байхад сануулах төрөлхийн дэмжлэгтэй байдаг. Та энэ функцийг дараах скриншот шиг Outlook Options дээр идэвхжүүлж болно.

Хавсралт дутуу байгаа тухай автомат анхааруулгыг идэвхжүүлсэн л бол имэйл илгээх бүрт анхааруулга гарч ирнэ. Гэхдээ ихэнх тохиолдолд та файл хавсаргах шаардлагагүй. Ийм тохиолдолд анхааруулга нь төвөгтэй байх болно. Энд бид Outlook VBA ашиглан тодорхой гарч буй имэйлд хавсралт байхгүй үед автомат анхааруулгыг хэрхэн идэвхжүүлэхийг танд хэлэх болно.

Тодорхой илгээсэн имэйлийн хавсралтыг автоматаар шалгах

Хамгийн эхэнд Outlook програмыг ажиллуулаад "Developer" таб руу шилжээрэй.
"Код" бүлгийн "Visual Basic" товчийг дарна уу.
Дараа нь шинэ програм болох "Microsoft Visual Basic for Applications" цонхонд та "ThisOutlookSession" төсөл дээр давхар товшоод нээнэ үү.
Дараа нь та дараах кодыг “ThisOutlookSession” төсөлд хуулах хэрэгтэй.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

Дараа нь хэрэгслийн самбар дээрх хадгалах дүрс дээр дарна уу.
Үүний дараа та энэ кодонд гарын үсэг зурж үргэлжлүүлэх хэрэгтэй.

Эхлээд та дижитал гэрчилгээ үүсгэх хэрэгтэй. MS Office нь "VBA төслүүдэд зориулсан дижитал гэрчилгээ" гэсэн суурилагдсан хэрэгсэлтэй ирдэг. Та үүнийг "Start цэс"-ээс "vba" гэж хайгаад олж болно.
Дараа нь кодод гарын үсэг зурахын тулд "visual basic" цонх руу буцаж очно уу.

Үүний дараа "Visual Basic" -ээс гарч, "Developer" табын доор байрлах "Macro settings" товчийг дарна уу. “Итгэлцлийн төв” харилцах цонхноос та зөвхөн дижитал гарын үсэг бүхий макро идэвхжүүлэхийн тулд сонгох хэрэгтэй. Эцэст нь "OK" дээр дарахаа бүү мартаарай.
Эцэст нь та хичээгээд үзээрэй. Тодорхой хүлээн авагч, сэдэвтэй, гэхдээ хавсралгүйгээр шинэ мессеж үүсгэх. Та "Илгээх" товчийг дарахад танд дараах зургаар харуулсан попап анхааруулга ирэх болно.

Өөрийн Outlook өгөгдлийг хамгаалалттай байлга

Outlook нь авлигад өртөмтгий тул та Outlook өгөгдлөө хамгаалахын тулд хүчин чармайлт гаргах хэрэгтэй. Хамгийн сайн арга бол тууштай, хамгийн сүүлийн үеийн нөөцлөлтийг хийх явдал юм. Тиймээс та амархан гэмтсэн Outlook өгөгдлийг сэргээх гэнэтийн Outlook сүйрэлд орсон ч гэсэн нөөцлөлтөөс. Нэмж дурдахад, хэрэв харамсалтай нь нөөцлөлт амжилтгүй болбол туршлагатай засварын хэрэгсэл авахаас өөр аргагүй болно DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL db алдааг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com