I have a workbook which I would like to be able to email when I'm finished editing and before closing so I have made a command button to 'send email' via my gmail account. However it only works for an unopened workbook and it works fine when I send another workbook from the pc.
How can I modify the below code to be able to send the workbook I have open and am working on or even better would be a particular sheet from the workbook or the data from that sheet.
Tester1 is not the open workbook it's the saved one on C: that I used to test the mail
Private Sub btnsendemail_Click() Dim mail As New Message Dim config As Configuration Set config = mail.Configuration config(cdoSendUsingMethod) = cdoSendUsingPort config(cdoSMTPServer) = "smtp.gmail.com" config(cdoSMTPServerPort) = 25 config(cdoSMTPAuthenticate) = cdoBasic config(cdoSMTPUseSSL) = True config(cdoSendUserName) = "xxxx.com" config(cdoSendPassword) = "xxxx" config.Fields.Update mail.To = "" mail.From = config(cdoSendUserName) mail.Subject = "email subject" mail.HTMLBody = "<b>emailbody</b>" mail.AddAttachment "C:\Users\Desktop/tester1.xlsm" On Error Resume Next mail.Send If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "There was an error" End If MsgBox "your email has been sent", vbInformation, "sent" End Sub