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 SubAnmä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?
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
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!
