Как отправить лист только через Outlook из Excel?
Если вы хотите отправить по электронной почте один рабочий лист из книги в Excel через Outlook, вы можете отправить рабочий лист как вложение, как основной контент или как файл PDF. Но есть ли какие-нибудь более быстрые способы решения этой проблемы в Excel?
Отправить отдельный рабочий лист в виде тела из Excel с помощью команды «Отправить получателю почты»
Отправить отдельный рабочий лист как вложение из Excel с кодом VBA
Отправить отдельный рабочий лист в виде файла PDF из Excel с кодом VBA
Отправить отдельный рабочий лист в виде тела из Excel с помощью команды «Отправить получателю почты»
Excel поддерживает отправку активного листа в качестве основного содержимого по электронной почте с помощью команды «Отправить получателю почты». Вы можете сделать следующее:
Если вы используете Excel 2007, 2010 или 2013, вам нужно добавить это Отправить получателю почты команду Панель быстрого доступа первый.
1. Щелкните значок Настройка панели быстрого доступа, и выберите Дополнительные команды, см. снимок экрана:
2. И в Параметры Excel диалоговое окно, выберите Команды не на ленте в Выберите команды из раскрывающийся список, затем выберите Отправить получателю почты и нажмите Добавить >> кнопку, чтобы добавить эту команду, наконец нажмите OK чтобы сохранить эту настройку. Смотрите скриншот:
3. Была основана Отправить получателю почты команда была вставлена в Панель быстрого доступа, см. снимок экрана:
4. Затем щелкните это Отправить получателю почты значок кнопки, и всплывающее окно подсказки в E-mail окно подсказки, отметьте Отправить текущий лист как тело сообщенияИ нажмите OK. Смотрите скриншот:
5. И поле редактирования электронной почты отображается над данными рабочего листа, вы можете ввести получателей, тему и введение в соответствующее текстовое поле. Смотрите скриншот:
6. Затем нажмите Отправить это Sheet, чтобы отправить этот активный рабочий лист как тело сообщения вашему конкретному человеку.
Отправить отдельный рабочий лист как вложение из 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"
- .Body = "Пожалуйста, проверьте и прочтите этот документ."
4. Затем нажмите F5 нажмите клавишу, чтобы запустить этот код, и появится диалоговое окно, нажмите Разрешить когда индикатор выполнения закончится, а затем текущий рабочий лист будет отправлен получателю в качестве вложения.
Отправить отдельный рабочий лист в виде файла PDF из Excel с кодом VBA
Иногда вам нужно отправить отчет на листе другим, но вы не хотите, чтобы другие его изменяли. В этом случае вы можете отправить лист в виде файла PDF из Excel.
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"
- .Body = "Пожалуйста, проверьте и прочтите этот документ."
4, Затем нажмите F5 , и появится окно с подсказкой, нажмите Разрешить после завершения индикатора выполнения активный рабочий лист был отправлен конкретному человеку в виде файла PDF.
Ноты:
1. Эти методы доступны только при использовании Outlook в качестве почтовой программы.
2. После отправки текущего рабочего листа вы можете перейти в Outlook, чтобы убедиться, что электронное письмо было отправлено успешно.
Создайте список рассылки, затем отправьте электронные письма
|
| Была основана Kutools for Excel's Создать список рассылки и Отправить Сообщения электронной почты Утилиты могут быстро создать список рассылки на листе, а затем отправить одну и ту же тему, то же содержимое и одинаковые вложения на несколько адресов электронной почты. |
|
|
 |
 |
 |
Статьи по теме:
Как отправить текущую книгу через Outlook из Excel?
Как отправить / отправить по электронной почте диапазон ячеек через Outlook из Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
