Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

Verfolgung starten Optionen

Programm/Regel/Makro bei Posteingang bzw. Ordnerkopie

phoneman / 7 Antworten / Flachansicht Nickles

Hallo,

mein Problem paßt in mehrere Forenthemen. Habe mich für dieses entschieden. Ich würde gerne ein Programm (Makro, Regel) schreiben, das

-wenn bei Outlook 2002 eine neue Mail im Posteingang eingeht, automatisch eine Kopie in einem ganz normalen Windowsordner erzeugt wird

-wenn bei Outlook 2002 eine neue Mail im Posteingang von einem bestimmten Absender, z. B. ebay (ist ja am Absender zu erkennen) eingeht, ebenfalls eine Kopie der Mail automatisch in einem Windowsordner angelegt wird

-wenn in einem bestimmten Windowsordner eine neue Datei kopiert/angelegt wird, ebenfalls automatisch eine Kopie in einem bestimmten Windowsordner angelegt wird

Also 3 ähnliche Aufgaben. Wer kann mir einen Tipp oder eine Anleitung geben. Danke für die Hilfe.

Gruß

Richard

bei Antwort benachrichtigen
Uli M phoneman „Programm/Regel/Makro bei Posteingang bzw. Ordnerkopie“
Optionen

Schau zunächst, ob das mit Regeln hinzukriegen ist.
Ansonsten kämen 2 VBA-Wege in Frage, die im Kern aber dasselbe machen.
Insb. durch den Zugriff auf SenderName wirst du mit der Ol-Sicherheitsabfrage konfrontiert (die geringere => dies also event. besser einer Regel überlassen).
Alle Varianten bedingen den laufenden Client.

Deine 3. Anfrage hat - trotz scheinbarer Ähnlichkeit - nichts mit den anderen zu tun und dürfte zumindest nicht ganz so automatisch möglich sein. Ein Verzeichnis unter NTFS kann zwar überwacht werden, aber Aktionen auslösen??? Hier könnte stattdessen z.B. ein at-Job ansetzen, der ein entspr. Script anstösst.

Ein knappes Bsp. für eine VBA-Prozedur in bel. Ol-Modul. Diese Variante kann dann mit einer simplen Regel kombiniert werden, als Aktion "Script ausführen" wählen (=> es wird der Name der Routine angeboten) und keine zusätzlichen Verschiebereien.

Sub SaveEveryIncomingMail(objMail As MailItem)
' nur für Nachrichten, Besprechungsanfragen müssen ggf. separat behandelt werden
Dim sSave As String
Const ksPfad = "U:\Test\"
sSave = objMail.Subject
' jetzt sollten (v.a. wenn am Betreff angesetzt) alle Checks für gültige Dateinamen folgen, stattdessen hier nur msgbox
' auch können bel. andere Dinge für den Dateinamen herangezogen werden
On Error Resume Next
objMail.SaveAs ksPfad & sSave & ".msg" ' optional + Dateityp
If Err 0 Then
MsgBox "Fehler beim Versuch, die Nachricht " _
& Chr(34) & objMail.Subject & Chr(34) & " ins Dateisystem zu speichern!", vbExclamation, "SaveEveryIncomingMail"
End If
End Sub

Zu den Ol-Geschichten s. event. auch MS, z.B.:
http://support.microsoft.com/default.aspx?scid=kb;en-us;235852&Product=out
http://support.microsoft.com/default.aspx?scid=kb;en-us;306108&Product=out

bei Antwort benachrichtigen
Danke Uli für die Antwort. Leider verstehe ich nur Bahnhof. Bisher habe ich ... phoneman
Nun weiss ich natürlich auch nicht, wie ich deinen Zug anschieben soll. ... Uli M
Vielen Dank. Das mit den Mail funkioniert soweit. Posteingang wird ... phoneman
Jetzt hab ich aber mal eine Frage: Posteingang wird verglichen - Absender ... Uli M
Hallo, ja die Mails sind immer vom selben Absender, der auch im Adressbuch ... phoneman
Das ist dann ein anderer Filter beim Adressbuch-Filter geht nämlich nur 1 ... Uli M