problems with code in thisOutlookSession (error 438)

Tutorials Win: Microsoft Windows Forum

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
Top

Re: problems with code in thisOutlookSession (error 438) by moi

moi
Wed Jul 27 04:26:14 CDT 2005

Hallo,


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

u.s.w...





"Heike Pertzel" <HPNews@DATA5.de> schreef in bericht
news:e66noEokFHA.1440@TK2MSFTNGP14.phx.gbl...
> 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
>


Top

Re: problems with code in thisOutlookSession (error 438) by Heike

Heike
Wed Jul 27 05:24:00 CDT 2005

Thanks!
Heike
"moi" <coffeecop@_NOSPAM_planet.nl> schrieb im Newsbeitrag
news:42e7533c$0$13818$ba620dc5@text.nova.planet.nl...
> Hallo,
>
>
> Dim olApp, olNs
> Set olApp = CreateObject("Outlook.Application")
> Set olNs = olApp.GetNameSpace("MAPI")
> olNs.Logon
>
> u.s.w...
>
>
>
>
>
> "Heike Pertzel" <HPNews@DATA5.de> schreef in bericht
> news:e66noEokFHA.1440@TK2MSFTNGP14.phx.gbl...
>> 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
>>
>
>


Top

Re: problems with code in thisOutlookSession (error 438) by Heike

Heike
Mon Aug 01 03:06:41 CDT 2005

Hallo,

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

Heike Pertzel / DATA 5 GmbH

"moi" <coffeecop@_NOSPAM_planet.nl> schrieb im Newsbeitrag
news:42e7533c$0$13818$ba620dc5@text.nova.planet.nl...
> Hallo,
>
>
> Dim olApp, olNs
> Set olApp = CreateObject("Outlook.Application")
> Set olNs = olApp.GetNameSpace("MAPI")
> olNs.Logon
>
> u.s.w...
>
>
>
>
>
> "Heike Pertzel" <HPNews@DATA5.de> schreef in bericht
> news:e66noEokFHA.1440@TK2MSFTNGP14.phx.gbl...
>> 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
>>
>
>


Top