Як надіслати електронне повідомлення з копіюванням та вставкою певного діапазону в тіло електронної пошти в Excel?

У багатьох випадках зазначений діапазон вмісту на аркуші Excel може бути корисним у спілкуванні електронною поштою. У цій статті ми представимо метод надсилання електронного листа із вказаним діапазоном вставки в тіло електронної пошти безпосередньо в Excel.

Надішліть електронний лист із вказаним діапазоном, вставленим у тіло електронної пошти в Excel
Надсилайте електронний лист із зазначеним діапазоном, вставленим у тіло електронної пошти, за допомогою чудового інструменту
Більше підручників з розсилки в Excel ...

Надішліть електронний лист із вказаним діапазоном, вставленим у тіло електронної пошти в Excel

Наступний код VBA може допомогти вам скопіювати діапазон і вставити його в тіло електронної пошти Outlook безпосередньо в Excel. Будь ласка, виконайте наступне.

1. На аркуші містить діапазон, який потрібно скопіювати, натисніть клавішу інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. На відкритті Microsoft Visual Basic для додатків вікно, натисніть Tools > посилання як показано на знімку екрана.

3 В Посилання - VBAProject діалогове вікно, будь ласка, знайдіть і позначте Бібліотека об’єктів Microsoft Outlook , а потім клацніть на OK кнопки.

4. клацання Insert > Модулі, а потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.

Код VBA: надішліть електронний лист із зазначеним діапазоном, вставленим у тіло електронної пошти в Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

примітки:

• 1). Будь ласка, змініть текст електронної пошти в рядку xEmailBody = "Привіт" & vbLf & vbLf & "тіло повідомлення, яке потрібно додати" & vbLf & vbLf & xEmailBody & vbNewLine як вам потрібно.
• 2). Вкажіть одержувача електронної пошти та тему (.To = happy.xuebi@163.com та .Subject = "test") рядків у коді.

5 Натисніть кнопку F5 клавіша для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть діапазон, який потрібно вставити в тіло електронної пошти, а потім клацніть на OK кнопку. Дивіться знімок екрана:

6. Тепер створюється електронний лист із зазначеним одержувачем, темою, тілом та вибраним діапазоном Excel, натисніть кнопку Відправити кнопку, щоб надіслати цей електронний лист. Див. Показаний знімок екрана.

примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.

Надсилайте електронний лист із зазначеним діапазоном, вставленим у тіло електронної пошти, за допомогою чудового інструменту

Якщо ви не використовуєте Outlook і все ще хочете надсилати електронні листи безпосередньо в Excel із вказаними даними про діапазон даних, я настійно рекомендую Надіслати електронні листи корисність Kutools для Excel для вас. За допомогою цієї функції вам просто потрібно налаштувати вихідний сервер адреси електронної пошти, а потім надсилати електронні листи в Excel безпосередньо через цю електронну адресу в майбутньому.

1. По-перше, вам потрібно підготувати список розсилки з необхідними полями.

• Поради: Список розсилки повинен містити принаймні 2 рядки, а перший рядок - заголовки (припустимо, ви хочете надіслати електронні листи на дві адреси електронної пошти в Excel, введіть ці дві адреси електронної пошти заголовком “Електронна пошта”, як показано на знімку екрана нижче) ).
• 
• Крім того, ви можете легко створити список розсилки за допомогою Створити список розсилки функцію.

2. Виберіть діапазон, до якого ви будете додавати дані до тіла електронної пошти, та натисніть Ctrl + C ключі для його копіювання.

3. Виберіть весь список розсилки (включайте заголовки), натисніть Kutools Plus > Надіслати електронні листи. Дивіться знімок екрана:

4. Тоді Надіслати електронні листи спливає діалогове вікно.

• 4.1) Елементи вибраного списку розсилки заповнюються у відповідних полях (ви можете додати більше полів до списку розсилки, скільки вам потрібно);
• 4.2) Клацніть на тіло повідомлення електронної пошти, натисніть Ctrl + V клавіші, щоб вставити в нього вибрані дані про діапазон. Після цього додайте інший вміст, як вам потрібно;
• 4.3 Зніміть прапорець Надсилайте електронні листи через Outlook коробка;
• 2.4) Клацніть на Налаштування вихідного сервера кнопку. Дивіться знімок екрана:

5. Тоді Налаштування сервера вихідної пошти (SMTP) - Нова схема спливає діалогове вікно. Будь ласка, заповніть адресу електронної пошти з налаштуваннями сервера, вкажіть папку для збереження всіх надісланих листів після перевірки Зберегти надіслані електронні листи на , а потім клацніть на OK кнопка, щоб зберегти налаштування.

6. Коли він повернеться до Надіслати електронні листи у діалоговому вікні натисніть Відправити , щоб надіслати електронне повідомлення.

Відтепер ви можете надсилати електронні листи з цією функцією безпосередньо в Excel.

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