Как отправить только один лист из Excel через Outlook?
Хотите отправить по электронной почте один лист из книги Excel через Outlook? Вы можете прикрепить его как вложение, вставить как тело письма или сохранить в формате PDF. Но существуют ли более быстрые способы выполнить эту задачу прямо в Excel?
Отправка одного листа как вложения из Excel с помощью кода VBA
Отправка одного листа как Файлы PDF из Excel с помощью кода VBA
Отправка одного листа как тело письма из Excel с помощью команды «Отправить получателю по электронной почте»
Excel позволяет отправить активный лист прямо в теле письма с помощью команды «Отправить получателю по электронной почте». Выполните следующие действия:
Если вы используете Excel 2007, 2010 или 2013, сначала добавьте команду «Отправить получателю по электронной почте» на Панель быстрого доступа.
1. Щелкните значок «Настроить панель быстрого доступа», затем выберите «Другие команды». См. снимок экрана:
2. В диалоговом окне «Параметры Excel» выберите «Команды, отсутствующие на ленте» в раскрывающемся списке «Выбрать команды из», затем выберите опцию «Отправить получателю по электронной почте» и нажмите кнопку «Добавить >>», чтобы добавить эту команду, и, наконец, нажмите «ОК», чтобы сохранить настройки. См. снимок экрана:
3. Команда «Отправить получателю по электронной почте» добавлена на Панель быстрого доступа, см. снимок экрана:
4. Затем нажмите кнопку-значок «Отправить получателю по электронной почте» — откроется диалоговое окно. В окне «Электронная почта» установите флажок «Отправить текущий лист как тело сообщения» и нажмите «ОК». См. снимок экрана:
5. Над данными листа откроется окно редактирования письма. Введите адреса получателей, тему и вводный текст в соответствующие поля. См. снимок экрана:
6. Затем нажмите «Отправить этот лист», чтобы отправить активный лист в теле сообщения указанному получателю.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Отправка одного листа как вложения из Excel с помощью кода VBA
Если вы хотите отправить активный лист в виде вложения, следующий код VBA поможет вам сделать это легко и быстро.
1. Активируйте лист, который хотите отправить.
2. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.
Код VBA: отправка Текущий лист как вложения из Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Примечание: в приведённом выше коде вы можете изменить следующие данные в соответствии со своими потребностями.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Пожалуйста, ознакомьтесь с этим документом.»
4. Нажмите клавишу F5, чтобы запустить код. После завершения выполнения индикатора прогресса появится диалоговое окно — нажмите «Разрешить», и текущий лист будет отправлен получателю как вложение.
Отправка одного листа как Файлы PDF из Excel с помощью кода VBA
Иногда нужно отправить отчет по листу другим пользователям, но так, чтобы они не могли его изменять. В этом случае просто отправьте лист из Excel в виде файла PDF.
1. Активируйте лист, который хотите отправить.
2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка>Модульи вставьте следующий код в окно модуля.
Код VBA: отправка Текущий лист как Файлы PDF из Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Примечание: в приведённом выше коде вы можете адаптировать следующую информацию под свои нужды.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Пожалуйста, ознакомьтесь с этим документом.»
4. Затем нажмите клавишу F5 — появится диалоговое окно. После завершения индикатора прогресса нажмите «Разрешить», и активный лист будет отправлен указанному получателю в виде файла PDF.
Примечания:
1. Эти методы доступны только при использовании Outlook в качестве почтового клиента.
2. После отправки текущего листа вы можете проверить в Outlook, было ли письмо успешно отправлено.
Создать список рассылки Затем отправьте электронные письма |
| Создать список рассылки позволяет быстро создать список рассылки на листе, а затем отправить одинаковые тему, содержание и вложения нескольким адресам электронной почты. |
 |
 |
 |
Связанные статьи:
Как отправить Текущая книга через Outlook из Excel?
Как отправить / переслать диапазон ячеек через Outlook из Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек