Mails kopieren in Exchange via VB

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich arbeite mit Visual Basic 6 und Exchange 2003.
Ich muß aus einem „Public Folder“ eine oder mehrere eMails in einen anderen „Public Folder“ verschieben. Wie mache ich das am Besten ? Gibt es eine Möglichkeit, dies über CDO zu realisieren ?
Ich dachte, daß wenn ich die Folder Objekte im Zugriff habe, ich mittels einem Befehl die Mails kopieren oder verschieben kann. Geht aber anscheinend nicht.
Gibt es im Internet irgendwo eventuell auch eine Gescheite Entwicklerdoku für Exchange 2003 ?

Freundliche Grüße
Martin Ammerschuber

#2

Hallo Martin,

hier ein kleiner Hinweis:

Verweis auf „Microsoft Outlook x.x Object Library“ setzen.

Function Move(DestFldr As MAPIFolder) As Object

Mitglied von Outlook.MailItem

Du müsstest sozusagen jedes „MailItem“ in einer Schleife einzeln verschieben.

ODER

Verweis auf „Microsoft CD0 x.x Library“ setzen.

Function MoveTo(FolderID, [StoreID])

Mitglied von MAPI.Message
Die Methode ‚CopyTo‘ verschiebt ein Objekt ‚Message‘ in einen anderen Ordner.

greets from michL (vienna)