ps i took your email address out<g

Not from me <g

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Gary Keramidas" <GKeramidasATmsn.com wrote in message ...
hi ron:

think i got what i need from example 2, thanks.

ps i took your email address out<g


--


Gary


"Ron de Bruin" wrote in message ...
Hi Gary

Yes, but no Attachment
http://www.rondebruin.nl/mail/oebody.htm

But CDO is also a option because it not use a mail program
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Gary Keramidas" <GKeramidasATmsn.com wrote in message ...
hi ron:

ever come up with a way to use outlook express?

--


Gary


"Ron de Bruin" wrote in message ...
Hi al007

.Body = "Please find attached the " & dayrep & " day report"


--
Regards Ron de Bruin
http://www.rondebruin.nl


"al007" wrote in message oups.com...
Sub Mail_workbook_KI()

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dayrep = InputBox("Enter no. day of report.", Default:="0")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = Dayrep & "Day Revenue Report"
.Body = "'Please find attached the ' & dayrep & ' day report
'"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Having problem with the body message - want it to read: 'Please find
attached the 10 day report - if Dayrep=10

Can anybody help pls