Forums Neueste Beiträge
 

.net 2003 & Outllok 2000 Move Item

11/01/2008 - 21:24 von Klaus | Report spam
Hallo Zusammen,

in der MSDN Libary habe ich folgenden Codeschnipsel gefunden:

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Mike Nash'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend

Nun versuche ich krampfhaft das für .Net 2003 umzusetzten.

Könnt Ihr mir helfen?

Ein herzliches Dankeschön


Klaus
 

Lesen sie die antworten

#1 Peter Fleischer
14/01/2008 - 10:29 | Warnen spam
"Klaus" schrieb im Newsbeitrag
news:
Hallo Zusammen,

in der MSDN Libary habe ich folgenden Codeschnipsel gefunden:

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Mike Nash'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend



Deklariere alle Variablen vom Typ Object; setzte Option Strict Off und
lösche alle Set. Dann müsste es funktionieren.

Viele Gruesse

Peter

Ähnliche fragen