Emailing an open Workbook via SMTP

[Bob Folks]

Hey Guys,

I need your help. I am attempting to write a macro to send an excel.xlsm file via SMTP. At work I dont have access to Outlook and am stuck with web mail. I have a macro that will save a Sheet as a PDF and send & save that via SMTP but I need to send a work book several times a day and I cant seem to see how to trim the macro down to just send the work book.

Any help would be greatfully recieved.

Cheers
Bob

 

[John_w]

You could try sending it via CDO - search for "CDO.Message" - for example:

Sending emails using VBA without outlook

Good morning, I've been trying to send automated emails depending on a cell value, I've succeeded with the use of outlook but the operator has to click allow every time because the company's Programmatic Access Settings don't allow outlook to send emails without confirmation, this confirmation...

www.mrexcel.com

Run this macro to see if CDO is installed.

Public Sub CDO_Test()

    Dim iMsg As Object, iConf As Object
   
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
   
    MsgBox "Success - CDO is installed"

End Sub