Be sure thet the VBA editor is closed when you try it

You can try this

Before the sendkeys line
Application.Wait (Now + TimeValue("0:00:03"))

Remember thet sendkeys is not reliable
If you can use CDO then use that
http://www.rondebruin.nl/cdo.htm


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


"new.microsoft.com" wrote in message ...
I see. Ron do you know why my following code doesn't work? The mail just displayed but not send out. Thanks

Sub SendWithAtt()

Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String


Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)


ActiveWorkbook.Save

' CurrFile = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
CurrFile = ActiveWorkbook.path & "\" & "OSAllowRates.pdf"
With olMail
.To = "
'.CC = ""
.Subject = "Testing"
.Body = "Hello"
.Attachments.Add CurrFile
.Display '
End With
Application.SendKeys "%S"

Set olMail = Nothing
Set olApp = Nothing

End Sub



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

You must use SendMail code If you want to use OE and not the Outlook object model


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


"new.microsoft.com" wrote in message ...
Thank you very much Ron,
Yes, but i don't understand how the Outlook Express can be called rather than Outlook as creat object only has the outlook and
no outlook express.



"Ron de Bruin" wrote in message ...
Have you seen my reply and try it ?

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


"new.microsoft.com" wrote in message ...
How can I use Outlook express to send mail rather than Outlook by VBA code
thanks