Mail verschieben mit Makro

29/11/2007 - 12:30 von Andreas Hess | Report spam
Hallo zusammen,

ich habe beim Googeln folgenden Code gefunden, mit dem die erste Mail
innerhalb einer Grupppe von markierten Mails in einen Ordner
verschoben wird.

##
Sub MoveMailTo()

Dim objFolder As Object
Dim objItem As Object

On Error Resume Next

Set objFolder = Outlook.Session.Folders("Öffentliche
Ordner").Folders(".")
Set objItem = Outlook.ActiveExplorer.Selection(1)

If Not objItem Is Nothing Then objItem.Move objFolder

Set objItem = Nothing
Set objFolder = Nothing

End Sub
##

Wie schaff ich es (was ist am Code zu àndern), daß nicht nur eine Mail
sondern alle markierten Mails verschoben werden?

Vielen Dank für Antworten!

Grüße, Andreas
 

Lesen sie die antworten

#1 Andreas Hess
29/11/2007 - 13:03 | Warnen spam
Hat sich erledigt, danke trotzdem!

Ähnliche fragen