Mail from Excel - With attachment

[mangeshp4]

Hi I want to send mail from excel . for which below code works fine. am looking to midify this to ..
1] I want to copy data from excel & paste in Lotus Body
2} I want to send mail with attachment.

Private Sub CommandButton1_Click()
Dim s As Object
Dim db As Object
Dim doc As Object
Dim nSession
Set us1 = Range("g6:i24")
Set s = CreateObject("Notes.NotesSession")
Set db = s.GetDatabase(" ", "mail\username.nsf")
Set doc = db.createdocument()
doc.form = "Memo"
doc.sendTo = "noname@noname.com"
doc.Subject = " Sending Mail from EXCEL MACRO"
doc.body = us1 '" Hi Pranali Sending Mail from EXCEL MACRO"
Call doc.Send(False)
Set nSession = Nothing

End Sub

[JOHN H. DAVIS]

See if this can help you with an attachment?

Please Login or Register  to view this content.

Does us1 take care of your first request?

[mangeshp4]

1] us1 doesn't work it sent a blank mail w/o excel pasting.
2] code given by you also sends blank mail w/o attachment.

[JOHN H. DAVIS]

Did you change the Path in the example I provided? The Path should be to the file which is to be attached. I though you had tested US1. I can help you with a couple of cells, but I can't with a range of cells as you indicated. Example doc.Body = Range("G6").Text & " " & Range("H6").Text will give the data in those two ranges.

[mangeshp4]

Yes I have change path still it sends a blank mail. refer code below.

Please Login or Register  to view this content.

[JOHN H. DAVIS]

This line was used as a sample if you do not have data there, then there will be no results.

doc.body = Range("G6").Text & " " & Range("H6")

Also Range("H6") should be Range("H6").Text

Try changing this line:

Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")

To this:

Set AttachME = doc.CREATERICHTEXTITEM("Attachment1")

[mangeshp4]

I hv got it solved for sending attachment , but pending for pasting excel content

Please Login or Register  to view this content.