eddyp
Goto Top

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*

Content-Key: 29712

Url: https://administrator.de/contentid/29712

Ausgedruckt am: 19.03.2024 um 05:03 Uhr

Mitglied: brammer
brammer 04.04.2006 um 16:59:24 Uhr
Goto Top
mir ist ehrlich gesagt nicht klar was du damit erreichen wilst...
Mitglied: eddyp
eddyp 04.04.2006 um 17:11:46 Uhr
Goto Top
Hi,

die FAXe sind nich rausgegange, also muss ich die wieder verschicken.
Weil das aber ein Serienfax ist, will ich mich nich hinseten und die jeweiligen FAXnummern
raussuchen um die FAXe noch einmal zu verschicken...

Wenn ein FAX nich angekommen ist, bekomm ich ein Antwortfax, mit dem gleichen Inhalt, was der empfänger bekommen sollte.

Also würde es reichen, wenn ich einfach auf ANTWORTEN klicke und dann auf SENDEN.

hoffe das war etwas verständlicher...
-wenn nich, einfach noch mal schreiben...

Danke für die Mühe...
Mitglied: brammer
brammer 04.04.2006 um 17:37:49 Uhr
Goto Top
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????
Mitglied: eddyp
eddyp 04.04.2006 um 17:57:29 Uhr
Goto Top
aber wie kann ich alle FAXe die eingegangen sind an die Adresse schicken, von welcher die grade gekommen sind?

Wenn ich mehrer makiere, kann ich nich auf ANTWORTEN klicken.

Bin stark davon ausgegangen, dass ich das nur mit einem Makro schaffe.

Der Verlauf ist genau so die mit einer Mail, nur das oben eine FAX-Nummer als Empfänger drin steht.

Hättest du vielleicht einen Source zum Probieren?

Ich weiss nich mehr weiter.
Werde mich wahrscheinlich heute nach per Fernwartung einwählen müssen und die FAXe händisch verschicken ;)

Nochmals danke für jede Antwort...
Mitglied: brammer
brammer 04.04.2006 um 19:25:49 Uhr
Goto Top
wenn der Verlauf der selbe ist wie bei einer E-Mail müsste es doch gehen wenn du alle noch nicht gesendeten Faxe in den Ordner Entwürfe verschiebst und dann einfach alle Faxe markeirst und erneut sendest