Excel VBA Macro: Send Email with Attachment (Step-by-Step Tutorial)

[@greggowaffles]

Send email with attachments from a list 🤓😎: kzbin.info/www/bejne/bZrQhpZmjs2ZjJI

[@DontTouchMyCroissant]

That was so so so helpful! I just started a new job that gets me more money but also a lot more responsibility sending out reports. I already wrote the code to format the data, but combing it with this will make things so much easier. Thank you so much!

[@greggowaffles]

So glad to hear that! Congratulations on the new job!!! 🎉🎉🎉

[@selvan1264]

Thank you for the video. in this case how to include the code to save the outlook draft email into local folder 1st?

[@fredericlian7156]

Hello greggowaffles, how can we add the most recent file in Outlook among of several files?

[@zackd7597]

Can you use attachments.add with a file path that is specified by a file path manually entered into a certain cell?

[@callumwhelan4223]

Trying to upload the activeworkbook sharepoint link as a body attachment so that users when they receive the email can be directed to the sharepoint area. Any ideas?

[@salimkoc4254]

Hello, I want to export the selected area as jpeg or png in Excel. Can you help me. Thank you.

[@laurenmcintoshh]

How would I add in an additional email address if I wanted to send to more than one person at a time?

[@Tushar22011998]

just do this after .to = "[e-mail]" & ";" & "[e-mail]"

[@greggowaffles]

Or .to ="[e-mail]; [e-mail]" you can add up to 500 (I think) email addresses as long as you separate each with a semi colon

[@laurenmcintoshh]

greggowaffles perfect thank you solved my problem🙌🏽

[@attachmonk6023]

Go to 'Contacts', choose 'Home', and click 'New contact'. Set the name 'Undisclosed recipient' for the address you want to use for bulk emails as sender. Save your changes. Now to send email to multiple recipients you can just select created contact and add it into the 'To' box.

[@mattperrizo1780]

I am getting stuck at the .Display portion of the VBA. Any suggestions on what might be causing this?

[@tiareamezcua2756]

How do you do it without saving the document? I have a read only form that I would like users to prefill and send but not replace original form

[@chenvandersluijs8669]

Hi, I did everything like you did but I don't get the attachment into the email. What am i doing wrong?

[@greggowaffles]

hey! can you paste your code here so that i can take a look?

[@mylou12071]

I am trying to create an automated system where I can email the customer statements. If I had a Pivot Table, how can I code it where it filters the Customer name based on the next loop and it then sends the table copy to the assigned email address. Let it loop to the next customer, which means it would filter the table again and sent that new table to the assigned email....etc. You made me understand the whole how to add a table to the email but If you can show a way to make my situation work, I would really really love to see it.

[@greggowaffles]

I'll make a video on that scenario as soon as I can! Thanks! You could combine the code/logic from this video with the one on sending a table: kzbin.info/www/bejne/bXTLpqSwarJpa7c . Hope that helps and apologies for the late reply!

[@poojaghatge3855]

Hi Greg, this is wonderful however my attachments and body of the email is not displayed. Anything that you can suggest why that's happening?

[@markynani11]

what if i wanted an attachment with a specific file name from the list?because my file name will vary

[@greggowaffles]

Hope this helps! Excel VBA Macro: Send Email with Attachments from a List (Dynamic Range) kzbin.info/www/bejne/bZrQhpZmjs2ZjJI

[@tet1473]

Hi Greg, Can I link .to and .Attachements.Add to a cell value? If yes how that can be achieved?

[@kylesterling9176]

Hey Greg, thanks for making this video it has been very helpful. One question: In your .HTMLBody portion you include the & .HTMLBody after the strBody. My strBody will not populate in the body of my email unless I remove this. If I remove this i do not get my signature at the end of the email unfortunately... any solution for me? Thanks

[@greggowaffles]

Thanks for watching! Can you put the entire line of code here? I haven’t come across that issue before

[@alteavanloggerenberg2464]

Hi, the files are not attaching in the mail. Any idea as to the reason? Thanks,

[@kuljotsohal6402]

Hello Greg, Is it possible to add another section where it would be sent out via a team email instead of my own person email. How would I go about this ? Thanks for the great video btw.

[@greggowaffles]

hi. try this: .SentOnBehalfOfName = “team email”

[@22marykate]

Hi! Can the email address be dynamic and dependent on what email is input in a cell?

[@greggowaffles]

Yup! This video gives an example relating to that: kzbin.info/www/bejne/bXTLpqSwarJpa7c

[@rrki]

Sir, I did step by step what you did and nothing was attached! Any idea why?

[@breebutler8489]

Are you able to attach a file based on a variable? (i.e. If cell A2 = "North" then send the workbook North.xlsx, if A2 = South then send South.xlsx)

[@greggowaffles]

yup, you would use something like .Attachements.Add "beginning of file path" & Sheets("Sheet Name").Cells(2,1).Text & ".xlsx"

[@Tushar22011998]

Hi Greg Thanks for this code But I am encountering a problem where the code is working fine, it even displays the mail before sending, but when I click send, it won't go to the recipient as well as there is no trail in my Sent item as well. Can you help me?

[@greggowaffles]

I've never heard of that before. There may be some sort of security preventing it from going through. Maybe try .Save instead of .Display or .Send and see if you can manually send it from your saved folder until you can determine what's actually blocking it. Hope that helps!

[@JrIsHidden]

I've watched a handful of attachments.add videos and this was the first one that worked for me! My only barrier now is to figure out how to choose what file within a specific file path. (multiple emails with multiple attachments corresponding to the contact im sending it to)

[@greggowaffles]

So glad to hear that! Hope this playlist helps: Sending Emails kzbin.info/aero/PLRixa5AJvj-SYr6vh9-AcG9YM8UuRpN5b

[@aubreyeikenberry8977]

I want the attached file to come from a shared drive. Will the email recipient be able to directly save it to that location?

[@greggowaffles]

the recipient would have to manually save it to that location if you send the file as an attachment. if you reference the file in your email with a hyperlink, then the user will automatically be able to open and save directly to that shared drive location. apologies for the late reply

[@manju538]

I want pickup the subject, to, body from excel sheet but not in range only specific cell ie sheet2 "A2"

[@greggowaffles]

You could do ThisWorkbook.Sheets(sheet2).Cells(2,1).Text

[@khareemcarr8247]

What if the attachment is dynamic, meaning i already have a macro that saves the file to be attached as a date linked to a cell within the workbook, how would i go about having it attached? Helpful vid btw..

[@greggowaffles]

Thanks! You would just set a variable (ex. myPath) equal to that path that you used to save the file, and then do .Attachments.Add myPath

[@khareemcarr8247]

@@greggowaffles thanks for the timely response, I tried something like that but no attachment came up so maybe i did something wrong, i tried variable path="c:\documents ew weather report -" & format(activesheet. Range(a3), "mm-dd-yyyy") & ". Xlsx", fileformat=51 which saves the file but no luck, tried it without the file format and breaking it up into separate variables with path and filename separate..

[@greggowaffles]

@@khareemcarr8247 you can use MsgBox path to see exactly what path is equal to. There might be an issue with the formatting

[@abhishek18286]

Can we attach Excel file in email and table at mailbody both at same time through Macro? If yes can you please prepare a video for same?

[@greggowaffles]

That's a good idea. Thanks! In the meantime, all you have to do is use the code from the other video and add the .Attachments.Add... line to it

[@sushantmuduli6440]

@@greggowaffles attachments do not work Greg

[@skimpylemon8034]

This is awesome! Thanks man! Can you do a video that shows how to add the 'Check Names' inside that code in cases where you have 20+ emails in the To and CC segments in an email?

[@ALL_DAY_K]

Would loooove to know how to do this with SharePoint file paths instead of file paths for saved files🤔

[@greggowaffles]

Hope this helps! kzbin.info/www/bejne/Zpy8nn58r7J3n6M

[@khareemcarr8247]

Is there a way to just open the path to the attachment for it to be selected?

[@greggowaffles]

yes. if you search: "Application.FileDialog(msoFileDialogFilePicker)" you'll find code on selecting a file and storing the file path

[@khareemcarr8247]

@@greggowaffles Thanks man!

[@greggowaffles]

No prob!

[@sundarsinghpthula]

How to attach only specific sheets in Excel

[@timothylim8728]

This is amazing! quick question. does anyone know how to also include a hyperlink into the email body? like for question please email back "here"

[@greggowaffles]

Thanks for watching! Hope this video helps: Excel VBA Macro: Send Email (with Hyperlink) kzbin.info/www/bejne/Zpy8nn58r7J3n6M

[@hashimali5255]

Watched a lot of videos but this one actually helped, thank you Sir!

[@greggowaffles]

No problem. Glad to hear that!!

[@chizzlemo3094]

I was about to buy that $50 app so I could add attachments to mail merge, you saved me!

[@greggowaffles]

Ayyeee!! Glad to hear that! Close call!!

[@abdulmashood4646]

Hi Greg, Your lesson is very beneficial. Can I automatically convert the report from excel to pdf and send.

[@greggowaffles]

Glad to hear that! Yes, you can!

[@gajendrasingh9486]

Can we send by Gmail

[@tstoneami]

Just what I needed - thank you.

[@greggowaffles]

Thank you for watching!!

[@duckduckboom]

Just what I was looking for!

[@greggowaffles]

So glad to hear that!!

[@forestsunrise26]

Brilliant! This worked out smoothly! Thank you very much!

[@greggowaffles]

No problem! So glad to hear that!!

[@thecodfather7109]

Thank you 🙏🏼

[@greggowaffles]

No prob!

[@swapnil010283]

Thank you, this was fantastic.

[@davidlinton4127]

Great thanks Greg!

[@greggowaffles]

No prob! Thanks for watching!!

[@randomtilfaeldig]

Thank you for the great video! Just what I was looking for Is it possible to choose a different mail to send from? I manage several email accounts in my outlook and would like to choose a different one automatically. ".From = " does not work for me

[@greggowaffles]

No problem! Hope this video helps: kzbin.info/www/bejne/r5PVnXiIqLqLg7M

[@MrBeckball]

Hi Greg, Amazing video-lesson. Is it possible to attach the active sheet (not whole book)?

[@greggowaffles]

Thanks! Yup, you can create a new workbook, add the active sheet to it and send that

[@julioguzman3687]

Great job. Thanks buddy.

[@greggowaffles]

😎 💯

[@iangerardcapistrano5320]

thanks for the video ☺

[@greggowaffles]

No prob! Thanks for watching!!

[@joaogrilo4896]

Thanks for sharing! :D

[@greggowaffles]

Thanks for watching!!

[@kja0890]

Thank you so much!!! 🙇

[@greggowaffles]

No problem!

[@loliloucrew]

Thanks for the code and explanation ! I've been struggling why attachment wasn't working ... I wrote Attachement instead of Attachment ... lost few hours on this hahahahaha

[@greggowaffles]

😂😂 happens to the best of us. Glad you figured it out!!

[@guruprasad5118]

Also include the send option within Macro

[@greggowaffles]

you can swap out ".Display" with ".Send" to do that

[@pradeepsg]

super brother

[@greggowaffles]

Thank you!

[@muratuslu1770]

thanks a lot!!

[@greggowaffles]

😊

[@notanotch1107]

Great Video, How would I send an attachment that references a cell in the active worksheet that has the file pathway instead putting it in "C:\destop eport\01.pdf ". I have the following code so far: A1= First Name B1= Last Name C1= To email address D1= CC E1= Subject F1= File Pathway Sub send_email_attachment() Dim EApp As Object Set EApp = CreateObject("Outlook.Application") Dim EItem As Object 'Dim EApp As Outlook.Application 'Set EApp = New Outlook.Application 'Dim EItem As Outlook.MailItem 'Set EItem = EApp.CreateItem(olMailItem) Dim path As String Dim RList As Range Set RList = Range("A2", Range("a2").End(xlDown)) Dim R As Range For Each R In RList Set EItem = EApp.CreateItem(0) With EItem .To = R.Offset(0, 2) .CC = R.Offset(0, 3) .Subject = R.Offset(0, 4) .Attachments.Add = R.Offset(0, 5) .Body = "Dear " & R & "," & vbNewLine & vbNewLine _ & "Please find attached your report. " & vbNewLine & vbNewLine & "Respectfully," & vbNewLine & vbNewLine & _ "signature" .display End With Next R Set EApp = Nothing Set EItem = Nothing End Sub