Excel VBA Macro: Send Email (with Attachment)

Excel VBA Macro: Send Email (with Attachment). In this video, we create a macro that automatically sends an email with an attachment in Outlook. We also go over how to easily find the correct file path of the attachment by adding Document Location to the Quick Access Toolbar in Excel. We use HTML to compose the body of email and go over how to change the font size and font type. We also go over how to use the current date in the subject line, and how to change the format of the date.
Different HTML Font Styles: en.wikipedia.org/wiki/Font_fa...)
#ExcelVBA #ExcelMacro

Пікірлер: 101

  • @greggowaffles
    @greggowaffles2 жыл бұрын

    Send email with attachments from a list 🤓😎: kzread.info/dash/bejne/aZ2ht8VpicvMhpM.html

  • @hashimali5255
    @hashimali52552 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    2 жыл бұрын

    No problem. Glad to hear that!!

  • @forestsunrise26
    @forestsunrise262 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    2 жыл бұрын

    No problem! So glad to hear that!!

  • @chizzlemo3094
    @chizzlemo30943 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

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

  • @JrIsHidden
    @JrIsHidden2 жыл бұрын

    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

    @greggowaffles

    2 жыл бұрын

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

  • @swapnil010283
    @swapnil0102833 жыл бұрын

    Thank you, this was fantastic.

  • @tstoneami
    @tstoneami11 ай бұрын

    Just what I needed - thank you.

  • @greggowaffles

    @greggowaffles

    11 ай бұрын

    Thank you for watching!!

  • @kyguy4485
    @kyguy4485 Жыл бұрын

    Just what I was looking for!

  • @greggowaffles

    @greggowaffles

    Жыл бұрын

    So glad to hear that!!

  • @julioguzman3687
    @julioguzman36873 жыл бұрын

    Great job. Thanks buddy.

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

    😎 💯

  • @davidlinton4127
    @davidlinton41272 жыл бұрын

    Great thanks Greg!

  • @greggowaffles

    @greggowaffles

    2 жыл бұрын

    No prob! Thanks for watching!!

  • @kja0890
    @kja08903 жыл бұрын

    Thank you so much!!! 🙇

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

    No problem!

  • @thecodfather7109
    @thecodfather71093 жыл бұрын

    Thank you 🙏🏼

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

    No prob!

  • @skimpylemon8034
    @skimpylemon80342 жыл бұрын

    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?

  • @joaogrilo4896
    @joaogrilo4896 Жыл бұрын

    Thanks for sharing! :D

  • @greggowaffles

    @greggowaffles

    Жыл бұрын

    Thanks for watching!!

  • @iangerardcapistrano5320
    @iangerardcapistrano5320 Жыл бұрын

    thanks for the video ☺

  • @greggowaffles

    @greggowaffles

    Жыл бұрын

    No prob! Thanks for watching!!

  • @muratuslu1770
    @muratuslu177011 ай бұрын

    thanks a lot!!

  • @greggowaffles

    @greggowaffles

    11 ай бұрын

    😊

  • @pradeepsg
    @pradeepsg Жыл бұрын

    super brother

  • @greggowaffles

    @greggowaffles

    Жыл бұрын

    Thank you!

  • @selvan1264
    @selvan1264 Жыл бұрын

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

  • @abdulmashood4646
    @abdulmashood46464 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    4 жыл бұрын

    Glad to hear that! Yes, you can!

  • @zackd7597
    @zackd75974 ай бұрын

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

  • @kylesterling9176
    @kylesterling91762 жыл бұрын

    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

    @greggowaffles

    2 жыл бұрын

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

  • @loliloucrew
    @loliloucrew2 жыл бұрын

    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

    @greggowaffles

    2 жыл бұрын

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

  • @callumwhelan4223
    @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?

  • @mylou12071
    @mylou120713 жыл бұрын

    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

    @greggowaffles

    3 жыл бұрын

    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: kzread.info/dash/bejne/aXec19OzZbCcZbg.html . Hope that helps and apologies for the late reply!

  • @poojaghatge3855
    @poojaghatge38552 жыл бұрын

    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?

  • @kuljotsohal6402
    @kuljotsohal64023 жыл бұрын

    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

    @greggowaffles

    3 жыл бұрын

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

  • @tet1473
    @tet14733 жыл бұрын

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

  • @breebutler8489
    @breebutler84893 жыл бұрын

    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

    @greggowaffles

    3 жыл бұрын

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

  • @22marykate
    @22marykate4 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    4 жыл бұрын

    Yup! This video gives an example relating to that: kzread.info/dash/bejne/aXec19OzZbCcZbg.html

  • @sundarsinghpthula
    @sundarsinghpthula2 ай бұрын

    How to attach only specific sheets in Excel

  • @Tushar22011998
    @Tushar220119984 жыл бұрын

    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

    @greggowaffles

    4 жыл бұрын

    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!

  • @salimkoc4254
    @salimkoc4254 Жыл бұрын

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

  • @MrBeckball
    @MrBeckball4 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    4 жыл бұрын

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

  • @mattperrizo1780
    @mattperrizo17803 жыл бұрын

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

  • @aubreyeikenberry8977
    @aubreyeikenberry89774 жыл бұрын

    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

    @greggowaffles

    4 жыл бұрын

    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

  • @tiareamezcua2756
    @tiareamezcua27562 жыл бұрын

    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

  • @timothylim8728
    @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

    @greggowaffles

    Жыл бұрын

    Thanks for watching! Hope this video helps: Excel VBA Macro: Send Email (with Hyperlink) kzread.info/dash/bejne/Yp-Nz61_qrCqmaQ.html

  • @randomtilfaeldig
    @randomtilfaeldig3 жыл бұрын

    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

    @greggowaffles

    3 жыл бұрын

    No problem! Hope this video helps: kzread.info/dash/bejne/q5amzqeLo7i-fbQ.html

  • @chenvandersluijs8669
    @chenvandersluijs86692 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    2 жыл бұрын

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

  • @alteavanloggerenberg2464
    @alteavanloggerenberg24648 ай бұрын

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

  • @khareemcarr8247
    @khareemcarr82473 жыл бұрын

    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

    @greggowaffles

    3 жыл бұрын

    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

    @khareemcarr8247

    3 жыл бұрын

    @@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

    @greggowaffles

    3 жыл бұрын

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

  • @manju538
    @manju5383 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

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

  • @abhishek18286
    @abhishek182864 жыл бұрын

    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

    @greggowaffles

    4 жыл бұрын

    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

    @sushantmuduli6440

    3 жыл бұрын

    @@greggowaffles attachments do not work Greg

  • @laurenmcintosh6291
    @laurenmcintosh62914 жыл бұрын

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

  • @Tushar22011998

    @Tushar22011998

    4 жыл бұрын

    just do this after .to = "team@abc.com" & ";" & "team@def.com"

  • @greggowaffles

    @greggowaffles

    4 жыл бұрын

    Or .to ="team@abc.com; team@def.com" you can add up to 500 (I think) email addresses as long as you separate each with a semi colon

  • @laurenmcintosh6291

    @laurenmcintosh6291

    4 жыл бұрын

    greggowaffles perfect thank you solved my problem🙌🏽

  • @attachmonk6023

    @attachmonk6023

    4 жыл бұрын

    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.

  • @rrki
    @rrki Жыл бұрын

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

  • @ALL_DAY_K
    @ALL_DAY_K Жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    Жыл бұрын

    Hope this helps! kzread.info/dash/bejne/Yp-Nz61_qrCqmaQ.html

  • @khareemcarr8247
    @khareemcarr82473 жыл бұрын

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

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

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

  • @khareemcarr8247

    @khareemcarr8247

    3 жыл бұрын

    @@greggowaffles Thanks man!

  • @greggowaffles

    @greggowaffles

    3 жыл бұрын

    No prob!

  • @gajendrasingh9486
    @gajendrasingh9486 Жыл бұрын

    Can we send by Gmail

  • @guruprasad5118
    @guruprasad51184 жыл бұрын

    Also include the send option within Macro

  • @greggowaffles

    @greggowaffles

    4 жыл бұрын

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

  • @notanotch1107
    @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