Як надіслати / надіслати діапазон комірок за допомогою 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 = "skyyang@extendoffice.com"
    .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 = "skyyang @extendoffice.com "
• .CC = ""
• .BCC = ""
• .Subject = "інформація kte"
• .Body = "привіт, перевірте та прочитайте цей документ."

3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір діапазону, який ви хочете надіслати. Дивіться знімок екрана:

4. Потім натисніть OK, і з’явиться підказка, після закінчення панелі виконання натисніть дозволяти, а потім певний діапазон комірок було надіслано одержувачу як вкладення.

Надішліть діапазон комірок як тіло з Excel із кодом VBA

Якщо ви хочете надіслати певний діапазон як частину тіла повідомлення з Excel, ви також можете застосувати такий код VBA для його вирішення.

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 = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

Примітка: У наведеному вище коді ви можете змінити наступну інформацію відповідно до своїх потреб.

• .Introduction = "Будь ласка, прочитайте цей електронний лист."
• .Item.To = "skyyang @extendoffice.com "
• .Item.Subject = "інформація kte"

3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно із запитом, щоб нагадати вам про вибір діапазону, який ви хочете надіслати.

4. Потім натисніть OK, і з’явиться підказка, після закінчення панелі виконання натисніть дозволяти, а потім певний діапазон комірок було надіслано одержувачу як тіло повідомлення.

Примітки:

1. Ці коди доступні лише в Outlook як поштовій програмі.

2. Після надсилання поточного робочого аркуша ви можете перейти до свого Outlook, щоб переконатися, чи електронне повідомлення було успішно відправлене.

Статті по темі:

Як надсилати аркуш лише через Outlook з Excel?

Як надіслати поточну книгу через Outlook з Excel?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...