Из MS Outlook в Outlook Express, но как???

[Bzzzik]

Зрасть всем. Так уж случилось, что я сделал прогу, кот. создает письма в MS Outlook'е, формируя их из темы, адреса и текста, но фишка в том, что прога работает под MS Outlook, а надо бы под Outlook Express. Вот ее текст:

Dim out As Object 'назначим переменную для объекта
Set out = CreateObject("Outlook.Application")
With out.CreateItem(olMailItem) 'используя объект Outlook
.Recipients.Add "casey@xxx.com"
.Subject = "Тестовое сообщение"
.Body = Text1.Text
.Save
End With

P.S.
Очевидно, что менять надо 2 строку (Set out = CreateObject("Outlook.Application") ) из Outlook.Application в что-то.(типа Outlook Express.Application), но вот в что?
P.P.S.
Если вы знаете еще и др. решение вопроса, то прошу его упомянуть.
P.P.P.S.
Ну вот и все, очень на всех надеюсь, желаю удачи, зарание преблагодарен!!!

[corgi]

из Outlook Express нельзя ну никак