Thanks Ron..........
It looks great, I'll give it a try...........

Vaya con Dios,
Chuck, CABGx3



"Ron de Bruin" wrote:

With SendMail it is not possible

Use CDO
http://www.rondebruin.nl/cdo.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"CLR" wrote in message ...
Thanks Ron.....unfortunately I'm using Lotus Notes. My code came mainly from
you.....it works great, just need to add the word document attachment.


TempFilePath = ThisWorkbook.Path
TempFileName = "EmailTest"
With ActiveWorkbook
.SaveAs TempFilePath & TempFileName & FileExtStr
Dim emadd
emadd = EmailAddy 'Range("emailtemp!p18 ").Value
Dim INSTRUCTIONS
INSTRUCTIONS = "INSTRUCTIONS.DOC"
.SendMail emadd, "Supplier Report Card"
.Close SaveChanges:=False
End With

Range("data!q1:y25").Copy 'This is the cover sheet text for the email
'This SendKey string pastes the cover sheet Text into the email and steps
'out of the email client Lotus Notes.
SendKeys "^v" & "~"
Kill TempFilePath & TempFileName & FileExtStr

Any ideas?

Vaya con Dios
Chuck, CABGx3

"Ron de Bruin" wrote:

Hi CLR

If you use Outlook you can use code like this
http://www.rondebruin.nl/mail/folder2/mail1.htm

You can repeat this line for every file you want to attach
.Attachments.Add ("C:\test.txt")

You can also look at this example
http://www.rondebruin.nl/mail/folder2/files.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"CLR" wrote in message ...
Hi all.........
I can send the XL sheet(s) ok fine.........just don't know how to also
attach a Word Document...........

Any ideas please?

Vaya con Dios,
Chuck, CABGx3