Efter at have fuldført en opgave i Outlook, vil mange brugere måske ønske at sende en notifikations-e-mail for at underrette nogen, såsom den overordnede. Det vil være tidskrævende at sende e-mailen manuelt. Denne artikel introducerer en hurtig metode til automatisk at sende denne slags e-mails.
Fra artiklen "4 hurtige trin til at tildele opgave til andre i din Outlook”, kan du vide, at hvis opgaven er tildelt dig fra din overordnede, og de har krævet en statusrapport på forhånd, som skærmbilledet nedenfor, vil de automatisk kunne modtage en rapport-e-mail.
Men hvis opgaven bare er oprettet på egen hånd, sender Outlook aldrig en notifikations-e-mail til nogen, når du markerer den som fuldført. I dette tilfælde, hvis du gerne vil sende en notifikations-e-mail for at rapportere dit arbejde, skal du gøre det manuelt. Men med følgende VBA-koder kan du lade Outlook udføre det automatisk.
Send automatisk en notifikations-e-mail, når en specifik opgave er fuldført
- Først skal du starte Outlook og skifte til fanen "Udvikler".
- Find og klik derefter på knappen "Visual Basic". Et nyt "Microsoft Visual Basic for Applications" vindue vil dukke op.
- Derefter skal du dobbeltklikke på "ThisOutlookSession" -projektet for at åbne det og derefter kopiere følgende VBA-koder ind i det.
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
- Fortsæt derefter med at signere denne kode og ændre makroindstillingerne til kun at tillade digitalt signerede makroer.
- Endelig kan du forlade det aktuelle vindue og prøve.
- Når du markerer en opgave som fuldført, vil du modtage en besked, som følgende billede:
- Når du klikker på "Ja"-knappen, åbnes en ny besked, vist som billedet nedenfor:
Bemærk: Hvis du erstatter ".display" med ".Send" linje, vil denne e-mail blive sendt direkte ud uden at dukke op.
Vær opmærksom på beskeder fra ukendte e-mail-adresser
Du må nogensinde have modtaget mange e-mails fra ukendte adresser. Det er tilrådeligt at være forsigtig med denne form for e-mails. Det er fordi, at de kan se ufarlige ud, men indeholder ondsindede links, vedhæftede filer eller makroer. Når du klikker eller åbner dem, kan din Outlook blive inficeret. På det tidspunkt, for at få dine Outlook-data tilbage, har du intet andet valg end at gøre brug af en stjerne beskadiget Outlook-datafix-værktøj, Såsom DataNumen Outlook Repair.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL mdf-problem og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com