kopieren und/oder verschieben von E-Mails

23/06/2008 - 15:21 von Andreas Hess | Report spam
Tach auch.

ich hab ein Makro, mit dem ich eine markierte E-Mail (OL2007) in einen
Ordner verschieben kann.
Jetzt soll das Makro um eine Funktion erweitert werden, mit der diese
markierte E-Mail zunàchst in den Ordner A kopiert werden soll und dann
in Ordner B verschoben werden soll...
Ich hab versucht, das objItem.Move durch objItem.Copy zu ersetzen,
bringt aber irgendwie kein Erfolg...
Wo liegt mein Fehler???

Code:

Sub IfNoSPAMMoveMailTo()

On Error Resume Next

Set objFolder01 Outlook.Session.Folders("... .Ordner A")
Set objFolder02 Outlook.Session.Folders("... .Ordner B")

For Each objItem In Outlook.ActiveExplorer.Selection
Call objItem.Copy(objFolder01)
Call objItem.Move(objFolder02)
Next

Set objItem = Nothing
Set objFolder01 = Nothing
Set objFolder02 = Nothing

End Sub

Code_Ende

Weiß jmd Rat? Danke für Antworten schon jetzt!

Grüße,
Andreas
 

Lesen sie die antworten

#1 Michael Bauer [MVP - Outlook]
24/06/2008 - 08:15 | Warnen spam
Am Mon, 23 Jun 2008 06:21:15 -0700 (PDT) schrieb Andreas Hess:



Tach auch.

ich hab ein Makro, mit dem ich eine markierte E-Mail (OL2007) in einen
Ordner verschieben kann.
Jetzt soll das Makro um eine Funktion erweitert werden, mit der diese
markierte E-Mail zunàchst in den Ordner A kopiert werden soll und dann
in Ordner B verschoben werden soll...
Ich hab versucht, das objItem.Move durch objItem.Copy zu ersetzen,
bringt aber irgendwie kein Erfolg...
Wo liegt mein Fehler???

Code:

Sub IfNoSPAMMoveMailTo()

On Error Resume Next

Set objFolder01 > Outlook.Session.Folders("... .Ordner A")
Set objFolder02 > Outlook.Session.Folders("... .Ordner B")

For Each objItem In Outlook.ActiveExplorer.Selection
Call objItem.Copy(objFolder01)
Call objItem.Move(objFolder02)
Next

Set objItem = Nothing
Set objFolder01 = Nothing
Set objFolder02 = Nothing

End Sub

Code_Ende

Weiß jmd Rat? Danke für Antworten schon jetzt!

Grüße,
Andreas



Hallo Andreas,

Item.Copy gibt Dir ein neues Item zurück, eben die Kopie. Die kannst Du dann
per Move in der Zielordner verschieben.

Viele Gruesse
Michael Bauer - MVP Outlook

: VBOffice Reporter für Datenanalyse & Berichte
: Outlook-Kategorien? Category Manager ist die Lösung
: <http://www.vboffice.net/product.html?pub=6>

Ähnliche fragen