VBA: Send Email With Outlook Mail body Snapshot

Рет қаралды 70,211

6 жыл бұрын

Hello Friends,
In this video you will learn how to send an Outlook Email with mail body snapshot like Excel tables, Charts or images by using VBA.
Download this excel file from below given article-
www.pk-anexcelexpert.com/send...
Visit to learn more:
Chart and Visualizations: www.pk-anexcelexpert.com/cate...
VBA Course: www.pk-anexcelexpert.com/vba/
Download useful Templates: www.pk-anexcelexpert.com/cate...
Dashboards: www.pk-anexcelexpert.com/exce...
Watch the best info-graphics and dynamic charts from below link:
• Dynamic Graphs
Learn and free download best excel Dashboard template:
• Excel Dashboards
Learn Step by Step VBA:
• VBA Tutorial
Website:
www.PK-AnExcelExpert.com
Facebook:
/ pkan-excel-expert-9748...
Telegram:
t.me/joinchat/AAAAAE2OnviiEk5...
Twitter:
/ priyendra_kumar
Pinterest:
/ pkanexcelexpert
Send me your queries on telegram:
@PKanExcelExpert

Пікірлер: 162

@shubhrakhare7772 4 жыл бұрын

Best Ever short trick for VB script to send snapshot. thanks a lot to PK .I am using this first time & it worked.

@PKAnExcelExpert 4 жыл бұрын

Thanks for your valuable feedback

@joses.pacheco3069 6 жыл бұрын

Muito bom. Os assuntos abordados são de extrema importância para o aprendizado.

@vikrantchouhan9908 4 жыл бұрын

I have one simple word to appreciate how great the video is' and that is - EFFECTIVE!!! I had the same requirement and the code worked like charm. :) Keep up the good work. 👍

@PKAnExcelExpert 4 жыл бұрын

Thanks for your valuable feedback

@lejawa5765 5 жыл бұрын

Thank you sir! I was struggling with this for a while

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback

@pawansharma-wo3xh 6 жыл бұрын

As always good job done mr pk Thank for sharing your great knowledge

@PKAnExcelExpert 6 жыл бұрын

Thanks for your valuable feedback

@mrnascimento3 5 жыл бұрын

That is great.... I was searching it along time.

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback

@quangbaccao1077 5 жыл бұрын

It's really helpful. Thanks for sharing Cheers :)

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback

@mansess 4 жыл бұрын

You are the best, I love your Videos and your Ideas, YOU JUST VERY SMART :)

@PKAnExcelExpert 4 жыл бұрын

Thanks for your valuable feedback

@alexrosen8762 6 жыл бұрын

Super useful! Thanks :-)

@PKAnExcelExpert 6 жыл бұрын

Thanks for your valuable feedback

@info2satish 6 жыл бұрын

Brilliant!!👌

@PKAnExcelExpert 6 жыл бұрын

Thanks for your valuable feedback

@iivioviv7350 5 жыл бұрын

Works well .

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback

@thedatalabs 6 жыл бұрын

Very useful....

@PKAnExcelExpert 6 жыл бұрын

Thanks for your valuable feedback

@scottgreenwood516 3 жыл бұрын

Found this to be very helpful, but also looking to add one line as the body of the email what code would I add for that?

@watery406 5 жыл бұрын

how do you get to do this but pasting the range as an image instead?

@NarenDudun 4 жыл бұрын

Thanks for the splendid solution. How to create a loop for multiple recipients?

@imranhamid9083 3 жыл бұрын

Awesome!

@PKAnExcelExpert 3 жыл бұрын

Thanks for your valuable feedback

@durgesh91tomar 6 жыл бұрын

You are really make it woww... Dost...

@PKAnExcelExpert 6 жыл бұрын

Thanks for your valuable feedback

@christophersmith8438 4 жыл бұрын

First an elegant piece of code that is very useful. My snapshot though produces a 2MB e-mail. Is there another paste method that would keep same look and feel but without the file size in the body of the e-mail? I don't want to do an attachment as the receivers of the e-mail will never look at it otherwise. Thanks in advance.

@viky293 4 жыл бұрын

Short and sweet does the job

@PKAnExcelExpert 4 жыл бұрын

Thanks for your valuable feedback

@excel-k-sir 6 жыл бұрын

This was much awaited one. Any idea how to suppress the pop up and accept the allow button by default.

@joyrawat1022 4 жыл бұрын

Really appreciated, the way you explain while creating such educational based video be it Dashboard, VBA etc is really outstanding. I have a question about above code, please help me out to solve it ? Q.1) Usually, we declare Outlook.Application and Outlook.Mailitem while sending emails from outlook using VBA however there is no such declaration mentioned by you and code is running absolutely fine. Q.2) Line mentioned under code as "With Selection.Parent.MailEnvelope.Item" how this code is able to read that we are supposed to send an email via outlook ? Or, is it because that we are using Microsoft Excel and both Outlook and Excel are Microsoft tools ! Hence, there is no need to declare Outlook.Mailitem ? Awaiting for your reply. Thanks a lot in Advance for this wonderful Video.

@TheFebinedwards 4 жыл бұрын

Thank you, can you show me how to attach the same file in the same Email ? And also if there is a way to choose a different from adress ?

@mzellner12 4 жыл бұрын

PK, what if I want to copy and paste the snapshot as a picture in the email, how would I do that?

@oodaikiran 4 жыл бұрын

Superb!!!

@PKAnExcelExpert 4 жыл бұрын

Thanks for your valuable feedback

@rrawat9026 4 жыл бұрын

Very useful code.. I have one query here... I send a mail through this code.. But when I am trying to attempt again the same.. I m getting automation error here... Can u suggest to fix this..

@niksarpate 4 жыл бұрын

Hi PK Could you please help me on adding column row for attachment link in the excel instead of adding in the VBA module. For example: To, CC, Subject line and Attachment link. Your quick response highly appreciated

@joanbanagan1499 4 жыл бұрын

Thanks PK, but I received an error : Run Time Error "9", subscript out of range. :(

@piston_77 5 жыл бұрын

how can i add those cool dynamic icons like the average login hours?

@r3scu3d 5 жыл бұрын

how about if you want to attach another files from your hard drive? how to add buttons to point on the location of the files and send those as attachments?

@ayushjain8519 4 жыл бұрын

Dear Sir, its amazing video...helped me alot but i want to paste that range as snapshot. how to do this ?

@aashraynalawade 3 жыл бұрын

how can we send the same to multiple recipients in loop. Like we send bulk mail with attachments in same mail want to insert image/range from excel like you did in this video

@tier1athlete829 3 жыл бұрын

Can I set it up exactly like this & have sent to feature like you have in tab & I could enter any ones email to that send to section and just press a send button to send email with that page information in main body of email! If I have links in the excel tab would those links work also within the email body for the person receiving the email I sent through excel

@sapnaapnaapna 3 жыл бұрын

Nice Thanks

@PKAnExcelExpert 3 жыл бұрын

Most welcome

@sams9329 4 жыл бұрын

Can we send all employee performance data of the email body in the form of a picture with its name and performance number

@rishabshankar8898 4 жыл бұрын

Hi, in attachments.add , can we give a reference of a cell where the attachment path is already available?

@nageshsunkara82 3 жыл бұрын

Hi video is great

@kripck 4 жыл бұрын

Hi Excellent Code , It Worked Perfectly , but for grouped charts id did not work( Many Came Blank in the outlook body , also can you suggest how i can reduce the size of the images pasted on outlook body

@RitikaSharma-dg5zc 5 жыл бұрын

Thanks for this video... I have a query, if I want to send this worksheet as attachment and mail boby as well.. Please suggest

@PKAnExcelExpert 5 жыл бұрын

Thanks of your valuable feedback. You can use below code before send code .Attachments.Add ( ThisWorkbook.FullName)

@RitikaSharma-dg5zc 5 жыл бұрын

@@PKAnExcelExpert Thank you for response

@japinosquad6032 2 жыл бұрын

Thanks for this. How about if I still want to view the new message window so I can check email body before sending it. Hope you answer me.

@calendil 2 жыл бұрын

Is it sending a copy/paste of the workbook or sending like a screenshot image?

@mohammadalharash7657 6 жыл бұрын

the master I would like to know how to send a Whatsapp message using vba Excel .. thanks

@santoshmore8016 5 жыл бұрын

Hello sir can yon send me macro in outlook particular folder attachment file save in particular folder same time when I got email

@KingNB01 6 жыл бұрын

Thanks so much!! I was looking for how to do this for a very long time! However please can you help me with one additional item: How can we send a filtered dashboard to each recipient. So suppose I have a list of sales reps and I want to filter my dashboard with their name so that it shows their performance specific factors and send the email to the sales rep only and repeat for a complete list of sales reps so that each one gets their own email?

@yixinwang5823 4 жыл бұрын

i want to learn this too! have you find a good solution?

@danpunk003 5 жыл бұрын

Hi Thank you for this video, if I want to put table in the body of the mail not as snapshot, I should replace this line ''Sub Send_Email_With_snapshot()'' with what ?

@joyrawat1022 4 жыл бұрын

Hi Dan, You can put up subject line as per your convenience. Well you can also mentioned subject line as "Sub SendEmail_UsingExcelRange"

@prasantamaji9998 3 жыл бұрын

This great to learning, But Please suggest here if i want to set time line how i do this .

@kamranshaikh7455 4 жыл бұрын

Hi , can you please help me while creating multiples emails from excel If we want to copy paste multiple range in each drafts how we can copy paste through excel.

@ronb3137 4 жыл бұрын

I followed the code, however for some reason the format gets messed up. Can you please help? Thanks!

@Hitesh-Pitroda 3 жыл бұрын

Dear sir, please advise i need to send bulk email how to set range L6 to 1000 ?

@joaocarloscamelo8578 5 жыл бұрын

Hello, I need help! When I send a email like this way to a GMAIL, the email arrive with error, how can I fix this?

@akashtribhuvan8124 5 жыл бұрын

Great

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback

@ronniesakai9811 4 жыл бұрын

Hi , how can we skip range that had hidden column ..

@malarvizhigokul4824 5 жыл бұрын

Please help on code if we have to send to individual mails IDs

@benoitgautherot6833 4 жыл бұрын

Wonderful ! I have a problem : I want to do the same thing but I have a lot of tabs. Each tabs' name begin by 'Account". I would like to send each tab beginning by Account by email & each email is filled in cell M1 of each tab. Could you help me to write this code ? thx a lot in advance. BR

@JimHearn 4 жыл бұрын

Several others have posted the same issue I am having, but no responses with a fix. Can you please help? We can only run it the first time, but then after that, we get error "Method 'MailEnvelope' of object '_Worksheet' failed". I only see responses to people praising your video, but not for issues when we follow the code you provided. Thanks in advance for sharing this! Just need to get past this issue before we can use it. :)

@ankeshverma7023 2 жыл бұрын

Adding below line after 'End With' statement may solve this problem problem. "ActiveWorkbook.Save" Example: 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 "ActiveWorkbook.Save"

@VS-rh8rq 3 жыл бұрын

I tried this. Worked first time then got a response 'method mail envelope of object failed on second, third attempt

@martinj9285 2 жыл бұрын

Hi bro. I have an one query for image add in gmail body. I have change the excel range as a png file. But after convert into png file I can't able to insert the image file into the gmail body. The file pathe only getting even after run the macro. Can u plz explain abt that? And how to resolve this issue?

@vishalbanait3464 4 жыл бұрын

while run the macro no snap shot available in mail body only mail sent pls help

@gauravsrivastava1538 4 жыл бұрын

Hi This is effective but I have couple of doubts ..... 1.if I want to send this snapshot with address which are on sheet 2 so in sheet 1 only the contents that go in mail body are present. 2.if I want to display the mail instead of sending then ?? Can you please help with this ??

@kuldeepparas9640 4 жыл бұрын

Sir, Can you please share the coding to share the same snapshot but to multiple recipients, you said in case of multiple recipients separate them by semi column but it is not working can you please help in this?????

@TheMayank1000 4 жыл бұрын

I have done this but i can see half the image. when i manually do WRAP SQUARE then only i can see full image. is there any way through VBA.

@MrAmritpal1989 Жыл бұрын

This was working properly, but now the VBA when executed from Task manager get stuck and does not call outlook to send email, if I try running the VBA Manaually it works fine, any solution please help

@dineshpandey5008 4 жыл бұрын

Hi, I used this code and worked well but there is problem it is working only first time, when i use again it is showing error, pls give me solution

@techmantraaz 4 жыл бұрын

Hello, I try to run this Code but it gives me an Error - "runtime error 438 object doesn't support this property or method vba" Please guide

@MahaJourneyWithRaj Жыл бұрын

Sir, how to add Body before dashboard and signature after dashboard in this macro?

@A-R-V 2 жыл бұрын

Sir, i want view mail before send then what code should be pass

@virenderjal 4 жыл бұрын

I am facing this error method mailenvelop of object_worksheet failed. please help me

@-learningbeyondends1839 3 жыл бұрын

How to search bulk mail in outlook ,using Excel and reply or forward with attachment

@PKAnExcelExpert 3 жыл бұрын

Will upload soon

@pathusheshadri6295 8 ай бұрын

Sir, this email when we view in mobile phone displays blackout. So can you make another video VBA macro using snipping tools copying from excel and pasting in email.

@kripck 4 жыл бұрын

Hello , it works with small area , but for bigger area (Eg:- A1:Z255) this code do not work . the snap comes broken

@omprakasdh1232 3 жыл бұрын

How to filter pivot table manager wise and send email one by one

@suhailnbd 3 жыл бұрын

Pk it's not working getting error mail envelope of objects failed Have you add any library for this.

@syedatifahmed915 Жыл бұрын

Trying to attach the file as instructed, but not able attach. Plz suggest

@gustavobetancourt3623 6 ай бұрын

Hi. What is the code line if i want to send the email to multiple recipients instead of one person? Thnx

@golakondababu7105 3 жыл бұрын

Hello, I have done the same which have shown in vedio but the width is changing in Outlook .please help me urgently on this .thanks

@muktheshtanukula 2 жыл бұрын

Hi PK it's wonderful VBA code, But I have an issue with this cobe, when I was trying to run this VBA code with my data my outlook setting was got changed automatically and some time outlook going to stuck, aftre restart the PC, outlook images now visible. Kindly help on this issue brother.

@AkashGupta-hn4wu 6 жыл бұрын

Hi,I have referred above video and i have executed the same code and getting Run-time error saying that "Method MailEnvelope of object _WorkSheet failed".Please help in resolving this issue since i am new to VBA

@LeeONeill1979 5 жыл бұрын

I also reeived this, however saving the work book resolved the issue. Great piece of code though, will help me massivley standardise my teams emails

@norihahabdkadir2487 5 жыл бұрын

I also have this problem. How to resolve?

@dineshmalvey279 3 жыл бұрын

This isn't working for me? Nothing happens when I run this code. I've changed the sheet name accordingly to my workbook.

@jasonli3459 4 жыл бұрын

Only run one time, second time method 'MailEnvelope ' of object 'worksheet' failed. Why

@ZafarKhan-dz5oi 4 жыл бұрын

Same issue with me

@aashraynalawade 3 жыл бұрын

Same issue for me too. @pk please help

@yashwanthreddy9210 4 жыл бұрын

Code for typing email body?

@bronasimbera4682 5 жыл бұрын

song name plz?

@paraskumarsonijaipur2615 4 жыл бұрын

Unable to send mail through this shared VBA code. can you please share the code here only.

@justknowledge4607 4 жыл бұрын

Mail not going and only showing msg sent to cc subject not working so please share the correction also

@nageshsunkara82 3 жыл бұрын

But pls help as iam getting error at with selection. Parent. Mailenvelope. Item.

@HerChip 5 жыл бұрын

If I want to run the macro a second time. It does not work. Do I need to set something to "nothing"?

@hookedonkirtan5067 3 жыл бұрын

Same happens for me - works first time then doesn't work

@MandeepSingh-dz3eh 2 жыл бұрын

Dear sir, please tell me how can I display email instead of sending using mail.envelope method. . display is not working

@rajeevramachandran7815 4 жыл бұрын

sh.Range("A1:H" & lr).Select this code showing error. do you know why?

@joyrawat1022 4 жыл бұрын

Can you please copy and paste complete code so that one can explain you.

@123vijay09 3 жыл бұрын

I got an error as Type Mismatch for ".Body" part..pls fix it

@ranka888 2 жыл бұрын

Very good video, But I need a help, I don't want the mail to be sent directly, I only want it to display in my outlook. Instead of - .send I used .Display, but it doesn't work. Can you please help?

@MrJerold89 2 жыл бұрын

Method 'MailEnvelope' of object'_Worksheet' failed

@alexanderaripov8740 5 жыл бұрын

Hi! How can I display it before sending?

@PKAnExcelExpert 5 жыл бұрын

Use ".display" in place of ".send"

@alexanderaripov8740 5 жыл бұрын

@@PKAnExcelExpert I replaced send to display and nothing happened. When .send (email sent properly) When .Display( nothing) Do you have any ideas why?

@omarkrafess5321 5 жыл бұрын

@@alexanderaripov8740 You have to put below code before with selection line Thisworkbook.EnvelopeVisible=True

@terenceharper5612 4 жыл бұрын

@@omarkrafess5321 Thanks... I was running into an error

@shaileshsharma668 5 жыл бұрын

Hii When am I sending first time it will send but when samething I am doing it will give me error

@PKAnExcelExpert 5 жыл бұрын

What is error number and description

@josezamudioalatorre4475 4 жыл бұрын

Error '-2147467259 (80004005)

@josezamudioalatorre4475 4 жыл бұрын

Error 'MailEnvelope' on the object '_worksheet'

@jitendrarane4518 4 жыл бұрын

Hello Brother, Could you guide how to create the button and link it.

@excelonlineadvisor 4 жыл бұрын

Just add a command button and assign your macro to the button

@mostafa_farid 3 жыл бұрын

@@excelonlineadvisor doesn't work keep giving me error at "With Selection.Parent.MailEnvelope.Item" Don't know what to do

@MSKVlogs007 5 жыл бұрын

Hi its amazing can we send multiple snapshot to multiple user with single click please help

@PKAnExcelExpert 5 жыл бұрын

Thanks for your valuable feedback. Yes you can do that. VBA code needs to be changed accordingly.

@MSKVlogs007 5 жыл бұрын

@@PKAnExcelExpert Thank you Sir for your response can we attached only this sheet in attachment please share attachment code

@ranimore89 Жыл бұрын

Ek sath multiple mails kaise karu...pls help

@PKAnExcelExpert Жыл бұрын

Please watch below videos: kzfaq.info/get/bejne/p5-bh8qFzM6yYps.html kzfaq.info/get/bejne/h7x6d7SivrOylIU.html kzfaq.info/get/bejne/d5ykmsqUtLyapKc.html

@kamelkamel-xn8xy 4 жыл бұрын

I receve this error :la méthode 'mailenvelope' de l'objet worcksheet à echoué

@Better000 3 жыл бұрын

Mee too same error

@prahladmandal1972 Жыл бұрын

hi sir im getting error "Subscript out of range" please help me out in this

@PKAnExcelExpert Жыл бұрын

Please check the sheet name in actual and in VBA code. It may be different

@aakashkoranne6143 5 жыл бұрын

Hi Friend, I observed & learn this video but I am having issue. I am having Raw data of all Team Leaders of their team want to send same with snapshot to Team Leaders from this video I am getting challenge to prepare sheets team leader wise 70 times. Help me to create macro where I can send 70 mails to team leaders with snapshot in single click.

@PKAnExcelExpert 5 жыл бұрын

I will try to make such video very soon. Thanks for watching

@MSKVlogs007 5 жыл бұрын

@@PKAnExcelExpert could you send me video path if uploaded

@ranimore89 Жыл бұрын

Code Kiya par mail jata hi nahi error bhi kuch nahi aa raha pls help

@shadamlinkam2285 5 жыл бұрын

i'm new to vba. how to create "Click to send Email". Kindly assist and thank you

@PKAnExcelExpert 5 жыл бұрын

I have explained in the video. You can insert a shape from Insert tab . Just right click to and assign your macro on this button. For more information please watch the complete video and download the practice file from the link given in video's description box.

@shadamlinkam2285 5 жыл бұрын

@@PKAnExcelExpert i have try to use practice file from the link given and it's shows Run-time error saying that "Method MailEnvelope of object _WorkSheet failed". how to fix this ?

@shadamlinkam2285 5 жыл бұрын

hi i have try to your practice file from the link and it's comes out with the below error :- Run - time error '-2147467259 (80004005)'; Method 'MailEnvelope' of object'_Worksheet'failed