Atlikę užduotį programoje „Outlook“, daugelis vartotojų gali norėti išsiųsti pranešimą el. paštu, kad praneštų kam nors, pavyzdžiui, vadovui. Laiško siuntimas rankiniu būdu užtruks daug laiko. Šiame straipsnyje bus pristatytas greitas būdas automatiškai išsiųsti tokio tipo el. laiškus.
Iš straipsnio „4 greiti veiksmai, kaip priskirti užduotį kitiems savo „Outlook“.“, galite žinoti, kad jei užduotį jums paskyrė jūsų vadovas ir jie iš anksto pareikalavo būsenos ataskaitos, kaip parodyta toliau pateiktoje ekrano kopijoje, jie galės automatiškai gauti ataskaitos el. laišką.
Tačiau, jei užduotį sukūrėte patys, „Outlook“ niekada niekam nesiųs pranešimo el. laiško, kai pažymėsite ją kaip atliktą. Tokiu atveju, jei norite išsiųsti pranešimą el. paštu ir pranešti apie savo darbą, turite tai padaryti rankiniu būdu. Tačiau naudodami šiuos VBA kodus galite leisti „Outlook“ tai atlikti automatiškai.
Automatiškai išsiųskite pranešimą el. paštu, kai bus atlikta konkreti užduotis
- Pirmiausia turėtumėte paleisti „Outlook“ ir pereiti į skirtuką „Kūrėjas“.
- Tada suraskite ir spustelėkite mygtuką „Visual Basic“. Bus rodomas naujas „Microsoft Visual Basic for Applications“ langas.
- Po to dukart spustelėkite „ThisOutlookSession“ projektą, kad jį atidarytumėte, ir nukopijuokite į jį šiuos VBA kodus.
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
- Tada pasirašykite šį kodą ir pakeiskite makrokomandos nustatymus, kad būtų galima naudoti tik skaitmeniniu būdu pasirašytas makrokomandas.
- Galiausiai galite išeiti iš dabartinio lango ir pabandyti.
- Kai pažymėsite užduotį kaip atliktą, gausite pranešimą, pavyzdžiui, šį paveikslėlį:
- Kai paspausite mygtuką „Taip“, atsidarys naujas pranešimas, kaip parodyta paveikslėlyje žemiau:
Pastaba: Jei „.display“ pakeisite eilute „.Send“, šis el. laiškas bus išsiųstas tiesiogiai, bet jis nebus rodomas.
Atkreipkite dėmesį į pranešimus iš nežinomų el. pašto adresų
Jūs tikriausiai kada nors gavote daug el. laiškų iš nežinomų adresų. Patartina saugotis tokio pobūdžio el. Taip yra todėl, kad jie gali atrodyti nekenksmingi, tačiau juose yra kenkėjiškų nuorodų, priedų ar makrokomandų. Kai juos spustelėsite arba atidarysite, jūsų „Outlook“ gali būti užkrėstas. Tuo metu, norėdami susigrąžinti „Outlook“ duomenis, neturite kito pasirinkimo, kaip tik pasinaudoti žvaigžde sugadinta Outlook duomenų taisymo priemonė, Pavyzdžiui, DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti SQL mdf problemą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com