Outlook-da tapşırığı yerinə yetirdikdən sonra bir çox istifadəçi, məsələn, rəhbər kimi kiməsə məlumat vermək üçün bildiriş e-poçtu göndərmək istəyə bilər. E-poçtu əl ilə göndərmək çox vaxt aparacaq. Bu məqalə bu cür e-poçtları avtomatik göndərməyin sürətli üsulunu təqdim edəcək.
Məqaləsindən “Outlook-da başqalarına tapşırıq vermək üçün 4 sürətli addım”, bilə bilərsiniz ki, əgər tapşırıq sizə rəhbəriniz tərəfindən tapşırılıbsa və onlar aşağıdakı skrinşot kimi əvvəlcədən status hesabatı tələb etsələr, onlar avtomatik olaraq hesabat e-poçtunu ala biləcəklər.
Bununla belə, əgər tapşırıq yalnız özünüz tərəfindən yaradılıbsa, Outlook onu tamamlanmış kimi qeyd etdiyiniz zaman heç kimə bildiriş e-poçtu göndərməyəcək. Bu halda, işinizi bildirmək üçün bildiriş e-poçtu göndərmək istəyirsinizsə, bunu əl ilə etməlisiniz. Lakin aşağıdakı VBA kodları ilə siz Outlook-un bunu avtomatik yerinə yetirməsinə icazə verə bilərsiniz.
Xüsusi Tapşırıq Tamamlandıqda Avtomatik Bildiriş E-poçtu Göndər
- Əvvəlcə Outlook-u işə salmalı və "Geliştirici" sekmesine keçməlisiniz.
- Sonra tapın və "Visual Basic" düyməsini basın. Yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsi görünəcək.
- Bundan sonra, onu açmaq üçün "ThisOutlookSession" layihəsinə iki dəfə klikləyin və sonra aşağıdakı VBA kodlarını kopyalayın.
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
- Sonra bu kodu imzalamağa davam edin və yalnız rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişdirin.
- Nəhayət, cari pəncərədən çıxa və cəhd edə bilərsiniz.
- Tapşırığı tamamlandı kimi qeyd etdiyiniz zaman aşağıdakı şəkil kimi bir mesaj alacaqsınız:
- “Bəli” düyməsini kliklədiyiniz zaman aşağıdakı şəkildə göstərilən yeni mesaj açılacaq:
Qeyd: Əgər “.display” yazısını “.Göndər” xətti ilə əvəz etsəniz, bu e-poçt görünmədən birbaşa göndəriləcək.
Naməlum e-poçt ünvanlarından gələn mesajlara diqqət yetirin
Siz nə vaxtsa naməlum ünvanlardan çoxlu e-poçt almısınız. Bu cür e-poçtlardan ehtiyatlı olmaq məsləhətdir. Bunun səbəbi, onlar zərərsiz görünə bilər, lakin zərərli bağlantılar, qoşmalar və ya makroları ehtiva edir. Onları kliklədikdən və ya açdıqdan sonra Outlook-unuz yoluxmuş ola bilər. Bu nöqtədə, Outlook məlumatlarınızı geri qaytarmaq üçün bir ulduzdan istifadə etməkdən başqa seçiminiz yoxdur zədələnmiş Outlook məlumatlarını düzəltmə proqramıKimi DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL mdf problemini təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com