OUTLOOK Automatisch Mail/FAX Antworten
Antwort-MACRO
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...
mfg
*Eddy*
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...
mfg
*Eddy*
Please also mark the comments that contributed to the solution of the article
Content-Key: 29712
Url: https://administrator.de/contentid/29712
Printed on: April 25, 2024 at 10:04 o'clock
5 Comments
Latest comment
habe dein Problem jetzt zwar verstanden, aber nur bedingt eine Lösung da ich dne Fax Versand mit Outlook nicht genau kenne.
Aber es müsste doch analog zur E-Mail einen Ordner Faxausgang geben, bei Mail heißt der halt PostAusgang.
Geht es nicht alle Faxe in den betrffenden Ordner zu kopieren und dann einfach nochmal zu übertragen????
Aber es müsste doch analog zur E-Mail einen Ordner Faxausgang geben, bei Mail heißt der halt PostAusgang.
Geht es nicht alle Faxe in den betrffenden Ordner zu kopieren und dann einfach nochmal zu übertragen????