problems with code in thisOutlookSession (error 438)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Heike Pertzel - 27 Jul 2005 08:59 GMT

Hallo!

In Outlook 2002 I've got following code in ThisOutlookSession:

Sub RufeBriefSchreibenAuf()
AufrufAusWord = True
Call BriefSchreiben
End Sub

In Word 2002 I wrote

Sub Test()
Dim oOutAppl As Outlook.Application

Set oOutAppl = GetObject(, "Outlook.Application")
oOutAppl.RufeBriefSchreibenAuf
End Sub

Error 438 apears. What's wrong?

Thanks and regards
Heike Pertzel / DATA 5 GmbH

Reply to this Message

moi - 27 Jul 2005 10:26 GMT

Hallo,

Dim olApp, olNs
Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNameSpace("MAPI")
olNs.Logon

u.s.w...

> Hallo!
>
[quoted text clipped - 18 lines]
> Thanks and regards
> Heike Pertzel / DATA 5 GmbH

Reply to this Message

Heike Pertzel - 27 Jul 2005 11:24 GMT

Thanks!
Heike

> Hallo,
>
[quoted text clipped - 27 lines]
>> Thanks and regards
>> Heike Pertzel / DATA 5 GmbH

Reply to this Message

Heike Pertzel - 01 Aug 2005 09:06 GMT

Hallo,

I've tried your suggestion, but the error still appears. Do you know why?

Heike Pertzel / DATA 5 GmbH

> Hallo,
>
[quoted text clipped - 27 lines]
>> Thanks and regards
>> Heike Pertzel / DATA 5 GmbH

Reply to this Message