Send Email Macro won't Send

[erin649]

I'm having trouble getting my code to automatically send the email. For as much research as I've done, no one else seems to have this issue... My code is below, all it does is open the email window with the to & subject filled out, but I want it to send without the user needing to do anything.

sub sendemail ()

'I have other steps prior, copying and pasting values. no issues with code

Sheets("Final Summary").Copy
Application.Dialogs(xlDialogSendMail).Show arg1:="esears@freshdirect.com", arg2:="New SKU Hierarchy and Attributes"



End Sub

Thanks for the help!!
Erin

 

[Andrew Poulsom]

Welcome to MrExcel.

Can't you just use SendMail, as in:

Mail one Sheet With SendMail

 

[erin649]

thank you, yes, that worked. originally, i had a hard time determining which part I needed.

ended up using this:

Sub sendemail()
ActiveWorkbook.SendMail "recipient email", "subject line"

end sub