Posteingang mit VB6 durchsuchen Exchange

Internet E-Mail
1

Hallo,

ich möchte bei einem Client der keine lokale PST hat und nur auf den Exchange-Server zugreift (von VB aus) emails durchsuchen. Bei lokaler PST ohne Exchange geht es problemlos, bei Exchange bekomme ich einen Runtime-Error.

Hier Ausschnitte aus dem relevanten Code:

Dim myol As New Outlook.Application
Dim olNameSpace As NameSpace
Dim myMessage As Object
Dim myInMails As MAPIFolder
Dim mydestfolder As MAPIFolder
Dim myFolder As MAPIFolder
…
Private Sub Command1_Click()
Dim seingang As String

seingang = Me.TextPosteingang

Set olNameSpace = myol.GetNamespace(„MAPI“)
If myol.Explorers.Count

2

Hi,

wo kommt denn der Fehler (Runtime Error) ??

Kannst vielleicht mal ein Sample inklusive aller verwendeten Variablen bzw. der zugehörigen set commandos posten ?

Gruß
Nicole

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]