Minden alkalommal, amikor frissít egy adott Excel-munkalapot, és mindig e-mailes értesítést kell küldenie bizonyos címzetteknek, használhatja az ebben a cikkben bemutatott módszert.
Egyes felhasználók azt a megoldást kérik, hogy az MS Excel automatikusan küldjön egy Outlook e-mail értesítést adott személyeknek minden alkalommal, amikor frissítenek egy adott munkalapot, mivel gyakran elfelejtenek elküldeni egy ilyen e-mailt. A következőkben bemutatjuk, hogyan érhető el ez a funkció VBA kóddal.
Automatikus e-mail küldése, amikor egy adott Excel-munkalap frissül
- Először is hozzáférhet a forrás Excel-munkafüzethez, amely az adott munkalapot tartalmazza.
- Ezután az MS Excel ablakában lépjen a „Fájl” menübe, és válassza az „Opciók” lehetőséget.
- Ezután az „Excel-beállítások” ablakban váltson át a „Trust Center” fülre, és kattintson a „Trust Center Settings” gombra.
- Ezt követően az új ablakban lépjen a „Makróbeállítások” fülre, amely alatt válassza az „Összes makró engedélyezése” lehetőséget.
- Ezután lépjen az „Adatvédelmi beállítások” fülre, és engedélyezze a „Személyes adatok eltávolítása a fájl tulajdonságaiból mentéskor” funkciót.
- Ezután kattintson néhány „OK” gombra a beállítások mentéséhez.
- Miután visszatért az Excel-munkafüzethez, nyissa meg az adott munkalapot.
- Kattintson a jobb gombbal a munkalap nevére az alsó oldalsávban, és válassza a „Kód megtekintése” lehetőséget.
- Ezután másolja be a következő VBA-kódot az adott lap projektjébe.
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
- Ezt követően mentse el ezt a munkafüzetet Excel-makró-kompatibilis munkafüzetként.
- Először zárja be a „Microsoft Visual Basic for Applications” ablakot.
- Ezután kattintson a „Fájl” elemre a bal felső sarokban.
- Ezután válassza a „Mentés másként” lehetőséget.
- A párbeszédpanel „Mentés típusa” mezőjében válassza az „Excel Makró-kompatibilis munkafüzet” lehetőséget.
- Végül kattintson a „Mentés” gombra.
- Végül bezárhatja ezt a munkafüzetet.
- Most megnyithatja a korábban mentett Excel-makró-kompatibilis munkafüzetet.
- Amikor bármilyen módosítást végez az adott munkalapon, egy üzenetet kap, amely megkérdezi, hogy küldjön-e értesítést e-mailben.
- Ha rákattint az „Igen” gombra, a rendszer egy Outlook e-mailt küld az előre meghatározott címzetteknek.
- Ez az e-mail az alábbi képernyőképhez hasonlóan fog kinézni:
A sérült Outlook adatfájl javítása
Talán valaha is találkozott Excel-fájlok sérülésével. Valójában az Outlook adatfájl ugyanolyan sebezhető, mint az Excel fájl. Például az Outlook nem megfelelő bezárása a PST-fájlok könnyen megsérüléséhez vezethet. Ezért alapvető fontosságú, hogy tegyen lépéseket az Outlook-fájl védelme érdekében, beleértve a rendszeres adatmentések készítését, valamint egy robusztus PST-javító eszköz elkészítését, mint pl. DataNumen Outlook Repair. Ez a segédprogram elég erős ahhoz javítás PST problémákat, és visszaállíthatja a PST-adatokat.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com