Ako automaticky odoslať e-mail s upozornením po dokončení konkrétnej úlohy v programe Outlook

Po dokončení úlohy v programe Outlook môže veľa používateľov chcieť poslať e-mail s upozornením niekomu, napríklad nadriadenému. Ručné odoslanie e-mailu bude časovo náročné. Tento článok predstaví rýchly spôsob automatického odosielania takýchto e-mailov.

Z článku “4 rýchle kroky na priradenie úlohy ostatným v programe Outlook“, môžete vedieť, že ak vám úlohu pridelí váš nadriadený a on si vopred vyžiadal hlásenie o stave, ako je to na snímke obrazovky nižšie, bude môcť automaticky dostať e-mail s hlásením.

Ak však úlohu práve vytvoríte sami, Outlook nikdy nikomu nepošle e-mail s upozornením, keď ju označíte ako dokončenú. V takom prípade, ak chcete poslať e-mail s upozornením na nahlásenie svojej práce, musíte to urobiť manuálne. Ale s nasledujúcimi kódmi VBA môžete nechať Outlook, aby to urobil automaticky.

Automatické odoslanie e-mailu s upozornením po dokončení konkrétnej úlohy

1. Najprv by ste mali spustiť Outlook a prejsť na kartu „Vývojár“.
2. Potom nájdite a kliknite na tlačidlo „Visual Basic“. Zobrazí sa nové okno „Microsoft Visual Basic for Applications“.
3. Potom dvakrát kliknite na projekt „ThisOutlookSession“, aby ste ho otvorili a potom doň skopírujte nasledujúce 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

4. Následne pokračujte v podpísaní tohto kódu a zmeňte nastavenia makra tak, aby povoľovali iba digitálne podpísané makrá.
5. Nakoniec môžete opustiť aktuálne okno a skúsiť to.

• Keď označíte úlohu ako dokončenú, dostanete správu, ako je nasledujúci obrázok:
• Po kliknutí na tlačidlo „Áno“ sa otvorí nová správa, ktorá je znázornená na obrázku nižšie:

Poznámka: Ak nahradíte riadok „.display“ riadkom „.Send“, tento e-mail bude odoslaný priamo bez zobrazenia.

Venujte pozornosť správam z neznámych e-mailových adries

Určite ste už niekedy dostali veľa e-mailov z neznámych adries. Odporúča sa dávať si pozor na tento druh e-mailov. Je to preto, že môžu vyzerať neškodne, ale obsahujú škodlivé odkazy, prílohy alebo makrá. Keď na ne kliknete alebo otvoríte, váš Outlook sa môže nakaziť. V tomto bode, ak chcete získať späť svoje údaje programu Outlook, nemáte inú možnosť, ako využiť hviezdnu poškodený nástroj na opravu údajov programu Outlook, Ako sú DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť problém SQL mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S