halli hallo ich bins wieder
und wieder habe ich eine frage
wie kann ich mit hilfe von vba überprüfen ob ein ordner mit namen XY im ordner posteingang existiert
im outlook hilfe steht fast nichts drine
hilfe

Hi,

alle Deine Threads die Du eröffnet hast bezogen sich auf das Ansprechen von Objekten in Outlook. Schau dir bitte erst mal diesen Thread an und versuche zu verstehen was da passiert, bevor du noch mehr Threads eröffnest !!!!


bye ...

LaMa5.

hi LaMa5
ich bewundere immer wieder deine wissen
ich will auch so ein kenner sein;)
und noch dazu du hast recht (eine frau davon abgesehen hat immer recht;) ) und ich habe das gemacht befohr ich meine frage gestellt habe...

warscheinlich meine frage nicht ganz richtig gestellt
, hier ist noch ein versuch;)


ich habe mit vba für otlook 2002 eine "erweiterung" 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 ?
und wenn ordner der mit absendername in neuem mail übereinstimmt schon existiert muss mail da gespeichert werden, wenn nicht erst ein neue ordner mit absendername erstellen und dann mail da rein speichern...


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



ist es jetzt besser...?

was bedeutet fehlermeldung laufzeitfehler 13
typen unferträglich
mfg


<font color="red"> Edit by LaMa5: Keine Doppelpostings!!! </font>

Hi,

hast Du Dich mal mit dem Outlook Objekt beschäftigt??
Dann wüsstest Du: das jeder Ordner, jede Mail, jeder Termin, jede Aufgabe usw. ein Objekt darstellt.

1.)
Die einzige Möglichkeit um zu ermitteln ob ein Objekt existiert, ist dieses Objekt zu suchen. Dafür könntest
Du zum Beispiel alle Objekte im Objekt Posteingang durchgehen und überprüfen ob es ein Ordner ist und
welchen Namen er trägt. Schon hast Du ermittelt ob ein Ordner existiert.

2.)
Laufzeitfehler 13 bedeutet Du hast den Wert einer (z.B.) Long Variablen eine Byte Variablen zugewiesen.
Du hast also irgendwo 2 unterschiedliche Variablentypen die denselben Wert tragen sollen.


bye ...

LaMa5.

P.S. Bemühe Dich bitte um eine etwas bessere Rechtschreibung, es macht keinen Spass Texte zu
lesen die vor Schreibfehlern nur so strotzen.

danke fürs tipp
hier ist die funktionsfächige variant
(für den fahl dass noch jemand es braucht)



Edit by Agent: VB-Tag eingefügt