Po dokončení úkolu v Outlooku může mnoho uživatelů chtít poslat e-mail s oznámením, aby někoho upozornili, například nadřízeného. Ruční odeslání e-mailu bude časově náročné. Tento článek představí rychlou metodu automatického odesílání tohoto druhu e-mailů.
Z článku „4 rychlé kroky k přiřazení úkolu ostatním ve vašem Outlooku”, Můžete vědět, že pokud vám úkol přidělí váš nadřízený a oni předem požadovali hlášení o stavu, jako je snímek obrazovky níže, budou moci automaticky dostávat e-maily s hlášeními.
Pokud je však úkol vytvořen samostatně, Outlook nikdy nepošle e-mail s oznámením nikomu, když jej označíte jako dokončený. V tomto případě, pokud chcete poslat e-mail s oznámením o nahlášení vaší práce, musíte to udělat ručně. Ale s následujícími kódy VBA můžete nechat aplikaci Outlook, aby ji automaticky splnila.
Automatické odeslání e-mailu s oznámením, když je splněn konkrétní úkol
- Nejprve byste měli spustit Outlook a přejít na kartu „Vývojář“.
- Poté vyhledejte a klikněte na tlačítko „Visual Basic“. Zobrazí se nové okno „Microsoft Visual Basic pro aplikace“.
- Poté dvojitým kliknutím otevřete projekt „ThisOutlookSession“ a zkopírujte do něj následující kódy VBA.
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
- Následně pokračujte k podepsání tohoto kódu a změňte nastavení maker tak, aby povolila pouze digitálně podepsaná makra.
- Nakonec můžete opustit aktuální okno a zkusit to.
- Když úkol označíte jako dokončený, obdržíte zprávu, například následující obrázek:
- Když kliknete na tlačítko „Ano“, otevře se nová zpráva zobrazená jako obrázek níže:
Poznámka: Pokud nahradíte řádek „.display“ řádkem „.Send“, bude tento e-mail odeslán přímo, aniž by se zobrazil.
Věnujte pozornost zprávám z neznámých e-mailových adres
Určitě jste někdy obdrželi mnoho e-mailů z neznámých adres. Je vhodné si na tento druh e-mailů dávat pozor. Je to proto, že mohou vypadat neškodně, ale obsahují škodlivé odkazy, přílohy nebo makra. Jakmile na ně kliknete nebo je otevřete, může dojít k infikování vašeho Outlooku. V tomto okamžiku vám nezbývá než získat hvězdnou data, abyste získali zpět data aplikace Outlook poškozený nástroj pro opravu dat aplikace Outlook, Jako DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit problém mdf SQL a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com