How to Email with Attachment

[excelpunk]

Hello Everyone,

I am stuck while working on Excel. I guess this is a very small issue but I would certainly appreciate if someone can help me:
I am trying to email a person with a attachment using Excel. The issue is the 'Email Client' will change from one PC to other. Is it possible to send a email with a attachment using VBA? (Without specifying the email client).

If not, then can someone help me assuming email client as 'Outlook' or 'Windows Email'.

Please note: I have subject and Body entered in few cells, so it would be great if the code can actually read those and would automatically send a email with the subject, body & attachment.

 

[VoG]

Start here http://www.rondebruin.nl/sendmail.htm

 

[TiaXL]

sub email()
 
Dim outapp As Object
Dim outmail As Object
dim sBody as string
 
sBody = range("b3").value
 

Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.createitem(0)
With outmail
        .To = ""
         .CC = ""
        .Subject = sBody        
        .body = ""
        .Attachments.Add ""
        .display
        SendKeys "%{s}", True 
End With
Application.Wait (Now + TimeValue("00:00:05"))
SendKeys "%{s}", True 
Set outapp = Nothing
Set outmail = Nothing

Works with outlook

 

[excelpunk]

Runtime error: 429

ActiveX component Can't Create Object...

Please help