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" <a@a.com> wrote in message news:uKQ8zX$lFHA.3120@TK2MSFTNGP09.phx.gbl...
>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 = "testing@testing.com"
> '.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" <rondebruin@kabelfoon.nl> wrote in message news:uQ$siH%23lFHA.2920@TK2MSFTNGP14.phx.gbl...
>> 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" <a@a.com> wrote in message news:Omls%23m8lFHA.3288@TK2MSFTNGP09.phx.gbl...
>>> 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" <rondebruin@kabelfoon.nl> wrote in message news:%23n4Pwp5lFHA.2472@TK2MSFTNGP15.phx.gbl...
>>>> Have you seen my reply and try it ?
>>>>
>>>> --
>>>> Regards Ron de Bruin
>>>> http://www.rondebruin.nl
>>>>
>>>>
>>>> "new.microsoft.com" <a@a.com> wrote in message news:%23aRgbcwlFHA.3316@TK2MSFTNGP14.phx.gbl...
>>>>> How can I use Outlook express to send mail rather than Outlook by VBA code
>>>>> thanks
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>