Thema Datum  Von Nutzer Rating
Antwort
Rot Verschieben von Mails vom IMAP server
 11.08.2008 16:59:43 nihau
NotSolved

Ansicht des Beitrags:
Von:
nihau		 Datum:
11.08.2008 16:59:43		 Views:
1800		 Rating:
     
Antwort:
  Ja
Thema:
Verschieben von Mails vom IMAP server
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ß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Verschieben von Mails vom IMAP server
 11.08.2008 16:59:43 nihau
NotSolved