Якщо ви хочете надіслати аркуш Excel як електронне повідомлення, замість того, щоб додавати його до електронного листа як вкладення, ви можете скористатися двома способами, представленими в цій статті.
Іноді, на відміну від приєднання файлу Excel до електронного листа як вкладення, можливо, ви захочете безпосередньо вставити аркуш Excel у тіло електронної пошти, іншими словами, надіслати його як електронне повідомлення. Відповідаючи на цю вимогу, ви можете застосувати будь-який із наведених нижче двох засобів, залежно від того, чи хочете ви надсилати в MS Excel або MS Outlook. Тепер читайте далі, щоб отримати детальні операції.
Спосіб 1: Надіслати в Excel
- З самого початку відкрийте вихідний файл Excel.
- Потім натисніть на стрілку вниз на панелі швидкого доступу.
- З випадаючого списку слід вибрати “Більше команд”.
- Далі слід додати “Надіслати одержувачу пошти” на панель швидкого доступу.
- По-перше, виберіть «Усі команди» у спадному списку «Вибрати команди з:».
- Потім знайдіть і виберіть команду “Надіслати одержувачу пошти”.
- Потім натисніть кнопку «Додати» в центрі.
- Додавши його праворуч, натисніть “OK”, щоб зберегти зміни.
- Після цього поверніться до головного вікна Excel і натисніть кнопку «Надіслати одержувачу пошти» на панелі швидкого доступу.
- У діалоговому вікні, що з’явиться, виберіть “Надіслати поточний аркуш як тіло повідомлення”.
- Пізніше з'явиться нова панель інструментів, як на наступному скріншоті. Тепер ви можете скласти деталі електронної пошти відповідно до своїх потреб.
- Нарешті, натисніть кнопку «Надіслати цей аркуш», щоб надіслати цей аркуш електронною поштою.
Спосіб 2: Надіслати в Outlook
- Перш за все, запустіть програму Outlook.
- Потім натисніть клавіші “Alt + F11”, щоб відкрити редактор Outlook VBA.
- Згодом відкрийте новий модуль і скопіюйте в нього наступні коди 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
- Після цього ви можете натиснути піктограму «Виконати» на панелі інструментів.
- Одразу макрос буде спрацьовано.
- Потім вам потрібно буде скопіювати шлях до файлу до певного файлу Excel у поле введення та натиснути “OK”.
- Нарешті, новий електронний лист, що містить робочий аркуш Excel, буде збережено в папці пошти “Чернетки”. Ви можете знайти його, як на наступному скріншоті:
Тактовно справляйтеся зі складними проблемами PST
Через те, що файл Outlook PST схильний до помилок, можливо, у вашому Outlook виникали різні проблеми. Тому, щоб уникнути болючого PST пошкодження, розумно робити регулярні резервні копії даних для вашого файлу PST. Крім того, ви повинні тримати потужний інструмент виправлення поблизу, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql шкоди та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com