title image


Smiley Re: I got it !!
Hallo pmo,



die blöden Fehler hatte ich anfangs auch.



Hier noch ein kleiner Tip, wenn du mal nur einen Teil der Mail's verschieben willst.

Im Script markiere ich die Mails, indem ich die Eigenschaft Kategorie nutze. Wird bei mails nochmalerweise nicht genutzt.



Dim olItms As Outlook.Items

Dim OK_Itms As Outlook.Items



olItms.Item(i).Categories = "DruckOK"

olItms.Item(i).Save()



und zum Schluss verschiebe ich alle.



'Verschieben aller mails mit Kategorie=DruckOK in Ordner "DruckOK"

OK_Itms = olItms.Restrict("[Kategorien] = 'DruckOK'")

'zum testen nicht verschieben

If OK_Itms.Count > 0 Then

Do Until OK_Itms.Count = 0

OK_Itms.Item(OK_Itms.Count).Move(DruckOK)

Loop

End If



Gruß aus dem sonnigen, kalten Cottbus



Carmen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: