How can I use Outlook express to send mail rather than Outlook by VBA code

How can I use Outlook express to send mail rather than Outlook by VBA code
thanks

Have you seen my reply and try it ?

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


"new.microsoft.com" <[email protected]> wrote in message news:%[email protected]...
> How can I use Outlook express to send mail rather than Outlook by VBA code
> thanks
>
>

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" <[email protected]> wrote in message
news:%[email protected]...
> Have you seen my reply and try it ?
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "new.microsoft.com" <[email protected]> wrote in message
> news:%[email protected]...
>> How can I use Outlook express to send mail rather than Outlook by VBA
>> code
>> thanks
>>
>>
>
>

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" <[email protected]> wrote in message news:Omls%[email protected]...
> 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" <[email protected]> wrote in message news:%[email protected]...
>> Have you seen my reply and try it ?
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "new.microsoft.com" <[email protected]> wrote in message news:%[email protected]...
>>> How can I use Outlook express to send mail rather than Outlook by VBA code
>>> thanks
>>>
>>>
>>
>>
>
>

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 = "[email protected]"
'.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" <[email protected]> wrote in message
news:uQ$siH%[email protected]...
> 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" <[email protected]> wrote in message
> news:Omls%[email protected]...
>> 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" <[email protected]> wrote in message
>> news:%[email protected]...
>>> Have you seen my reply and try it ?
>>>
>>> --
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl
>>>
>>>
>>> "new.microsoft.com" <[email protected]> wrote in message
>>> news:%[email protected]...
>>>> How can I use Outlook express to send mail rather than Outlook by VBA
>>>> code
>>>> thanks
>>>>
>>>>
>>>
>>>
>>
>>
>
>

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" <[email protected]> wrote in message news:[email protected]...
>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 = "[email protected]"
> '.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" <[email protected]> wrote in message news:uQ$siH%[email protected]...
>> 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" <[email protected]> wrote in message news:Omls%[email protected]...
>>> 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" <[email protected]> wrote in message news:%[email protected]...
>>>> Have you seen my reply and try it ?
>>>>
>>>> --
>>>> Regards Ron de Bruin
>>>> http://www.rondebruin.nl
>>>>
>>>>
>>>> "new.microsoft.com" <[email protected]> wrote in message news:%[email protected]...
>>>>> How can I use Outlook express to send mail rather than Outlook by VBA code
>>>>> thanks
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>