VBA

VBA: Send Email With Outlook Mail body Snapshot

In this article you will learn how to send an Outlook Email with mail body snapshot like Excel tables, Charts or images by using VBA. We will use “Mail Envelope” method to sending the email. This method is quite easy and small.

We have to create our data on a worksheet in email format and It will send the entire worksheet or selected range on outlook mail body.

As in the below given image range “A1:H31“will be send to on email. To,CC and Subject information have been given on column L.

Send Email With Outlook Mail body Snapshot
Send Email With Outlook Mail body Snapshot

 

 

How to create a macro to Send Email With Outlook Mail body Snapshot?

  • Copy the below given code
  • Open a new workbook or you can use your existing workbook also.
  • Go to Visual Basic Editor (Press Alt+F11)
  • Insert a new module (Press Alt+I+M)
  • Paste this code.
  • Save workbook as macro enabled.
  • Create the data in mail format.
  • Change the code according to your data range.
Sub Send_Email_With_snapshot()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")

Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A1:H" & lr).Select

With Selection.Parent.MailEnvelope.Item
.to = sh.Range("L6").Value
.cc = sh.Range("L7").Value
.Subject = sh.Range("L8").Value
.attachments.Add "C:\Users\User\Desktop\Projects\Mar-2018.xlsx"
.send
End With

MsgBox "Done"

End Sub

After running this macro, Outlook may show popup as given in below image.

Outlook Popup
Outlook Popup

Click on Allow to send the email.

 

Click here to download this Excel File.

Watch the video tutorial to learn this macro:

PK
My Name is PK. I am founder of PK-AnExcelExpert.com. I am a Microsoft Certified Professional. I have more than 10 years of experience in Data Visualization, Excel Automation and dashboard creation. Excel is my passion and I like to do always something innovative in Excel and share it with other people.
https://www.pk-anexcelexpert.com

0 thoughts on “VBA: Send Email With Outlook Mail body Snapshot

  1. Адаптивная насосная станция АКВАРОБОТ JET 80 S – Адаптивная автоматическая насосная станция АКВАРОБОТ серии JET S — с гидроаккумулятором 2 или 5 л предназначена для подачи чистой воды, не содержащей абразивных частиц и волокнистых включений, из неглубоких скважин, колодцев и других источников водоснабжения в автоматическом режиме (включаясь и выключаясь по мере расходования воды потребителем). Станции оснащены электронным блоком, который управляет работой насоса по потоку и минимальному давлению (Рмин), а также защищает насос от работы в режиме «сухого хода» и других аварийных ситуаций (падение сетевого напряжения, неправильный монтаж и т.п.). Преимущества автоматической адаптивной станции АКВАРОБОТ Автоматически отключается при отсутствии воды в системе водоснабжения. Автоматически отключается при заклинивании рабочего колеса насоса. Стабильно работает при понижении напряжения электросети до 170 В. Автоматически отключается при отсутствии давления воздуха в гидроаккумуляторе. Автоматически отключается при утечке воды из системы водоснабжения, если скорость потока не более 2 л/мин. Адаптивно поддерживает давление в системе водоснабжения, что значительно увеличивает ресурс работы насоса. Стабильно работает при критической глубине всасывания 8 метров. Автоматически отключается при неправильном подключении станции к источнику водоснабжения (для стабильной работы при пониженном напряжении электросети или критической глубине всасывания 8 метров, скорость потока воды должна быть более 2 л/мин). Принцип работы станции заключается в том, что при прохождении через блок управления потока воды со скоростью выше 2 л/мин, или при падении давления ниже Pмин (1,5±0,3 bar), насос включается и качает воду непрерывно, создавая в системе давление, величина которого зависит от параметров насоса. При прекращении потока воды, или снижении его скорости до 2 л/мин, насос автоматически выключается с тридцатисекундной задержкой. АКВАРОБОТ обеспечивает надежное отключение станции В режиме слабой производительности скважины («сухой ход») При отсутствии воздуха в гидроаккумуляторе (нет давления) При потоке воды ниже 2 литров в минуту (утечка в магистрали) В режиме динамического колебания уровня воды в скважине ниже 8 метров В случае неправильного монтажа оборудования и магистрали водопровода В случае аварийного отключения насосной станции требуется устранить причину и произвести перезапуск. Внимание. Не допускается использование станции в системах повышения давления, если создаваемое насосом давление в сумме с магистральным выше или близко к величине 6 bar.Адаптивная насосная станция АКВАРОБОТ JET 80 S
    Источник –
    насосная станции нижний новгород,
    насосная станция 50 литров,
    насосная станция какие трубы,
    основная насосная станция.

Leave a Reply

Your email address will not be published. Required fields are marked *