Hur skickar jag ett e-postmeddelande via Outlook när arbetsboken sparas i Excel?
Den här artikeln talar om att skicka ett e-postmeddelande via Outlook när en specifik arbetsbok sparas i Excel. Gör som självstudien visar.
Skicka ett e-postmeddelande via Outlook när arbetsboken sparas med VBA-kod
Skicka ett e-postmeddelande via Outlook när arbetsboken sparas med VBA-kod
Gör så här för att skicka ett e-postmeddelande via Outlook när arbetsboken sparas i Excel.
1. Spara arbetsboken först som en Excel-makroaktiverad arbetsbok. Klick Fil > Spara som. I Spara som Välj en mapp för att spara arbetsboken, namnge den i rutan Filnamn, välj Excel Macro-Enabled Workbook från Spara som rullgardinsmenyn och klicka sedan på Save knapp. Se skärmdump:
2. Öppna Excel Macro-aktiverad arbetsbok som du har sparat just nu, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer dubbelklicka Denna arbetsbok i det vänstra fältet och kopiera sedan och klistra in nedanstående VBA-kod i Denna arbetsbok kodfönster. Se skärmdump:
VBA-kod: Skicka e-post när arbetsboken sparas
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
Anmärkningar: Byt ut E-postadress med mottagarens e-postadress i raden .To = "E-postadress"och ändra Cc, ämne såväl som kroppsfält i VBA-koden som du behöver.
3. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, när du uppdaterar arbetsboken och sparar den, skapas ett e-postmeddelande automatiskt med uppdaterad arbetsbok bifogad. Klicka på Skicka knappen för att skicka e-postmeddelandet. Se skärmdump:
Anmärkningar: VBA-koden fungerar bara när du använder Outlook som ditt e-postprogram.
Relaterade artiklar:
- Hur skickar man automatiskt e-post baserat på cellvärde i Excel?
- Hur skickar jag e-post om en viss cell modifieras i Excel?
- Hur skickar jag e-post om du klickar på knappen i Excel?
- Hur skickar jag e-post om förfallodatum har uppfyllts i Excel?
- Hur skickar jag e-postpåminnelse eller avisering om arbetsboken uppdateras i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!