Nakon što završe zadatak u Outlooku, mnogi korisnici će možda poželjeti da pošalju e-poruku s obavijesti kako bi obavijestili nekoga, kao što je nadređeni. Ručno slanje e-pošte će oduzeti mnogo vremena. Ovaj članak će predstaviti brzu metodu za automatsko slanje ove vrste e-pošte.
Iz članka “4 brza koraka za dodjelu zadataka drugima u vašem Outlooku“, možete znati da će, ako vam je zadatak dodijelio vaš nadređeni, a on je unaprijed zatražio izvještaj o statusu, kao na snimku ekrana ispod, moći automatski primiti izvještaj e-poštom.
Međutim, ako je zadatak samo kreiran, Outlook nikada nikome neće poslati obavijest e-poštom kada ga označite kao dovršen. U ovom slučaju, ako želite da pošaljete e-poruku sa obavještenjem da prijavite svoj rad, morate to učiniti ručno. Ali sa sljedećim VBA kodovima, možete dozvoliti Outlooku da to automatski izvrši.
Automatsko slanje obavještenja putem e-pošte kada je određeni zadatak završen
- Prvo, trebali biste pokrenuti Outlook i preći na karticu "Programer".
- Zatim pronađite i kliknite na dugme "Visual Basic". Pojavit će se novi prozor "Microsoft Visual Basic za aplikacije".
- Nakon toga, dvaput kliknite na projekat “ThisOutlookSession” da biste ga otvorili, a zatim kopirajte sljedeće VBA kodove u njega.
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
- Zatim nastavite s potpisivanjem ovog koda i promijenite postavke makroa kako biste dozvolili samo digitalno potpisane makroe.
- Konačno možete izaći iz trenutnog prozora i pokušati.
- Kada označite zadatak kao završen, dobit ćete poruku, poput sljedeće slike:
- Kada kliknete na dugme „Da“, otvoriće se nova poruka, prikazana na slici ispod:
Bilješka: Ako zamijenite ".display" linijom ".Send", ova e-poruka će biti poslana direktno bez pojavljivanja.
Obratite pažnju na poruke sa nepoznatih adresa e-pošte
Sigurno ste ikada primili mnogo e-mailova sa nepoznatih adresa. Preporučljivo je paziti na ovu vrstu e-mailova. To je zato što mogu izgledati bezazleno, ali sadrže zlonamjerne veze, priloge ili makroe. Kada ih kliknete ili otvorite, vaš Outlook se može zaraziti. U tom trenutku, da biste vratili svoje Outlook podatke, nemate drugog izbora osim da koristite stellar oštećeni Outlook uslužni program za popravku podataka, Kao što su DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi SQL mdf problem i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com