Як надіслати / надіслати діапазон комірок за допомогою Outlook із програми Excel?
Ви коли-небудь стикалися з проблемою, яка полягає в тому, що після закінчення звіту на робочому аркуші вам потрібно надіслати діапазон комірок на цьому аркуші, які містять деякі важливі дані для вашого конкретного одержувача. Чи існують швидкі способи надсилання цього діапазону з Excel, не відкриваючи Outlook?
Надіслати діапазон комірок як вкладення з Excel із кодом VBA
Надішліть діапазон комірок як тіло з Excel із кодом VBA
Надіслати діапазон комірок як вкладення з Excel із кодом VBA
Наступний код VBA може допомогти вам надіслати вибраний діапазон як вкладення в Excel. Будь ласка, зробіть так:
1. Відкрийте свою книгу та натисніть і утримуйте ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: надіслати діапазон комірок як вкладення з Excel
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "information of kte"
.Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Subпримітки: У наведеному вище коді ви можете змінити таку інформацію відповідно до власних потреб.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "інформація kte"
- .Body = "привіт, перевірте та прочитайте цей документ."
3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір діапазону, який ви хочете надіслати. Дивіться знімок екрана:
4. Потім натисніть OK, і з’явиться підказка, після закінчення панелі виконання натисніть дозволяти, а потім певний діапазон комірок було надіслано одержувачу як вкладення.
Надішліть діапазон комірок як тіло з Excel із кодом VBA
Якщо ви хочете надіслати певний діапазон як частину тіла повідомлення з Excel, ви також можете застосувати такий код VBA для його вирішення.
| Kutools for Excel, з більш ніж 120 зручні функції, полегшує вам роботу. | ||
1. Активуйте робочий аркуш і утримуйте ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: надсилати діапазон комірок як тіло з Excel
Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = ""
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
Примітка: У наведеному вище коді ви можете змінити наступну інформацію відповідно до своїх потреб.
- .Introduction = "Будь ласка, прочитайте цей електронний лист."
- .Item.To = ""
- .Item.Subject = "інформація kte"
3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно із запитом, щоб нагадати вам про вибір діапазону, який ви хочете надіслати.
4. Потім натисніть OK, і з’явиться підказка, після закінчення панелі виконання натисніть дозволяти, а потім певний діапазон комірок було надіслано одержувачу як тіло повідомлення.
Примітки:
1. Ці коди доступні лише в Outlook як поштовій програмі.
2. Після надсилання поточного робочого аркуша ви можете перейти до свого Outlook, щоб переконатися, чи електронне повідомлення було успішно відправлене.
Статті по темі:
Як надсилати аркуш лише через Outlook з Excel?
Як надіслати поточну книгу через Outlook з Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
