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