Ikreiz, kad atjaunināt konkrētu Excel darblapu un vienmēr ir jānosūta e-pasta paziņojums konkrētiem adresātiem, varat izmantot šajā rakstā aprakstīto metodi.
Daži lietotāji lūdz risinājumu ļaut programmai MS Excel automātiski nosūtīt Outlook e-pasta paziņojumu konkrētām personām katru reizi, kad tās atjaunina noteiktu darblapu, jo viņi bieži aizmirst nosūtīt šādu e-pastu. Tālāk mēs sniegsim norādījumus, kā sasniegt šo funkciju, izmantojot VBA kodu.
Automātiski nosūtiet e-pasta ziņojumu, kad tiek atjaunināta noteikta Excel darblapa
- Pirmkārt, iegūstiet piekļuvi Excel avota darbgrāmatai, kurā ir ietverta konkrētā darblapa.
- Pēc tam MS Excel logā dodieties uz izvēlni “Fails” un atlasiet “Opcijas”.
- Pēc tam logā “Excel opcijas” pārejiet uz cilni “Uzticības centrs” un noklikšķiniet uz pogas “Uzticības centra iestatījumi”.
- Pēc tam jaunajā logā pārejiet uz cilni “Makro iestatījumi”, kurā jāizvēlas “Iespējot visus makro”.
- Pēc tam atveriet cilni “Privātuma opcijas” un iespējojiet funkciju “Noņemt personisko informāciju no faila rekvizītiem saglabāšanas laikā”.
- Pēc tam noklikšķiniet uz vairākiem “OK”, lai saglabātu šos iestatījumus.
- Pēc Excel darbgrāmatas dublēšanas piekļūstiet konkrētajai darblapai.
- Ar peles labo pogu noklikšķiniet uz darblapas nosaukuma apakšējā sānjoslā un izvēlieties "Skatīt kodu".
- Pēc tam kopējiet tālāk norādīto VBA kodu konkrētās lapas projektā.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nConfirmation As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = "Email Notifying Sheet Updates"
.Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub
- Pēc tam šī darbgrāmata jāsaglabā kā Excel Macro-Enabled darbgrāmata.
- Vispirms aizveriet logu “Microsoft Visual Basic for Applications”.
- Pēc tam augšējā kreisajā stūrī noklikšķiniet uz "Fails".
- Tālāk izvēlieties "Saglabāt kā".
- Dialoglodziņā laukā “Saglabāt kā veidu” izvēlieties “Excel Macro-Enabled Workbook”.
- Visbeidzot, noklikšķiniet uz pogas "Saglabāt".
- Visbeidzot, varat aizvērt šo darbgrāmatu.
- Tagad varat atvērt iepriekš saglabāto Excel darbgrāmatu ar iespējotu makro.
- Veicot izmaiņas konkrētajā darblapā, jūs saņemsit ziņojumu ar jautājumu, vai nosūtīt e-pasta paziņojumu.
- Noklikšķinot uz pogas “Jā”, Outlook e-pasts tiks nosūtīts iepriekš noteiktiem adresātiem.
- Šis e-pasts izskatīsies kā zemāk redzamais ekrānuzņēmums:
Izlabojiet bojāto Outlook datu failu
Varbūt jūs kādreiz esat saskāries ar Excel failu bojājumu. Faktiski Outlook datu fails ir tikpat neaizsargāts kā Excel fails. Piemēram, nepareiza Outlook aizvēršana var viegli izraisīt PST faila bojājumu. Tāpēc ir svarīgi veikt darbības, lai aizsargātu Outlook failu, tostarp veikt regulāras datu dublējumkopijas, kā arī sagatavot spēcīgu PST labošanas rīku, piemēram, DataNumen Outlook Repair. Šī utilīta ir pietiekami jaudīga, lai remonts PST problēmas un atgūt PST datus.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar