Mail verschieben mit Makro

29/11/2007 - 11:51 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 Oliver Vukovics
29/11/2007 - 11:57 | Warnen spam
"Andreas Hess" schrieb im Newsbeitrag
news:
Hallo zusammen,



Hallo Andreas,

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



Doofe Frage, aber warum markierst Du nicht Deine E-Mails, klickst auf die
Rechte Maustaste und wàhlst "in Ordner verschieben" und wàhlst dann den
Ordner aus?

Oliver Vukovics
Outlook im Netzwerk ohne Exchange: Public ShareFolder
Synchronisation für Outlook/Exchange: Public SyncTool
http://www.publicshareware.de

Ähnliche fragen