Send email in Lotus Notes



Hi All.......
Here's a snippet of code, mostly taken from Ron de Bruin's fine works fine for preparing to send an email in my Lotus takes it right up to the point where I have to press the
Lotus Notes "Send" button to make the email go out.........I would like not
to have to do that, I want the macro to take it all the way and send the
email..........any ideas please?

Vaya con Dios,
Chuck, CABGx3

With ActiveWorkbook
.SaveAs TempFilePath & TempFileName & FileExtStr
Dim emadd
emadd = EmailAddy
.SendMail emadd, "OOR Report for " & Date & " TEST-TEST-TEST"
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Range("data!q1:y25").Copy 'This is the cover sheet text for the email
SendKeys "^v" 'Paste command
SendKeys "~" 'Return command

Norman Jones

Hi Chuck,

As I have qa strong aversion to the use
of the sendkeys method, perhaps take
a look at the sample code from xlDennis
which you can locate using the link
provided by Ron at:

Links on the Internet about mailing

It is the fourth link on that page.

Norman> wrote in message
news:%[email protected]...


Looks like good stuff there Norman, thanks. I'm on my way to work now, and
will dig through it all when I get there.

Thanks again,
Vaya con Dios,
Chuck, CABGx3

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question