überprüfen ob ordner existiert

gugenot

halli hallo
eine frage oder gleich zwei Augenzwinkern

ich habe mit vba für otlook 2002 eine sache gemacht um die ankommende mail automatisch nach absender überprüfen , dann ein ordner im posteingang mit absender name erstellen und mail da rein speichern...

beim ersten mall läuft es prima

nur wenn ordner schon da ist kriege ich fehler meldung

meine frage wie kann ich überprüfen ob ordner schon da ist

wenn es da ist muss da mail rein wenn nicht ein neue ordner mit absendername erstellen und mail da rein..

hier ist quellcode:

Sub Ordner()
Dim i As Integer
Dim j As Integer
Dim oMail As Object

Set myOlApp = CreateObject("Outlook.Application")
Set MyNameSpace = myOlApp.GetNamespace("MAPI")
Set myinbox = MyNameSpace.GetDefaultFolder(olFolderInbox)
Set MyItems = myinbox.Items
If olFolderInbox > 0 Then
i = 1
j = myinbox.Items.Count
Do While j > 0
Set oMail = myinbox.Items(j)
If Not myNameFolder.Exist Then
Set myNameFolder = myinbox.Folders.Add(oMail.SenderName)

Set myitem = MyItems.Find("[SenderName] ='" & myNameFolder & "'")

While TypeName(myitem) <> "Nothing"
myitem.Move myNameFolder
Set myitem = MyItems.FindNext
j = j - 1
Wend
Loop

Else
MsgBox "Posteingang ist leer"
End If
End Sub

bitte bitte helft mir jemand

für jeder tipp und hilfestellung bedanke ich mich im voraus
mfg

gugenot

jetzt andere frage..
die mit erste frage in verbindung steht...
hier erst die quelcode:

Sub Ordner()
Dim i As Integer
Dim j As Integer
Dim oMail As MailItem
Dim schonda As Boolean
schonda = False
Dim myNameFolder As Variant
Dim name As Variant

Set myOlApp = CreateObject("Outlook.Application")
Set MyNameSpace = myOlApp.GetNamespace("MAPI")
Set myinbox = MyNameSpace.GetDefaultFolder(olFolderInbox)
Set MyFolder = myinbox.Folders
Set MyItems = myinbox.Items

If olFolderInbox > 0 Then
i = 1
j = myinbox.Items.Count
Do While j > 0
Set oMail = myinbox.Items(j)
'************************
For Each fld In myinbox.Folders
If fld.name = oMail.SenderName Then
schonda = True
'Set myitem = MyItems.Find("[SenderName] ='" & fld.name & "'")
myNameFolder = fld.name
Exit For
End If
Next
If Not schonda Then
'***********************
Set myNameFolder = myinbox.Folders.Add(oMail.SenderName)
End If
Set myitem = MyItems.Find("[SenderName] ='" & myNameFolder & "'")

While TypeName(myitem) <> "Nothing"
myitem.Move myNameFolder
Set myitem = MyItems.FindNext
j = j - 1
Wend

Loop
Else
MsgBox "Posteingang ist leer"
End If
End Sub

die code funktioniert beim erstem lauf ganz gut
nur wenn der ordner schon existiert (schonda ist) kriege ich ein fehlermeldung im satz: myitem.Move myNameFolder
und zwar: fehlermeldung 13: typen unferträglich
ich glaube ich weis wo das problem liegt
problem liegt in diesem satz:
myNameFolder = fld.name
myNameFolder hat typ Variant
fld.name auf meine manung nach String
und hier ist meine frage
wie kann ich die beide typen gleich machen
damit es zu keinerlei kollision mehr kommt?
hilft mir jemand? unglücklich