Értesítési e-mail automatikus küldése, ha egy adott feladat befejeződött az Outlookban

Egy feladat elvégzése után az Outlookban sok felhasználó szeretne értesítő e-mailt küldeni, hogy értesítsen valakit, például a felettesét. Az e-mail kézi küldése időigényes lesz. Ez a cikk egy gyors módszert mutat be az ilyen típusú e-mailek automatikus küldésére.

A cikkből4 gyors lépés a feladatok másokhoz való hozzárendeléséhez az Outlookban”, tudhatja, hogy ha a feladatot a felettese bízta meg Önnel, és előzetes állapotjelentést kért, mint az alábbi képernyőképen, akkor automatikusan kaphat jelentést e-mailben.

Ha azonban a feladatot csak saját maga hozta létre, az Outlook soha nem küld értesítést senkinek, amikor befejezettként jelöli meg. Ebben az esetben, ha értesítő e-mailt szeretne küldeni a munkája bejelentésére, ezt manuálisan kell megtennie. A következő VBA-kódokkal azonban engedélyezheti, hogy az Outlook automatikusan végrehajtsa ezt.

Automatikus értesítő e-mail küldése, ha egy adott feladat befejeződött

1. Először is indítsa el az Outlookot, és lépjen a „Fejlesztő” fülre.
2. Ezután keresse meg és kattintson a „Visual Basic” gombra. Megjelenik egy új „Microsoft Visual Basic for Applications” ablak.
3. Ezután kattintson duplán a „ThisOutlookSession” projektre a megnyitásához, majd másolja be a következő VBA-kódokat.

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. Ezt követően folytassa a kód aláírásával, és módosítsa a makróbeállításokat úgy, hogy csak a digitálisan aláírt makrókat engedélyezze.
5. Végül kiléphet az aktuális ablakból, és megpróbálhatja.

• Amikor befejezettként jelöl meg egy feladatot, a következő képhez hasonló üzenetet fog kapni:
• Ha rákattint az „Igen” gombra, egy új üzenet jelenik meg, az alábbi képen látható módon:

Jegyzet: Ha a „.display” szót „.Send” sorra cseréli, akkor ezt az e-mailt közvetlenül, anélkül küldjük el, hogy megjelenne.

Fordítson figyelmet az ismeretlen e-mail címekről érkező üzenetekre

Biztosan sok e-mailt kapott már ismeretlen címekről. Célszerű vigyázni az ilyen típusú e-mailekkel. Ez azért van így, mert ártalmatlannak tűnhetnek, de tartalmaznak rosszindulatú hivatkozásokat, mellékleteket vagy makrókat. Ha rákattint vagy megnyitja őket, az Outlook megfertőződhet. Ezen a ponton az Outlook-adatok visszaszerzéséhez nincs más választása, mint egy csillagot használni sérült Outlook adatjavító segédprogram, Mint például a DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL mdf probléma javítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com