Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Einzelne Emails per Makro weiterleiten

Mitglied: Mark41

Mark41 (Level 1) - Jetzt verbinden

03.09.2007, aktualisiert 18.10.2012, 15117 Aufrufe, 22 Kommentare

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
Mitglied: 8644
03.09.2007 um 15:37 Uhr
Hi,

hier findest du ein passenden Add-In dazu.

Psycho

P.S. Das Forum hat eine klasse Suchfunktion!
Bitte warten ..
Mitglied: Mark41
03.09.2007 um 15:42 Uhr
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.
Bitte warten ..
Mitglied: 8644
03.09.2007 um 18:02 Uhr
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
Bitte warten ..
Mitglied: Mark41
04.09.2007 um 10:41 Uhr
Entweder ich bin blind oder das Add-In ist nicht auffindbar. Hat denn keiner einen VBA Code für sowas?
Bitte warten ..
Mitglied: Mark41
04.09.2007 um 12:17 Uhr
So, hab mich selbst rangesetzt und ein Makro geschrieben, funktioniert wunderbar. Bei Interesse kann ich euch den Code zur Verfügung stellen.

mfg
Bitte warten ..
Mitglied: Foamx
06.09.2007 um 16:51 Uhr
Hi,
ich würde mich für den Code interessieren
Bitte warten ..
Mitglied: bve
07.09.2007, aktualisiert 18.10.2012
Bitte warten ..
Mitglied: Mark41
07.09.2007 um 08:41 Uhr
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
Bitte warten ..
Mitglied: 8644
07.09.2007 um 09:04 Uhr
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
Bitte warten ..
Mitglied: Mark41
07.09.2007 um 09:15 Uhr
Hi,

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

mfg
Bitte warten ..
Mitglied: sideshowbob100
15.11.2007 um 10:01 Uhr
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?
Bitte warten ..
Mitglied: Mark41
20.11.2007 um 12:10 Uhr
Hallo,

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

mfg
Bitte warten ..
Mitglied: RainerZufalll
10.11.2015 um 14:26 Uhr
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ß
Bitte warten ..
Mitglied: 122990
10.11.2015, aktualisiert um 14:35 Uhr
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
Bitte warten ..
Mitglied: RainerZufalll
10.11.2015 um 14:57 Uhr
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
Bitte warten ..
Mitglied: RainerZufalll
10.11.2015 um 15:37 Uhr
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
Bitte warten ..
Mitglied: 122990
10.11.2015, aktualisiert um 19:20 Uhr
Ö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...
01.
Sub ForwardMail(objMail As MailItem)
02.
    Dim objForward As MailItem
03.
    Set objForward = objMail.Forward
04.
    With objForward
05.
        .To = "xyz@domain.de"
06.
        .Subject = "Test"
07.
        .Send
08.
    End With
09.
End Sub
Gruß grexit
Bitte warten ..
Mitglied: RainerZufalll
19.11.2015 um 16:05 Uhr
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

01.
Set Folder = Folders.FolderPath (\\x@y.com\Posteingang\Sonstiges)


oder Ähnliches ?

Danke im Voraus!
Bitte warten ..
Mitglied: 122990
19.11.2015, aktualisiert um 17:38 Uhr
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:
set folder = Application.Session.Stores("x@y.com").GetRootFolder.Folders("Posteingang").Folders("Sonstiges")
usw. jeder Ordner hat sein eigenes Folders-Objekt damit kannst du also beliebig in Unterordner verzweigen.
Bitte warten ..
Mitglied: RainerZufalll
20.11.2015 um 10:47 Uhr
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?


01.
Sub Test(oMail As Outlook.MailItem)
02.

03.
 Dim objMail_In           As MailItem
04.
 Dim objMail_Out        As MailItem
05.
 Dim Folder                  As Outlook.MAPIFolder
06.
 Dim SubFolder           As Outlook.Folder
07.
 Dim TestFolder          As Outlook.Folder
08.
 Dim myOlApp             As Outlook.Application
09.
 Dim FolderName       As String
10.
 Dim Ns                        As Outlook.NameSpace
11.
 Dim myEntryID          As String
12.
 Dim myStoreID          As String
13.
 
14.
 
15.
 FolderName = "Sonstiges"
16.

17.
'NDL-Nummer aus Betreffzeile filtern
18.
 Dim arr As Variant
19.
 Dim i As Long
20.
  
21.
'Liste der zu entfernenden Begriffe
22.
 arr = Array("XX", YY")
23.
  
24.
 For i = 0 To UBound(arr)
25.
    oMail.Subject = Replace(oMail.Subject, arr(i), "", , , vbTextCompare)
26.
    Next
27.
    If oMail.Saved = False Then
28.
       oMail.Save
29.
    End If
30.

31.
 Select Case TypeName(Application.ActiveExplorer)
32.
 Case "Explorer"
33.
 Set myItem = oMail
34.
 Case Else
35.
 End Select
36.

37.
 Set objMail_In = myItem
38.
 Set objMail_Out = myItem.Forward
39.
 Set myOlApp = Outlook.Application
40.
 Set Ns = Application.GetNamespace("MAPI")
41.
 Set Folder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(FolderName)
42.
        myEntryID = Folder.EntryID
43.
        myStoreID = Folder.StoreID
44.
 Set Folder = Application.Session.Stores("x@y.com").GetRootFolder.Folders("Posteingang").Folders("Sonstiges")
45.
 
46.
 
47.
 With objMail_Out
48.
 .To = "x" & objMail_In.Subject & "@y.com" 'Empfänger
49.
 .Subject = "XX" & oMail.Subject & "YY"
50.
 .Body = "Anbei der Orginalanhang."
51.
 .Send
52.
 End With
53.
 
54.
 With objMail_In
55.
   .Subject = "XX" & oMail.Subject & "YY"
56.
   .Move Folder
57.
 End With
58.
 
59.
 End Sub
60.
Bitte warten ..
Mitglied: 122990
20.11.2015, aktualisiert um 10:51 Uhr
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.
Bitte warten ..
Mitglied: RainerZufalll
20.11.2015 um 10:56 Uhr
Mein Fehler!
Bitte warten ..
Ähnliche Inhalte
Windows Server

Gruppenrichtlinienvererberung einzeln deaktivieren

gelöst Frage von xbast1xWindows Server4 Kommentare

Hallo zusammen, ich habe eine Haupt OU mit einer Sub OU. Die Sub OU bekommt die GPO von der ...

Microsoft Office

VBA Excel Makro - Serienbrief in Word aus Excel starten und anschließen einzeln speichern

gelöst Frage von abuelitoMicrosoft Office5 Kommentare

Hallo an Alle, ich möchte gerne aus Excel heraus mein Serienbrief starten und die Briefe einzeln speichern. Das bedeutet, ...

Schulung & Training

Ct einzeln als PDF?

gelöst Frage von honeybeeSchulung & Training2 Kommentare

Hallo, vielleicht bin ich einfach zu doof, aber gibt es die derzeit aktuelle c't nicht mehr als PDF? Ich ...

Microsoft Office

Excel-Makro

gelöst Frage von yuki13Microsoft Office7 Kommentare

Hallo Zusammen!! :-) Ich bin nicht so fit in Excel Makros und wollte mich hier erkundigen, ob mir jemand ...

Neue Wissensbeiträge
Windows 10

Windows 10: Cortana und die Suche gehen bald wieder eigene Wege

Information von Frank vor 1 StundeWindows 10

Microsoft hat einen neuen Insider Build von Windows 10 veröffentlicht (Fast Ring, Version 18317), wo die digitale Assistentin "Cortana" ...

Humor (lol)
Und wie seid Ihr gegen Cyberattacken gewappnet?
Information von DerWoWusste vor 1 TagHumor (lol)6 Kommentare

aber wo ist der Hammer? :-)

Sicherheit
Ein weiterer Microsoft-Stirnklatscher
Information von DerWoWusste vor 2 TagenSicherheit8 Kommentare

Habe gerade einen Artikel zu einem Sicherheitsproblem gefunden, welches mir zu seiner Zeit (gepatcht 2015) wohl durchgerutscht ist. Es ...

Windows 10
Upgradepfade Windows 10 LTSC
Erfahrungsbericht von Datenreise vor 2 TagenWindows 10

Nur eine kurze Info, für diejenigen, die es interessiert, da es hierzu im Netz aus nachvollziehbaren Gründen nicht allzu ...

Heiß diskutierte Inhalte
Microsoft
SFirm 4.0 auf Terminalserver startet für jeden angemeldeten Benutzer diverse Dienste
Frage von Frank84Microsoft25 Kommentare

Hallo zusammen, wir verwenden Sfirm 4.0 auf einem Terminalserver (der SQL Server ist auf einem separaten Server), das Problem ...

Windows 10
VM wächst schnell von 14 auf 35 GB an - warum?
Frage von degudejungWindows 1018 Kommentare

Hallo, ich bin ein Freund schlanker VMs und setze daher gerne mit dem Erscheinen einer neuen Win10 Version - ...

Internet
Google-Suchergebnisse, Schnelleinblendung, woher kommt der Inhalt?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Ich bin der Systembetreuer einer kleinen Gemeinde in Süddeutschland. Wir betreiben auch eine Leihbücherei. Eine Kundin hat letzten ...

Switche und Hubs
Kaufempfehlung für einen 24-Port Layer 3-Switch mit 1 GBits
Frage von pianoman82Switche und Hubs15 Kommentare

Hallo! Ich bin aktuell auf der Suche nach einem bezahlbaren Layer-3-Switch mit 24 Ports. Mit bezahlbar meine ich nach ...