Ez a cikk arról szól, hogy e-mailt küldjön az Outlook segítségével, amikor egy adott munkafüzet mentésre kerül az Excel programba. Kérjük, tegye meg, ahogy a bemutató mutatja.
Küldjön e-mailt az Outlookon keresztül, amikor a munkafüzetet VBA kóddal menti
Ha a munkafüzet mentése az Excel-be az e-mailen keresztül történik, kérjük, tegye a következőket.
1. Először kérjük, mentse el a munkafüzetet Excel makróképes munkafüzetként. Kattintson a gombra filé > Mentés másként. Az Mentés másként párbeszédpanelen válasszon egy mappát a munkafüzet mentéséhez, nevezze el a Fájlnév mezőben, majd válassza a lehetőséget Excel makró-engedélyezett munkafüzet tól Mentés típus legördülő listára, majd kattintson a gombra Megtakarítás gomb. Lásd a képernyőképet:
2. Nyissa meg az imént mentett Excel makró-engedélyezett munkafüzetet, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán Ez a munkafüzet a bal sávban, majd másolja és illessze be az alábbi VBA kódot a Ez a munkafüzet kód ablak. Lásd a képernyőképet:
VBA kód: E-mail küldése a munkafüzet mentésekor
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Megjegyzések: Kérjük, cserélje ki a Email cím a címzett e-mail címével a sorban .To = "E-mail cím"és szükség szerint módosítsa a Vc kódban a Cc, Subject és a body mezőket.
3. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.
Mostantól a munkafüzet frissítésekor és mentésekor automatikusan létrejön egy e-mail, mellékelve a frissített munkafüzettel. Kattintson a gombra Küldés gombra az e-mail elküldéséhez. Lásd a képernyőképet:
Megjegyzések: A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.
