Thema Datum  Von Nutzer Rating
Antwort
06.10.2016 09:46:34 Konne
NotSolved
Blau *.pst Datei mit einem bestimmten Ordner erstellen/füllen
 09.03.2017 21:06:16 Kai
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
09.03.2017 21:06:16		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
*.pst Datei mit einem bestimmten Ordner erstellen/füllen

Hallo Konstantin,

zum Verschieben aller E-Mails aus einem Ordner musst Du alle E-Mails im Source-Ordner durchlaufen. Jedoch mit items.count starten und mit step -1 durchlaufen.

 

Option Explicit
'Das Makro verschiebt alle Emails aus dem jeweils aktuellen Ordner in den im Makro definierten Ordner
Sub EmailAusAuswahlOrdnerVerschieben()


'Deklaration der Variablen
Dim myExplorer As Outlook.Explorer
Dim olApp As Object
Dim myItems As Outlook.Items
Dim myItem As Outlook.MailItem
Dim olName As Outlook.Namespace
Dim CurrentFolder As Outlook.Folder
Dim destFolder As Outlook.Folder
'Integer
Dim i As Integer
Dim c As Integer

On Error Resume Next
 

'Festlegung der Objekte / Ordner
Set olApp = CreateObject("Outlook.Application")
Set olName = olApp.GetNamespace("MAPI")
Set CurrentFolder = olApp.ActiveExplorer.CurrentFolder
Set destFolder = olName.Session.Folders("xxx.xxx@xxx.com").Folders("Test")
Set myItems = CurrentFolder.Items
    
    
'Durchlauf aller Emails

For i = myItems.count To 1 Step -1
    Set myItem = CurrentFolder.Items(i)

    'Verschieben der Emails in den Zielordner

        myItem.Move destFolder
        Debug.Print myItem.Class
Next i


End Sub

Ich hoffe das hilft.

 

VG

 

Kai

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
06.10.2016 09:46:34 Konne
NotSolved
Blau *.pst Datei mit einem bestimmten Ordner erstellen/füllen
 09.03.2017 21:06:16 Kai
NotSolved