Outlook-da muayyan topshiriq bajarilganda bildirishnomani elektron pochta orqali qanday yuborish kerak

Outlook yechimlari Sentyabr 29, 2025

Outlook-da topshiriqni bajargandan so'ng, ko'p foydalanuvchilar kimnidir xabardor qilish uchun elektron pochta xabarini yuborishni xohlashlari mumkin, masalan, rahbar. Elektron pochtani qo'lda yuborish ko'p vaqt talab etadi. Ushbu maqola ushbu turdagi elektron pochta xabarlarini avtomatik yuborishning tezkor usulini taqdim etadi.

Maqoladan “Outlook-da boshqalarga topshiriq berish uchun 4 tezkor qadam”, shuni bilishingiz mumkinki, agar sizga vazifa rahbaringiz tomonidan topshirilgan bo‘lsa va ular quyidagi skrinshotdagi kabi holat hisobotini oldindan talab qilgan bo‘lsa, ular avtomatik ravishda hisobot e-pochtasini olishlari mumkin.

Ammo, agar vazifa o'zingiz yaratgan bo'lsa, uni tugallangan deb belgilaganingizda, Outlook hech qachon hech kimga bildirishnoma yubormaydi. Bunday holda, agar siz ishingiz haqida xabar berish uchun elektron pochta xabarini yubormoqchi bo'lsangiz, buni qo'lda qilishingiz kerak. Ammo quyidagi VBA kodlari yordamida siz Outlook-ga buni avtomatik ravishda bajarishiga ruxsat berishingiz mumkin.

Muayyan vazifa bajarilganda avtomatik ravishda bildirishnoma elektron pochta xabarini yuborish

Avval Outlookni ishga tushirishingiz va "Dasturchi" yorlig'iga o'tishingiz kerak.
Keyin toping va "Visual Basic" tugmasini bosing. Yangi "Microsoft Visual Basic for Applications" oynasi paydo bo'ladi.
Shundan so'ng, uni ochish uchun "ThisOutlookSession" loyihasini ikki marta bosing va keyin unga quyidagi VBA kodlarini nusxalang.

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

Keyinchalik ushbu kodni imzolashni davom eting va makro sozlamalarini faqat raqamli imzolangan makroslarga ruxsat berish uchun o'zgartiring.
Nihoyat, joriy oynadan chiqishingiz va sinab ko'rishingiz mumkin.

Vazifani tugallangan deb belgilaganingizda, quyidagi rasm kabi xabar olasiz:
"Ha" tugmasini bosganingizda quyidagi rasmda ko'rsatilgan yangi xabar ochiladi:

Eslatma: Agar siz “.display”ni “.Send” qatoriga almashtirsangiz, bu xat ko‘rsatilmasdan to‘g‘ridan-to‘g‘ri yuboriladi.

Noma'lum elektron pochta manzillaridan kelgan xabarlarga e'tibor bering

Siz noma'lum manzillardan ko'plab elektron pochta xabarlarini olgan bo'lishingiz kerak. Bunday elektron pochta xabarlaridan ehtiyot bo'lish tavsiya etiladi. Buning sababi shundaki, ular zararsiz ko'rinishi mumkin, ammo zararli havolalar, qo'shimchalar yoki makrolarni o'z ichiga oladi. Ularni bosganingizdan yoki ochganingizdan so'ng, Outlook virusga duchor bo'lishi mumkin. O'sha paytda, Outlook ma'lumotlaringizni qaytarish uchun sizda yulduzlardan foydalanishdan boshqa tanlovingiz yo'q shikastlangan Outlook ma'lumotlarini tuzatish yordam dasturi, kabi DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL mdf muammosini tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com