Outlook дээр тодорхой ажил дууссаны дараа автоматаар мэдэгдлийн имэйлийг хэрхэн илгээх вэ

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

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

Нийтлэлээс “Outlook дээрх бусад хүмүүст даалгавар өгөх 4 хурдан алхам", хэрэв таны ахлагч танд үүрэг даалгавар өгсөн бөгөөд тэд доорх дэлгэцийн зураг шиг төлөв байдлын тайланг урьдчилан шаардаж байвал тэд автоматаар тайлангийн имэйл хүлээн авах боломжтой гэдгийг мэдэж болно.

Гэсэн хэдий ч, хэрэв даалгаврыг өөрийн гараар бүтээсэн бол Outlook үүнийг дууссан гэж тэмдэглэх үед хэнд ч хэзээ ч мэдэгдлийн имэйл илгээхгүй. Энэ тохиолдолд, хэрэв та ажлаа тайлагнах мэдэгдлийн имэйл илгээхийг хүсвэл үүнийг гараар хийх хэрэгтэй. Гэхдээ дараах VBA кодуудын тусламжтайгаар та Outlook-д үүнийг автоматаар гүйцэтгэхийг зөвшөөрч болно.

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

Эхлээд та Outlook-г эхлүүлж, "Хөгжүүлэгч" таб руу шилжих хэрэгтэй.
Дараа нь олоод "Visual Basic" товчийг дарна уу. Шинэ "Microsoft Visual Basic for Applications" цонх гарч ирнэ.
Үүний дараа "ThisOutlookSession" төслийг давхар товшоод нээгээд дараах VBA кодуудыг хуулж авна уу.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim obApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim Recip As String
 
    'Replace "test" as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
       'Replace with your desired contact
       Recip = "John Smith"
       If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
          Set obApp = Outlook.Application
          Set olMail = obApp.CreateItem(olMailItem)
          With olMail
               .To = Recip
               .Subject = "Complete: " & Item.Subject
               .Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
               .ReadReceiptRequested = True
               'To directly send it,use ".Send" instead
               .Display
          End With
       End If
    End If
End Sub

Дараа нь энэ кодонд гарын үсэг зурж, зөвхөн дижитал гарын үсэг зурсан макрог зөвшөөрөхийн тулд макро тохиргоог өөрчилнө үү.
Эцэст нь та одоогийн цонхноос гараад оролдоод үзээрэй.

Даалгаврыг дууссан гэж тэмдэглэх үед та дараах зураг шиг мессеж хүлээн авах болно.
Та "Тийм" товчийг дарахад доорх зурагт үзүүлсэн шинэ зурвас нээгдэнэ.

Тайлбар: Хэрэв та ".display"-г ".Send" мөрөөр соливол энэ имэйлийг харуулахгүйгээр шууд илгээх болно.

Үл мэдэгдэх имэйл хаягаас ирсэн мессежүүдэд анхаарлаа хандуулаарай

Та хэзээ нэгэн цагт үл мэдэгдэх хаягаас олон имэйл хүлээн авсан байх ёстой. Энэ төрлийн имэйлээс болгоомжтой байхыг зөвлөж байна. Учир нь тэдгээр нь хор хөнөөлгүй мэт харагдах боловч хортой холбоос, хавсралт эсвэл макро агуулсан байдаг. Тэдгээрийг дарж эсвэл нээвэл таны Outlook халдвар авч болзошгүй. Энэ үед Outlook-ийн мэдээллээ буцааж авахын тулд танд од ашиглахаас өөр сонголт байхгүй болно гэмтсэн Outlook өгөгдөл засах хэрэгсэлЗэрэг DataNumen Outlook Repair.

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

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