Pas përfundimit të një detyre në Outlook, shumë përdorues mund të dëshirojnë të dërgojnë një email njoftimi për të njoftuar dikë, siç është eprori. Dërgimi manual i emailit do të marrë kohë. Ky artikull do të prezantojë një metodë të shpejtë për të dërguar automatikisht këtë lloj emaili.
Nga artikulli "4 hapa të shpejtë për t'u caktuar detyra të tjerëve në Outlook-in tuaj”, mund ta dini se nëse detyra ju është caktuar nga eprori juaj dhe ata kanë kërkuar një raport statusi paraprakisht, si pamja e ekranit më poshtë, ata do të mund të marrin automatikisht një email raporti.
Megjithatë, nëse detyra është krijuar vetë, Outlook nuk do t'i dërgojë askujt një email njoftimi kur ta shënoni si të përfunduar. Në këtë rast, nëse dëshironi të dërgoni një email njoftimi për të raportuar punën tuaj, duhet ta bëni atë manualisht. Por me kodet e mëposhtme VBA, mund ta lejoni Outlook që ta përmbushë atë automatikisht.
Dërgoni automatikisht një email njoftimi kur një detyrë specifike është përfunduar
- Së pari, duhet të hapni Outlook dhe të kaloni te skeda "Zhvillues".
- Pastaj gjeni dhe klikoni në butonin "Visual Basic". Do të shfaqet një dritare e re "Microsoft Visual Basic për aplikacione".
- Pas kësaj, klikoni dy herë projektin "ThisOutlookSession" për ta hapur atë dhe më pas kopjoni kodet e mëposhtme VBA në të.
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
- Më pas vazhdoni të nënshkruani këtë kod dhe ndryshoni cilësimet e makrove për të lejuar vetëm makro të nënshkruara dixhitale.
- Më në fund mund të dilni nga dritarja aktuale dhe të provoni.
- Kur shënoni një detyrë si të përfunduar, do të merrni një mesazh, si imazhi i mëposhtëm:
- Kur klikoni në butonin "Po", do të hapet një mesazh i ri, i paraqitur si në foton më poshtë:
Shënim: Nëse zëvendësoni linjën ".display" me ".Dërgo", ky email do të dërgohet drejtpërdrejt pa u shfaqur.
Kushtojini vëmendje mesazheve nga adresa të panjohura të postës elektronike
Ju duhet të keni marrë ndonjëherë shumë email nga adresa të panjohura. Është e këshillueshme që të keni kujdes nga këto lloj emailesh. Kjo është për shkak se ato mund të duken të padëmshme, por përmbajnë lidhje me qëllim të keq, bashkëngjitje ose makro. Pasi t'i klikoni ose t'i hapni ato, Outlook juaj mund të infektohet. Në atë pikë, për të rimarrë të dhënat tuaja të Outlook, nuk keni zgjidhje tjetër veçse të përdorni një yjor programi i dëmtuar i rregullimit të të dhënave të Outlook, Të tilla si DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i problemit SQL mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com