Send mail using default client

[Sudeep]

I want to send an email with attachments using the default email client
through VBA.
My current program sends the mail using Microsoft outlook.

Is there any way through which I can send an email with an attachment using
the default email client which can be lotus notes, Netscape email client etc.

My current code goes like this:

Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim samp As String
With Application
..EnableEvents = False
..ScreenUpdating = False
End With
Set sh = Sheets(1)
Set OutApp = CreateObject("outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
..To = "(e-mail address removed)"
..Subject = “Subject lineâ€
..Attachments.Add “C:/text.txtâ€
..Body = "Text in body"
..Display

 

[Tom Ogilvy]

If you just want to send the attachment, then use the Sendmail command. If
you want to write a message in the body, then you might have to use CDO. See
Ron de Bruin's site:

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

 

[Sudeep]

Thanks a lot

If you just want to send the attachment, then use the Sendmail command. If
you want to write a message in the body, then you might have to use CDO. See
Ron de Bruin's site:

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