Jeśli chcesz wysłać arkusz programu Excel jako wiadomość e-mail, zamiast dodawać go do wiadomości e-mail jako załącznik, możesz skorzystać z dwóch metod przedstawionych w tym artykule.
Czasami, w przeciwieństwie do załączania pliku Excela do wiadomości e-mail jako załącznika, możesz chcieć bezpośrednio wstawić arkusz programu Excel do treści wiadomości e-mail, innymi słowy, wysłać go jako wiadomość e-mail. W odpowiedzi na to wymaganie możesz zastosować jeden z dwóch poniższych sposobów, w zależności od tego, czy chcesz wysyłać w MS Excel czy MS Outlook. Teraz czytaj dalej, aby uzyskać szczegółowe informacje na temat operacji.
Metoda 1: Wyślij w programie Excel
- Na samym początku otwórz źródłowy plik Excel.
- Następnie kliknij strzałkę w dół na pasku narzędzi szybkiego dostępu.
- Z rozwijanej listy wybierz „Więcej poleceń”.
- Następnie należy dodać „Wyślij do odbiorcy poczty” do paska narzędzi szybkiego dostępu.
- Najpierw wybierz „Wszystkie polecenia” z rozwijanej listy „Wybierz polecenia z:”.
- Następnie znajdź i wybierz polecenie „Wyślij do odbiorcy poczty”.
- Następnie kliknij przycisk „Dodaj” pośrodku.
- Po dodaniu go po prawej stronie, kliknij „OK”, aby zapisać zmiany.
- Następnie wróć do głównego okna programu Excel i kliknij przycisk „Wyślij do adresata poczty” na pasku narzędzi szybkiego dostępu.
- W wyskakującym oknie dialogowym wybierz „Wyślij bieżący arkusz jako treść wiadomości”.
- Później pojawi się nowy pasek narzędzi, jak na poniższym zrzucie ekranu. Teraz możesz komponować szczegóły wiadomości e-mail zgodnie ze swoimi potrzebami.
- Na koniec kliknij przycisk „Wyślij ten arkusz”, aby wysłać ten arkusz jako e-mail.
Metoda 2: Wyślij w programie Outlook
- W pierwszej kolejności uruchom program Outlook.
- Następnie naciśnij klawisze „Alt + F11”, aby otworzyć edytor VBA programu Outlook.
- Następnie otwórz nowy moduł i skopiuj do niego następujące kody VBA.
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
- Następnie możesz kliknąć ikonę „Uruchom” na pasku narzędzi.
- Od razu zostanie uruchomione makro.
- Następnie będziesz musiał skopiować ścieżkę do konkretnego pliku Excela do pola wejściowego i nacisnąć „OK”.
- Na koniec nowa wiadomość e-mail zawierająca arkusz programu Excel w treści zostanie zapisana w folderze poczty „Wersje robocze”. Możesz go znaleźć jak na poniższym zrzucie ekranu:
Taktycznie radzić sobie z kłopotliwymi problemami z PST
Ze względu na to, że plik PST programu Outlook jest podatny na błędy, możesz napotkać różne problemy w programie Outlook. Dlatego, aby uniknąć bolesnych Uszkodzenie PST, rozsądnie jest regularnie tworzyć kopie zapasowe danych dla pliku PST. Ponadto musisz trzymać w pobliżu silne narzędzie naprawcze, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzenie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com