Excel VBA Macro: Send Email (with Attachment)

  Рет қаралды 57,724

greggowaffles

greggowaffles

4 жыл бұрын

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
@greggowaffles 2 жыл бұрын
Send email with attachments from a list 🤓😎: kzfaq.info/get/bejne/bc-diMZhvs7KhmQ.html
@hashimali5255
@hashimali5255 2 жыл бұрын
Watched a lot of videos but this one actually helped, thank you Sir!
@greggowaffles
@greggowaffles 2 жыл бұрын
No problem. Glad to hear that!!
@forestsunrise26
@forestsunrise26 2 жыл бұрын
Brilliant! This worked out smoothly! Thank you very much!
@greggowaffles
@greggowaffles 2 жыл бұрын
No problem! So glad to hear that!!
@swapnil010283
@swapnil010283 3 жыл бұрын
Thank you, this was fantastic.
@tstoneami
@tstoneami 11 ай бұрын
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!!
@chizzlemo3094
@chizzlemo3094 3 жыл бұрын
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!!
@julioguzman3687
@julioguzman3687 3 жыл бұрын
Great job. Thanks buddy.
@greggowaffles
@greggowaffles 3 жыл бұрын
😎 💯
@davidlinton4127
@davidlinton4127 2 жыл бұрын
Great thanks Greg!
@greggowaffles
@greggowaffles 2 жыл бұрын
No prob! Thanks for watching!!
@thecodfather7109
@thecodfather7109 3 жыл бұрын
Thank you 🙏🏼
@greggowaffles
@greggowaffles 3 жыл бұрын
No prob!
@joaogrilo4896
@joaogrilo4896 Жыл бұрын
Thanks for sharing! :D
@greggowaffles
@greggowaffles Жыл бұрын
Thanks for watching!!
@JrIsHidden
@JrIsHidden 2 жыл бұрын
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 kzfaq.info/sun/PLRixa5AJvj-SYr6vh9-AcG9YM8UuRpN5b
@kja0890
@kja0890 3 жыл бұрын
Thank you so much!!! 🙇
@greggowaffles
@greggowaffles 3 жыл бұрын
No problem!
@skimpylemon8034
@skimpylemon8034 2 жыл бұрын
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?
@iangerardcapistrano5320
@iangerardcapistrano5320 Жыл бұрын
thanks for the video ☺
@greggowaffles
@greggowaffles Жыл бұрын
No prob! Thanks for watching!!
@muratuslu1770
@muratuslu1770 11 ай бұрын
thanks a lot!!
@greggowaffles
@greggowaffles 11 ай бұрын
😊
@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?
@pradeepsg
@pradeepsg Жыл бұрын
super brother
@greggowaffles
@greggowaffles Жыл бұрын
Thank you!
@poojaghatge3855
@poojaghatge3855 2 жыл бұрын
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?
@tet1473
@tet1473 3 жыл бұрын
Hi Greg, Can I link .to and .Attachements.Add to a cell value? If yes how that can be achieved?
@zackd7597
@zackd7597 4 ай бұрын
Can you use attachments.add with a file path that is specified by a file path manually entered into a certain cell?
@kylesterling9176
@kylesterling9176 2 жыл бұрын
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
@abdulmashood4646
@abdulmashood4646 4 жыл бұрын
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!
@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?
@kuljotsohal6402
@kuljotsohal6402 3 жыл бұрын
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”
@mattperrizo1780
@mattperrizo1780 3 жыл бұрын
I am getting stuck at the .Display portion of the VBA. Any suggestions on what might be causing this?
@MrBeckball
@MrBeckball 4 жыл бұрын
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
@salimkoc4254
@salimkoc4254 Жыл бұрын
Hello, I want to export the selected area as jpeg or png in Excel. Can you help me. Thank you.
@tiareamezcua2756
@tiareamezcua2756 2 жыл бұрын
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
@mylou12071
@mylou12071 3 жыл бұрын
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: kzfaq.info/get/bejne/bamYqNSrmrOaZYk.html . Hope that helps and apologies for the late reply!
@breebutler8489
@breebutler8489 3 жыл бұрын
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
@22marykate 4 жыл бұрын
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: kzfaq.info/get/bejne/bamYqNSrmrOaZYk.html
@Tushar22011998
@Tushar22011998 4 жыл бұрын
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!
@randomtilfaeldig
@randomtilfaeldig 3 жыл бұрын
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: kzfaq.info/get/bejne/r8iin6iD2Lu8fYU.html
@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) kzfaq.info/get/bejne/ZtGJoK5337OomXU.html
@loliloucrew
@loliloucrew 2 жыл бұрын
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!!
@aubreyeikenberry8977
@aubreyeikenberry8977 4 жыл бұрын
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
@sundarsinghpthula
@sundarsinghpthula 2 ай бұрын
How to attach only specific sheets in Excel
@khareemcarr8247
@khareemcarr8247 3 жыл бұрын
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
@alteavanloggerenberg2464
@alteavanloggerenberg2464 8 ай бұрын
Hi, the files are not attaching in the mail. Any idea as to the reason? Thanks,
@rrki
@rrki Жыл бұрын
Sir, I did step by step what you did and nothing was attached! Any idea why?
@abhishek18286
@abhishek18286 4 жыл бұрын
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
@manju538
@manju538 3 жыл бұрын
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
@chenvandersluijs8669
@chenvandersluijs8669 2 жыл бұрын
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?
@gajendrasingh9486
@gajendrasingh9486 Жыл бұрын
Can we send by Gmail
@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! kzfaq.info/get/bejne/ZtGJoK5337OomXU.html
@laurenmcintosh6291
@laurenmcintosh6291 4 жыл бұрын
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.
@khareemcarr8247
@khareemcarr8247 3 жыл бұрын
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!
@guruprasad5118
@guruprasad5118 4 жыл бұрын
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
Excel VBA Macro: Send Email with Picture in Body (Embedded Image)
8:57
DO YOU HAVE FRIENDS LIKE THIS?
00:17
dednahype
Рет қаралды 89 МЛН
Самое Романтичное Видео ❤️
00:16
Глеб Рандалайнен
Рет қаралды 6 МЛН
MEGA BOXES ARE BACK!!!
08:53
Brawl Stars
Рет қаралды 36 МЛН
Send Multiple Emails From Excel
10:09
Excel Macro Mania
Рет қаралды 63 М.
Excel VBA Macro: Send Email With Table In Body (Dynamic Range)
13:51
greggowaffles
Рет қаралды 105 М.
How To Automatically Send Customized Emails With Attachments Using Excel Macros
19:40
Send Emails to Multiple Persons with Multiple Attachments
12:23
Dinesh Kumar Takyar
Рет қаралды 62 М.
Send Email with Attachment (Invoice) using Excel VBA Button
3:59
All About Excel
Рет қаралды 11 М.
VBA: Send Email With Outlook Mail body Snapshot
6:59
PK: An Excel Expert
Рет қаралды 69 М.
Bulk Emails | Word template as Outlook Body | Excel macro(vba)
16:30
Extreme Automation - Kamal Girdher
Рет қаралды 26 М.
DO YOU HAVE FRIENDS LIKE THIS?
00:17
dednahype
Рет қаралды 89 МЛН