Как отправить лист только через Outlook из Excel?
Если вы хотите отправить по электронной почте один рабочий лист из книги в Excel через Outlook, вы можете отправить рабочий лист как вложение, как основной контент или как файл PDF. Но есть ли какие-нибудь более быстрые способы решения этой проблемы в Excel?
Отправить отдельный рабочий лист в виде тела из Excel с помощью команды «Отправить получателю почты»
Отправить отдельный рабочий лист как вложение из Excel с кодом VBA
Отправить отдельный рабочий лист в виде файла PDF из Excel с кодом VBA
Отправить отдельный рабочий лист в виде тела из Excel с помощью команды «Отправить получателю почты»
Excel поддерживает отправку активного листа в качестве основного содержимого по электронной почте с помощью команды «Отправить получателю почты». Вы можете сделать следующее:
Если вы используете Excel 2007, 2010 или 2013, вам нужно добавить это Отправить получателю почты команду Панель быстрого доступа первый.
1. Щелкните значок Настройка панели быстрого доступа, и выберите Дополнительные команды, см. снимок экрана:
2. И в Параметры Excel диалоговое окно, выберите Команды не на ленте в Выберите команды из раскрывающийся список, затем выберите Отправить получателю почты и нажмите Добавить >> кнопку, чтобы добавить эту команду, наконец нажмите OK чтобы сохранить эту настройку. Смотрите скриншот:
3. Ассоциация Отправить получателю почты команда была вставлена в Панель быстрого доступа, см. снимок экрана:
4. Затем щелкните это Отправить получателю почты значок кнопки, и всплывающее окно подсказки в Электронная почта окно подсказки, отметьте Отправить текущий лист как тело сообщенияи нажмите 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 = ""
.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
Внимание: В приведенном выше коде вы можете изменить следующую информацию по своему усмотрению.
- .К = ""
- .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 = ""
.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
Примечание. В приведенном выше коде вы можете изменить следующую информацию по своему усмотрению.
- .К = ""
- .CC = ""
- .BCC = ""
- .Subject = "особенности kte"
- .Body = "Пожалуйста, проверьте и прочтите этот документ."
4, Затем нажмите F5 , и появится окно с подсказкой, нажмите Разрешить после завершения индикатора выполнения активный рабочий лист был отправлен конкретному человеку в виде файла PDF.
Ноты:
1. Эти методы доступны только при использовании Outlook в качестве почтовой программы.
2. После отправки текущего рабочего листа вы можете перейти в Outlook, чтобы убедиться, что электронное письмо было отправлено успешно.
Создайте список рассылки, затем отправьте электронные письма
|
Ассоциация Kutools for Excel's Создать список рассылки и Отправить Сообщения электронной почты Утилиты могут быстро создать список рассылки на листе, а затем отправить одну и ту же тему, то же содержимое и одинаковые вложения на несколько адресов электронной почты. |
Статьи по теме:
Как отправить текущую книгу через Outlook из Excel?
Как отправить / отправить по электронной почте диапазон ячеек через Outlook из Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!