Hallo zusammen,
ich habe folgendes Problem: Ich arbeite mit Outlook 2007 und will gerne die gelöschten Nachrichten (werden bei Outlook 2007 als durchgestrichen angzeigt)auf ein anderen Ordner z.B. Archiv verschieben. Dieser Archiv Ordner befindet sich aber als Unterordner im Postfach. Manuell geht das ganz einfach bei Outlook. Nachdem ich die Mail gelöscht habe, braucht man nur auf die rechte Maus zu klicken und schon kann man die gelöschte Mail auf einen beliebigen Ordner verschieben.
Diesen Prozess möchte ich automatisieren. Sprich ich benötige heiru ein Makro. Denn Makro, denn ich bis jetzt geschrieben habe sieht folgendermaßen aus:
Sub VerschiebeNachrichten()
Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objFolder = objInbox.Parent.Folders("Archiv")
If objFolder Is Nothing Then
MsgBox "Ordner existiert nicht!", vbOKOnly + vbExclamation, "Ungültiger Ordner"
End If
For Each objItem In objInbox.Items
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
' WENN ALS GELÖSCHT MARKIERT DANN VVERSCHIEBEN NACH ARCHIV
objItem.Move objFolder
End If
End If
Next
End Sub
Problem bei diesem Code ist, dass der Makro nicht auf auf mein Posteingnag vin meinem IMAP Server greift, sondern auf dem exchange Server.
Ich wäre echt dankabr, wenn mir jemand bei der Vervollständigung behilflich sein würde.
Gruß |