Kuidas automaatselt saata Outlooki meilimärguanne konkreetse Exceli töölehe värskendamisel

Iga kord, kui värskendate konkreetset Exceli töölehte ja peate alati saatma kindlatele adressaatidele meiliteatise, saate kasutada selles artiklis kirjeldatud meetodit.

Mõned kasutajad paluvad lahendust, mis lubaks MS Excelil automaatselt saata Outlooki meiliteate konkreetsetele inimestele iga kord, kui nad konkreetset töölehte värskendavad, kuna sageli unustatakse selline meilisõnum saata. Järgnevalt juhendame, kuidas seda funktsiooni VBA-koodiga saavutada.

Saatke e-kiri automaatselt, kui konkreetset Exceli töölehte värskendatakse

1. Kõigepealt hankige juurdepääs Exceli lähtetöövihikule, mis sisaldab konkreetset töölehte.
2. Seejärel minge MS Exceli aknas menüüsse "Fail" ja valige "Valikud".
3. Järgmisena lülitage aknas "Exceli suvandid" vahekaardile "Usalduskeskus" ja klõpsake nuppu "Usalduskeskuse sätted".
4. Seejärel minge uues aknas vahekaardile "Makro sätted", mille alt peaksite valima "Luba kõik makrod".
5. Pärast seda avage vahekaart "Privaatsusvalikud" ja lubage funktsioon "Eemalda salvestamisel failiatribuutidest isiklik teave".
6. Seejärel klõpsake nende sätete salvestamiseks mitut nuppu "OK".
7. Pärast Exceli töövihikusse tagasi pöördumist avage juurdepääs konkreetsele töölehele.
8. Paremklõpsake alumisel külgribal töölehe nimel ja valige "Kuva kood".
9. Pärast seda kopeerige järgmine VBA kood konkreetse lehe projekti.

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

10. Pärast seda peaksite selle töövihiku salvestama Exceli makrotoega töövihikuna.

• Esmalt sulgege aken "Microsoft Visual Basic for Applications".
• Seejärel klõpsake vasakus ülanurgas nuppu "Fail".
• Järgmisena valige "Salvesta nimega".
• Valige dialoogiboksis väljal Salvesta tüüp "Exceli makrotoega töövihik".
• Lõpuks klõpsake nuppu "Salvesta".

11. Lõpuks saate selle töövihiku sulgeda.
12. Nüüd saate avada varem salvestatud Exceli makrotoega töövihiku.
13. Kui teete konkreetsel töölehel muudatusi, saate sõnumi, mis küsib, kas saata meiliteatis.
14. Kui klõpsate nuppu „Jah”, saadetakse Outlooki meilisõnum eelnevalt määratud adressaatidele.
15. See meil näeb välja nagu alloleval ekraanipildil:

Parandage kahjustatud Outlooki andmefail

Võib-olla olete kunagi kohanud Exceli faili rikkumist. Tegelikult on Outlooki andmefail sama haavatav kui Exceli fail. Näiteks võib Outlooki ebaõige sulgemine viia PST-faili kergesti rikkumiseni. Seetõttu on oluline võtta meetmeid Outlooki faili kaitsmiseks, sealhulgas korrapäraste andmete varukoopiate tegemine ja tugeva PST-parandustööriista, näiteks DataNumen Outlook Repair. See utiliit on piisavalt võimas remont PST probleeme ja taastada PST-andmed.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom