Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

OUTLOOK | FAXe automatisch versenden
Autor: eddy_p
Datum: 04.04.06 16:18
Hallo, hab ein riesen Problem... Ich habe einen Kunden, der SerienFAXe über Outlook verschickt. Wenn die FAXe nich zugestellt werden konnten, schiebt er sie in den "nicht gesendete FAXe" -Ordner. So, gestern wurden die letzen FAXe zugestellt und als ich dann in den "nich gesendete FAXe" -Ordner reingeguckt habe, bekamm ich fast n Herzinfarkt ;) = 1648 nicht gesendete FAXe... Jetzt will ich mich da auch nich hinsetzen und jedes FAX einzeln anklicken -> ANTWORTEN ... auch wollte ich da keinen für 1 EUR Job für einstellen ;) Bin grad dabei mir ein MAKRO zu schreiben... weiss aber nich weiter. SourceCode: --------------------------- Sub Email_Weiterleitung()   Dim i As Integer Dim j As Integer   'Alle Mails durchlaufen i = 1 j = oFolder.Items.Count Do While j > 0 Set oMail = oFolder.Items(j) summe = summe + 1 Loop ------------------------------------------------ Ich weiss beim besten Willen nich, wie ich weiter vorgehen soll. Hab VBA nur in Verbindung mit EXCEL programmiert. OUTLOOK ist für mich eine ganz neue Materie. Wenn mir jemand helfen würde/könnte wär ich sehr dankbar. Ist mir echt wichtig... Mit freundlichen Grüssen Eddy mfg *Eddy*

OUTLOOK | FAXe automatisch versenden

973

eddy_p

04.04.06 16:18

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