CreateObject ("Outlook.Application") i Runtime Error 429

[fazero]

Mam pytanie dotyczące rozwiazania problemu, który pojawił sie przy
wysyłaniu maili przez Outlook-a z poziomu kodu VBA.
Chodzi głównie o:
CreateObject ("Outlook.Application")

i błąd:
Runtime Error 429

Próbowałem znaleźć coś na ten temat w internecie, jednak żadne
sugestie nie skutkowały.
Poniżej przesyłam przykładowy skrypt w VBA, który generował błąd:
Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "fazero_małpa_gazeta.pl"
.CC = ""
.BCC = ""
.Subject = "test maila"
.Body = Bonus
.Display
End With

SendKeys "%y", True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Proszę ponoc w rozwiązaniu tego problemu.

[Michu]

1. Sprawdź w rejestrze, czy masz wpis
HKEY_CLASSES_ROOT\Outlook.Application

Jeśli nie, powinieneś mieć
HKEY_CLASSES_ROOT\Outlook.Application.11
albo
HKEY_CLASSES_ROOT\Outlook.Application.12

w zależności od tego, jaką masz wersję Outlook'a. Użyj takiej nazwy klasy w
CreateObjecy jaką masz w rejestrze

2. Jeśli ten kod wykonujesz z poziomu makra w Outlook'u, to nie ma sensu
instancjować obiektu aplikacji Outlook'a. Masz tam globalną zmienną o nazwie
Application, która reprezentuje właśnie aplikację Outlook'a, którą próbujesz
stworzyć.

[pxd74]

Post by fazero
Mam pytanie dotyczące rozwiazania problemu, który pojawił sie przy
wysyłaniu maili przez Outlook-a z poziomu kodu VBA.
CreateObject ("Outlook.Application")
Runtime Error 429
Próbowałem znaleźć coś na ten temat w internecie, jednak żadne
sugestie nie skutkowały.

Oprócz tego co napisał Michał mozesz poczytać również tutaj:
INFO: Troubleshooting Error 429 When Automating Office Applications
http://support.microsoft.com/kb/244264/en-us