Pēc uzdevuma pabeigšanas programmā Outlook daudzi lietotāji var vēlēties nosūtīt e-pasta paziņojumu, lai informētu kādu, piemēram, priekšnieku. Manuāla e-pasta nosūtīšana būs laikietilpīga. Šajā rakstā tiks parādīta ātra metode šāda veida e-pasta automātiskai sūtīšanai.
No raksta “4 ātras darbības uzdevuma piešķiršanai citiem jūsu programmā Outlook”, jūs varat zināt, ka, ja uzdevumu jums ir uzticējis jūsu priekšnieks un viņi ir iepriekš pieprasījuši statusa ziņojumu, piemēram, tālāk redzamajā ekrānuzņēmumā, viņi varēs automātiski saņemt ziņojuma e-pasta ziņojumu.
Tomēr, ja uzdevums ir tikai izveidots pats, programma Outlook nekad nevienam nesūtīs paziņojumu e-pasta ziņojumu, kad to atzīmēsit kā pabeigtu. Šādā gadījumā, ja vēlaties nosūtīt e-pasta paziņojumu, lai ziņotu par savu darbu, tas jādara manuāli. Bet, izmantojot tālāk norādītos VBA kodus, varat ļaut programmai Outlook to automātiski paveikt.
Automātiski nosūtiet e-pasta paziņojumu, kad konkrēts uzdevums ir izpildīts
- Vispirms jums vajadzētu palaist programmu Outlook un pāriet uz cilni “Izstrādātājs”.
- Pēc tam atrodiet un noklikšķiniet uz pogas Visual Basic. Tiks parādīts jauns logs “Microsoft Visual Basic for Applications”.
- Pēc tam veiciet dubultklikšķi uz “ThisOutlookSession” projekta, lai to atvērtu, un pēc tam kopējiet tajā tālāk norādītos 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
- Pēc tam turpiniet parakstīt šo kodu un mainiet makro iestatījumus, lai atļautu tikai ciparparakstu makro.
- Beidzot varat iziet no pašreizējā loga un mēģināt.
- Atzīmējot uzdevumu kā pabeigtu, jūs saņemsit ziņojumu, piemēram, šādu attēlu:
- Noklikšķinot uz pogas “Jā”, tiks atvērts jauns ziņojums, kas parādīts zemāk esošajā attēlā:
Piezīme: Ja aizstāsit “.display” ar rindiņu “.Send”, šis e-pasta ziņojums tiks nosūtīts tieši, neparādās.
Pievērsiet uzmanību ziņojumiem no nezināmām e-pasta adresēm
Noteikti kādreiz esat saņēmis daudz e-pasta ziņojumu no nezināmām adresēm. Ieteicams uzmanīties no šāda veida e-pastiem. Tas ir tāpēc, ka tie var izskatīties nekaitīgi, bet satur ļaunprātīgas saites, pielikumus vai makro. Kad noklikšķināsit uz tiem vai atverat tos, jūsu Outlook var tikt inficēts. Tajā brīdī, lai atgūtu savus Outlook datus, jums nav citas izvēles, kā izmantot zvaigžņu bojāta Outlook datu labošanas utilīta, Piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL mdf problēmas labošana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar