Dieser Beitrag ist schon älter. Bitte vergewissern Sie sich, dass die Rahmenbedingungen oder der enthaltene Lösungsvorschlag noch dem aktuellen Stand der Technik entspricht.

Einzelne Emails per Makro weiterleiten

Mitglied: Mark41
Hallo, folgendes Problem.

Ich möchte einzelne Emails per Knopfdruck mit einem Makro an eine bestimmte Adresse weiterleiten. Genutzt wird Outlook 2003. Kann mir da jemand einen vorgefertigten VBA Code geben? Bin für jede Hilfe dankbar.

mfg

Content-Key: 67753

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

Ausgedruckt am: 30.11.2021 um 11:11 Uhr

Mitglied: 8644
8644 03.09.2007 um 15:37:18 Uhr
Goto Top
Hi,

hier findest du ein passenden Add-In dazu.

Psycho

P.S. Das Forum hat eine klasse Suchfunktion!
Mitglied: Mark41
Mark41 03.09.2007 um 15:42:45 Uhr
Goto Top
Die hab ich genutzt. Die Add-In Seite hab ich schon gefunden, nur ist nichts passendes dabei was mir bei meinem Problem weiterhilft, welches Add-In meinst du speziell? Ich finde dort nur eines um Termin- und Aufgabenlisten weiterzuleiten, mehr nicht.
Mitglied: 8644
8644 03.09.2007 um 18:02:55 Uhr
Goto Top
Hi,

wurschtel dich mal durch! Die haben ein Add-In, welches eine ComboBox in der Symbolleiste platziert. Über diese Leiste wählst du dann den Empfänger für die Weiterleitung aus. Frag mich jetzt nicht, wied das Teil heisst.

Psycho
Mitglied: Mark41
Mark41 04.09.2007 um 10:41:26 Uhr
Goto Top
Entweder ich bin blind oder das Add-In ist nicht auffindbar. Hat denn keiner einen VBA Code für sowas?
Mitglied: Mark41
Mark41 04.09.2007 um 12:17:08 Uhr
Goto Top
So, hab mich selbst rangesetzt und ein Makro geschrieben, funktioniert wunderbar. Bei Interesse kann ich euch den Code zur Verfügung stellen.

mfg
Mitglied: Foamx
Foamx 06.09.2007 um 16:51:34 Uhr
Goto Top
Hi,
ich würde mich für den Code interessieren
Mitglied: bve
bve 07.09.2007, aktualisiert am 18.10.2012 um 18:32:25 Uhr
Goto Top
Mitglied: Mark41
Mark41 07.09.2007 um 08:41:18 Uhr
Goto Top
Aufgrund des allgemeinen Interesses hier mal der Code ^^



Sub test()


Dim objMail_In As Outlook.MailItem

Dim objMail_Out As Outlook.MailItem



Set objMail_In = ActiveInspector.CurrentItem

Set objMail_Out = objMail_In.Forward



With objMail_Out

.To = "email@domain.de" '<- Hier noch Empfänger eintragen

.Subject = "weitergeleitet: " & objMail_In.Subject

.Send

End With

End Sub


Nicht vergessen den Empfänger einzutragen!
Viel Spaß damit

mfg
Mitglied: 8644
8644 07.09.2007 um 09:04:27 Uhr
Goto Top
Moin!

@Mark41:
ich muß mich wohl bei dir entschuldigen! Aber als ich auf den ursprünglichen Thread geantwortet habe, gab es dieses Add-In noch auf der Seite. Mittlerweile ist es wohl aus dem Programm verschwunden.
Freut mich, dass du es auch so hinbekommen hast!

Psycho
Mitglied: Mark41
Mark41 07.09.2007 um 09:15:41 Uhr
Goto Top
Hi,

kein Problem, habs ja letztendlich doch hinbekommen, das is was zählt, danke für deine Bemühungen!

mfg
Mitglied: sideshowbob100
sideshowbob100 15.11.2007 um 10:01:44 Uhr
Goto Top
Ich habe das Code kopiert und ein Makro erstellt.
Wenn ich dieses jedoch starte, wird der folgende Fehler ausgegeben.

Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt.

Beim Debuggen werdne die Set Zeilen markiert.
Was mache ich falsch?
Mitglied: Mark41
Mark41 20.11.2007 um 12:10:59 Uhr
Goto Top
Hallo,

nutzt du zufällig Kaspersky Antivirensoftware? Gab mal diverse Probleme damit, wüsste sonst auch nicht worans liegen könnte

mfg
Mitglied: RainerZufalll
RainerZufalll 10.11.2015 um 14:26:43 Uhr
Goto Top
Hallo zusammen,

gibt es zu der von 'sideshowbob100' dargestellten Problematik einen Lösungsansatz?
Bei mir ist es dasselbe Problem: 'objMail_In' & 'objMail_Out' werden nicht gesettet..
'Kaspersky Antivirensoftware' wird meinerseits nicht genutzt.
Freue mich über jede Rückmeldung!

Mit freundlichem Gruß
Mitglied: 122990
122990 10.11.2015 aktualisiert um 14:35:31 Uhr
Goto Top
Zitat von @RainerZufalll:
gibt es zu der von 'sideshowbob100' dargestellten Problematik einen Lösungsansatz?
Hier reinschauen:
https://www.administrator.de/forum/outlook-2010-weiterleiten-makro-betre ...

Set objMail_In = ActiveInspector.CurrentItem
Das obige funktioniert nur wenn man ein Mail in einem weiteren Fenster "geöffnet", und nicht nur "markiert" hat! Ansonsten muss man über das Explorer-Objekt und die "Selection" gehen.

Gruß grexit
Mitglied: RainerZufalll
RainerZufalll 10.11.2015 um 14:57:28 Uhr
Goto Top
Moin Grexit,

erstmal vielen Dank für die schnelle, kompetente Rückmeldung!
Hab ich soweit verstanden, leider fehlt mir das VBA-Knowhow um die Selection einzupflegen.

Folgend habe ich meine Zeilen nochmal notiert.

Sub test(oMail As MailItem)

Dim objMail_In As MailItem
Dim objMail_Out As MailItem

Set objMail_In = ActiveInspector.CurrentItem
Set objMail_Out = objMail_In.Forward

With objMail_Out
.To = "x@y.com" 'Empfänger
.Subject = "Test"
.Send
End With

End Sub
____________________________________________

Case "Explorer"
Set myItem = ActiveExplorer.Selection.Item(1)

=> Müssen dies eingepflegt werden?


Viele Grüße
Mitglied: RainerZufalll
RainerZufalll 10.11.2015 um 15:37:15 Uhr
Goto Top
Moin,

bin schon mal ein Stück weitergekommen!
Es werden E-Mails weitergeleitet. Leider noch nicht die Mail, durch die die Regel aufgerufen wird das Skript auszuführen.

Code:

Sub test(oMail As MailItem)

Dim objMail_In As MailItem
Dim objMail_Out As MailItem


Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set myItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set myItem = ActiveInspector.CurrentItem
Case Else
End Select


Set objMail_In = myItem
Set objMail_Out = objMail_In.Forward

With objMail_Out
.To = "x@y.com" 'Empfänger
.Subject = "Test"
.Send
End With

End Sub
Mitglied: 122990
122990 10.11.2015 aktualisiert um 19:20:32 Uhr
Goto Top
Öhm von der Verwendung per Regel war kein Wort erwähnt ... kann ja so auch nicht funktionieren denn du verwendest ja das Mail-Object das per Parameter übegeben wird garnicht...
Gruß grexit
Mitglied: RainerZufalll
RainerZufalll 19.11.2015 um 16:05:18 Uhr
Goto Top
Moin,

vielen Dank soweit! Sorry für die späte Antwort!
Jetzt läuft das automatische Weiterleiten ohne Probleme.
Eine Frage hätte ich aber noch: Kann man beim automatischen Verschieben (Move-Funktion) einer Mail den Zielordner mit einer Pfadbezeichnung angeben?
Etwa



oder Ähnliches ?

Danke im Voraus!
Mitglied: 122990
122990 19.11.2015 aktualisiert um 17:38:37 Uhr
Goto Top
Eine Frage hätte ich aber noch: Kann man beim automatischen Verschieben (Move-Funktion) einer Mail den Zielordner mit einer Pfadbezeichnung angeben?
Nein machst du so:
usw. jeder Ordner hat sein eigenes Folders-Objekt damit kannst du also beliebig in Unterordner verzweigen.
Mitglied: RainerZufalll
RainerZufalll 20.11.2015 um 10:47:43 Uhr
Goto Top
Soweit implementiert!
Nochmal das Darzustellende kurz kommentiert: In einem Sammelpostfach treffen Mails eines bestimmten Absenders ein & sollen weitergeleitet und verschoben werden. (Regel bei Eintreffen Mail -> Skript ausführen)
Zunächst wird ein Wert aus der Betreffzeile ausgelesen welcher Bestandteil der Mail-Adresse ist, an die die Mail weitergeleitet wird.
Entsprechend wird die Mail weitergeleitet und anschließend soll die Mail in ein Unterordner des Sammelpostfachs verschoben werden.

Habe bereits den Code an meinem "normalen" Postfach getestet - lief einwandfrei.
Beim Sammelpostfach wird die Betreffzeile zwar gekürzt, jedoch keine Mails weitergeleitet oder gar verschoben.

Ne Idee?



Mitglied: 122990
122990 20.11.2015 aktualisiert um 10:51:39 Uhr
Goto Top
Die ist schon klar das du den Thread hier gekapert hast und das ohne den TO zu fragen ?!
Neue Fragen neue Threads, ist das so schwer ? Danke.
Mitglied: RainerZufalll
RainerZufalll 20.11.2015 um 10:56:56 Uhr
Goto Top
Mein Fehler!
Heiß diskutierte Beiträge
question
AD Server von 2012 R2 auf Server 2019 R2 hochgesetzt. Domänenlevel noch 2012 Aber nun geht kein LDAPS . LDAP geht gelöst itititVor 1 TagFrageWindows Server18 Kommentare

Hallo zusammen, wir haben die Server 2012 R2 mit Server 2019 R2 ersetzt. Neue Server kein Inplace. Die neuen DCs haben IP und Name gleich ...

question
Euro Zeichen geht nicht mehr gelöst GwaihirVor 1 TagFrageWindows 1014 Kommentare

Hallo zusammen, bei einem User geht das Euro-Zeichen nicht mehr. Er kann es nur noch über Copy&Paste aus der Zeichentabelle einfügen. Auch STRG+ALT+E klappt nicht. ...

question
Bitlockerpartition versehentlich gelöscht Läppi findet nach Partitiosformatierung mbr gpt die Partition nicht wiederPCChaosVor 1 TagFrageWindows 1010 Kommentare

Hallo zusammen, Ich habe ein riesen Problem, das mir sonst einfach erschien. Ich hatte eine Bitlocker Partition D: auf meinem C: Laufwerk installiert. Weil Windows ...

question
Mini PC lüfterlossurvial555Vor 1 TagFrageHardware8 Kommentare

Hallo zusammen, ich bin auf der Suche nach einer guten Lösung über System für staubintensive UmgebungenIch setzte zur Zeit 4 PCs in einem Lagerumfeld ein, ...

question
Dauernd gesperrter User in der ADChristianIT2021Vor 1 TagFrageWindows Server3 Kommentare

Hallo zusammen, Ich habe ein riesen Problem ich habe einen User der wird immer wieder gesperrt. Über die Eventlgs habe ich schon herausgefunden aus welcher ...

question
RDS 2019 - Excel2019 öffnet Dateien sehr langsam gelöst pr3adusVor 1 TagFrageWindows Server15 Kommentare

Guten Tag, ich habe ein Problem bei einem meiner Kunden: seit kurzem verwendet der Kunde meine RDS-Farm. Hier haben wir 2 RDS-Hosts und ein RDS-GW ...

question
Online Kalender gesuchtStefanKittelVor 1 TagFrageInternet8 Kommentare

Hallo, ein Kunde von mir sucht einen Online-Kalender zur Raumreservierung. Keine Datenschutzrelevanten Informationen. Es geht um 3-4 Besprechungsräume in einem Gebäude wo mehrere Firmen sind. ...

question
IMAP - Office365 gesperrt?NulliHBVor 1 TagFrageExchange Server15 Kommentare

Moin Zusammen Ich hoffe ich bin hier richtig :) Es geht um Office365 Exchange / Sicherheitseinstellung Ein frischer Tenant Und ich möchte auf die eine ...