c't 21/06
Public Sub ct_AnhängeAuslagern()
Dim objOrdner As MAPIFolder
End Sub
Fügen Sie nun vor der Zeile „End Sub“ die folgenden Anweisungen in das Makro ein:
Set objOrdner = GetNamespace ("MAPI").GetDefaultFolder(olFolderInbox)
Call AnhängeSeparieren(objOrdner, AddInDlgTitel, True)
Damit landen die Anhänge der ungelesenen Nachrichten des Posteingangsordners auf der Festplatte. Für jeden Unterordner, den Sie bearbeiten wollen, fügen Sie zwei weitere Zeilen ein:
Set objOrdner = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders ()
Call AnhängeSeparieren(objOrdner, AddInDlgTitel, True)
Der Verzeichnisname muss dabei in Anführungszeichen stehen, beispielsweise Folders(„Büro“); Unterordner notieren Sie in der Form Folders(„Büro“).Folders(„KundeA“). Ist der gewünschte Ordner kein Unterordner des Posteingangs, sondern liegt er auf der gleichen Hierarchie-Ebene wie dieser, dann müssen Sie die Verweiszeile ändern:
Set objOrdner = GetNamespace("MAPI").Folders("Persönliche Ordner").Folders()
Sämtliche Ordner, auf die Sie verweisen, müssen Nachrichtenordner sein, dürfen also nur Elemente des Typs „E-Mail und Bereitstellung“ enthalten.
(se)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-321214
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
RSS
