Om du vill skicka ett Excel-kalkylblad som ett e-postmeddelande, istället för att lägga till det i ett e-postmeddelande som en bilaga, kan du använda de två metoderna som presenteras i den här artikeln.
Ibland, till skillnad från att bifoga en Excel-fil till ett e-postmeddelande som en bilaga, kanske du vill infoga ett Excel-kalkylblad direkt i e-posttexten, med andra ord, skicka det som ett e-postmeddelande. Som svar på detta krav kan du använda något av följande två medel beroende på om du vill skicka in MS Excel eller MS Outlook. Läs vidare för att få detaljerade operationer.
Metod 1: Skicka in Excel
- Från början öppnar du Excel-källfilen.
- Klicka sedan på nedåtpilen i snabbåtkomstverktygsfältet.
- Från rullgardinsmenyn ska du välja "Fler kommandon".
- Därefter ska du lägga till "Skicka till e-postmottagaren" i verktygsfältet Snabbåtkomst.
- Välj först "Alla kommandon" i rullgardinsmenyn "Välj kommandon från:".
- Sök sedan och välj kommandot "Skicka till e-postmottagare".
- Klicka sedan på knappen "Lägg till" i mitten.
- När du har lagt till den till höger klickar du på “OK” för att spara ändringarna.
- Därefter, tillbaka till huvudfönstret i Excel och klicka på knappen "Skicka till e-postmottagare" i verktygsfältet Snabbåtkomst.
- I popup-dialogrutan väljer du “Skicka det aktuella arket som meddelandetext”.
- Senare kommer ett nytt verktygsfält att visas, som följande skärmdump. Nu kan du komponera e-postinformationen enligt dina behov.
- Klicka slutligen på knappen "Skicka det här arket" för att skicka ut det här arket som e-post.
Metod 2: Skicka i Outlook
- För det första, starta ditt Outlook-program.
- Tryck sedan på “Alt + F11” -knapparna för att öppna Outlook VBA-redigeraren.
- Öppna sedan en ny modul och kopiera följande VBA-koder till den.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Därefter kan du klicka på ikonen "Kör" i verktygsfältet.
- Omedelbart utlöses makrot.
- Då måste du kopiera filvägen till den specifika Excel-filen till inmatningsrutan och trycka på "OK".
- Slutligen sparas ett nytt e-postmeddelande som innehåller Excel-kalkylbladet i e-postmappen "Utkast". Du kan hitta det som följande skärmdump:
Hantera besvärliga PST-frågor taktfullt
På grund av att Outlook PST-filen är felbenägen kan du ha stött på en mängd olika problem i din Outlook. Därför, för att undvika smärtsam PST-skada, är det klokt att göra regelbundna säkerhetskopior av din PST-fil. Dessutom måste du hålla ett kraftfullt fixverktyg i närheten, som DataNumen Outlook Repair.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql skada och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com