Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Script zum automatischen SPEICHERN von Anlagen bei Posteingang
Autor: Torsten
Datum: 01.08.01 10:32
Folgender Quellcode prüft in bestimmten Zeitabständen, ob neue (in dem Fall ungelesene Mails) vorhanden sind und wenn ja nimmt er die Anhänge und speichert sie in einem Ordner ab und markiert sie danach als gelesen. Dies benötigt einen Timer, dessen Interval man beliebig einstellen kann. Das ganze geht auch irgendwie mit einem Ereignis (siehe Outlook VBA Hilfe) Aber ich weiß nicht ob man das dann auch von VB aus machen kann. Private Sub Timer1_Timer() Set olapp = CreateObject("outlook.application") Set olspace = olapp.GetNamespace("Mapi") Set olfold = olspace.GetDefaultFolder(6) 'Auswahl des Posteingangsordners Set olitem = olfold.Items Set olincome = olitem.Item(1) 'Auswahl des jeweils ersten objekts If olincome.unread = True Then Set olattach = olincome.Attachments For Each anhang In olattach anhang.SaveAsFile "C:\" & anhang.DisplayName 'Ordner Name + Name des Anhangs Next olincome.unread = False End If End Sub

Script zum automatischen SPEICHERN von Anlagen bei Posteinga...	144	Thorsten	02.07.01 21:43
Re: Script zum automatischen SPEICHERN von Anlagen bei Poste...	88	Torsten	01.08.01 10:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen