Kiekvieną kartą, kai atnaujinate konkretų "Excel" darbalapį, jei visada reikia išsiųsti pranešimą el. paštu konkretiems gavėjams, galite naudoti šiame straipsnyje aprašytą metodą.
Kai kurie vartotojai prašo sprendimo leisti MS Excel automatiškai siųsti Outlook el. pašto pranešimą konkretiems asmenims kiekvieną kartą, kai jie atnaujina konkretų darbalapį, nes dažnai pamiršta išsiųsti tokį el. laišką. Dabar toliau paaiškinsime, kaip pasiekti šią funkciją naudojant VBA kodą.
Automatiškai išsiųskite el. laišką, kai atnaujinamas konkretus „Excel“ darbalapis
- Visų pirma, gaukite prieigą prie šaltinio „Excel“ darbaknygės, kurioje yra konkretus darbalapis.
- Tada MS Excel lange eikite į meniu „Failas“ ir pasirinkite „Parinktys“.
- Tada „Excel“ parinkčių lange pereikite prie skirtuko „Patikimumo centras“ ir spustelėkite mygtuką „Pasitikėjimo centro nustatymai“.
- Vėliau naujame lange pereikite prie skirtuko „Makrokomandos nustatymai“, kuriame turėtumėte pasirinkti „Įgalinti visas makrokomandas“.
- Po to eikite į skirtuką „Privatumo parinktys“ ir įgalinkite funkciją „Išsaugoti asmeninę informaciją iš failo ypatybių“.
- Tada spustelėkite keletą „Gerai“, kad išsaugotumėte šiuos nustatymus.
- Grįžę į „Excel“ darbaknygę, pasiekite konkretų darbalapį.
- Dešiniuoju pelės mygtuku spustelėkite darbalapio pavadinimą apatinėje šoninėje juostoje ir pasirinkite „View Code“.
- Po to nukopijuokite šį VBA kodą į konkretaus lapo 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
- Po to turėtumėte išsaugoti šią darbaknygę kaip Excel Macro-Enabled darbaknygę.
- Pirmiausia uždarykite langą „Microsoft Visual Basic for Applications“.
- Tada viršutiniame kairiajame kampe spustelėkite „Failas“.
- Tada pasirinkite „Išsaugoti kaip“.
- Dialogo lange pasirinkite „Excel Macro-Enabled Workbook“ lauke „Išsaugoti kaip tipą“.
- Galiausiai spustelėkite mygtuką „Išsaugoti“.
- Galiausiai galite uždaryti šią darbaknygę.
- Dabar galite atidaryti anksčiau išsaugotą „Excel“ darbaknygę su makrokomandomis.
- Kai atliksite kokius nors pakeitimus konkrečiame darbalapyje, gausite pranešimą, kuriame bus klausiama, ar siųsti pranešimą el. paštu.
- Spustelėjus mygtuką „Taip“, „Outlook“ el. laiškas bus išsiųstas iš anksto nustatytiems gavėjams.
- Šis el. laiškas atrodys taip, kaip toliau pateikta ekrano kopija:
Pataisykite pažeistą „Outlook“ duomenų failą
Galbūt kada nors susidūrėte su „Excel“ failų sugadinimu. Tiesą sakant, „Outlook“ duomenų failas yra toks pat pažeidžiamas kaip „Excel“ failas. Pavyzdžiui, netinkamai uždarius „Outlook“ gali būti greitai sugadintas PST failas. Todėl labai svarbu imtis veiksmų siekiant apsaugoti „Outlook“ failą, įskaitant reguliarų duomenų atsarginių kopijų kūrimą ir patikimo PST taisymo įrankio, pvz. DataNumen Outlook Repair. Šis įrankis yra pakankamai galingas remontas PST problemų ir atkurti PST duomenis.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com