vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
mit vb6 outlook exchange Posteingang durchsuchen 
Autor: Thomas
Datum: 17.12.04 14:47

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 < 1 Then
Exit Sub
End If
Set myFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
Set myInMails = olNameSpace.Folders(1).Folders(seingang) ' folder

For Each myMessage In myInMails.Items ' geht alle mails durch
List1.AddItem (myMessage.Subject)
'End If
Next

Set myol = Nothing


End Sub

Es wäre super wenn jemand einen Tip hat
Vielen Dank
Thomas
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
mit vb6 outlook exchange Posteingang durchsuchen1.343Thomas17.12.04 14:47

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel