După finalizarea unei sarcini în Outlook, mulți utilizatori ar putea dori să trimită un e-mail de notificare pentru a anunța pe cineva, cum ar fi superiorul. Trimiterea manuală a e-mailului va consuma mult timp. Acest articol va introduce o metodă rapidă de a trimite automat acest tip de e-mailuri.
Din articolul „4 pași rapidi pentru a atribui sarcini altora în Outlook”, puteți ști că, dacă sarcina vă este atribuită de la superiorul dvs. și au solicitat în prealabil un raport de stare, cum ar fi captura de ecran de mai jos, vor putea primi automat un e-mail de raport.
Cu toate acestea, dacă sarcina este creată pe cont propriu, Outlook nu va trimite niciodată un e-mail de notificare nimănui când o marcați ca finalizată. În acest caz, dacă doriți să trimiteți un e-mail de notificare pentru a vă raporta munca, trebuie să o faceți manual. Dar cu următoarele coduri VBA, puteți lăsa Outlook să o realizeze automat.
Trimiteți automat un e-mail de notificare când o anumită sarcină este finalizată
- Mai întâi, ar trebui să porniți Outlook și să accesați fila „Dezvoltator”.
- Apoi localizați și faceți clic pe butonul „Visual Basic”. Va apărea o nouă fereastră „Microsoft Visual Basic for Applications”.
- După aceea, faceți dublu clic pe proiectul „ThisOutlookSession” pentru a-l deschide și apoi copiați următoarele coduri VBA în el.
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
- Ulterior, continuați să semnați acest cod și modificați setările macro pentru a permite numai macrocomenzile semnate digital.
- În cele din urmă, puteți ieși din fereastra curentă și puteți încerca.
- Când marcați o sarcină ca finalizată, veți primi un mesaj, precum următoarea imagine:
- Când faceți clic pe butonul „Da”, se va deschide un nou mesaj, prezentat ca imaginea de mai jos:
Notă: Dacă înlocuiți „.display” cu „.Send”, acest e-mail va fi trimis direct, fără a apărea.
Fiți atenți la mesajele de la adrese de e-mail necunoscute
Trebuie să fi primit vreodată multe e-mailuri de la adrese necunoscute. Este recomandabil să fiți atenți la acest tip de e-mailuri. Se datorează faptului că acestea pot părea inofensive, dar conțin linkuri, atașamente sau macrocomenzi rău intenționate. Odată ce faceți clic pe ele sau le deschideți, Outlook-ul dvs. se poate infecta. În acel moment, pentru a vă recupera datele Outlook, nu aveți de ales decât să utilizați un stelar utilitarul de reparare a datelor Outlook deteriorat, Cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați problema SQL mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com