Outlook'ta bir görevi tamamladıktan sonra, birçok kullanıcı amir gibi birini bilgilendirmek için bir bildirim e-postası göndermek isteyebilir. E-postayı manuel olarak göndermek zaman alıcı olacaktır. Bu makale, bu tür e-postaları otomatik olarak göndermek için hızlı bir yöntem sunacaktır.
Makaleden "Outlook'unuzda Başkalarına Görev Atamak için 4 Hızlı AdımGörev size amirinizden atanırsa ve önceden bir durum raporu istendiyse, aşağıdaki ekran görüntüsü gibi, otomatik olarak bir rapor e-postası alabileceklerini bilebilirsiniz.
Ancak, görev kendi başınıza oluşturulduysa, tamamlandı olarak işaretlediğinizde Outlook asla kimseye bir bildirim e-postası göndermez. Bu durumda, çalışmanızı bildirmek için bir bildirim e-postası göndermek isterseniz, bunu manuel olarak yapmanız gerekir. Ancak aşağıdaki VBA kodlarıyla, Outlook'un bunu otomatik olarak gerçekleştirmesine izin verebilirsiniz.
Belirli Bir Görev Tamamlandığında Otomatik Olarak Bir Bildirim E-postası Gönderin
- Öncelikle Outlook'u açın ve "Geliştirici" sekmesine geçin.
- Ardından “Visual Basic” düğmesini bulun ve tıklayın. Yeni bir “Uygulamalar için Microsoft Visual Basic” penceresi görünecektir.
- Bundan sonra, açmak için “ThisOutlookSession” projesine çift tıklayın ve ardından aşağıdaki VBA kodlarını içine 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
- Daha sonra bu kodu imzalamaya devam edin ve makro ayarlarını yalnızca dijital olarak imzalanmış makrolara izin verecek şekilde değiştirin.
- Son olarak mevcut pencereden çıkıp bir deneyebilirsiniz.
- Bir görevi tamamlandı olarak işaretlediğinizde, aşağıdaki görüntüye benzer bir mesaj alacaksınız:
- “Evet” butonuna tıkladığınızda, aşağıdaki resimdeki gibi yeni bir mesaj açılacaktır:
Not: “.display” yerine “.Send” satırını yazarsanız, bu e-posta görünmeden doğrudan gönderilecektir.
Bilinmeyen E-posta Adreslerinden Gelen Mesajlara Dikkat Edin
Şimdiye kadar bilinmeyen adreslerden birçok e-posta almış olmalısınız. Bu tür e-postalara dikkat etmeniz önerilir. Bunun nedeni, zararsız görünmelerine rağmen kötü amaçlı bağlantılar, ekler veya makrolar içermeleridir. Bunları tıklattığınızda veya açtığınızda, Outlook'unuza virüs bulaşabilir. Bu noktada, Outlook verilerinizi geri almak için bir yıldız kullanmaktan başka seçeneğiniz yoktur. bozuk Outlook veri düzeltme yardımcı programıGibi DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL mdf sorunu ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com