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

Frage Microsoft Outlook & Mail

Mitglied: Mark41

Mark41 (Level 1) - Jetzt verbinden

03.09.2007, aktualisiert 18.10.2012, 13400 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:
http://www.administrator.de/frage/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
VB for Applications
Emails weiterleiten mit Regel oder makro
Frage von SkoechlingVB for Applications11 Kommentare

Hallo zusammen. Wir haben unser Faxgerät so programmiert das es keine faxen mehr ausdruckt sondern uns emails generiert und ...

Outlook & Mail
Makro - Automatisches Weiterleiten und Verschieben von Mails
gelöst Frage von RainerZufalllOutlook & Mail

Moin zusammen, ich habe eine Frage zum automatischen Weiterleiten&Verschieben von Mails per VBA-Makro. Nochmal das Darzustellende kurz kommentiert: In ...

E-Mail
GMX Emails ohne Spam weiterleiten
gelöst Frage von SchaakeE-Mail5 Kommentare

Hallo, ich habe eine Email Adresse bei gmx.de und leite diese auf meinen icloud.com Account um. Ich bezahle bei ...

Exchange Server
Bestehende eMails autoamatisch weiterleiten
gelöst Frage von metal-shotExchange Server22 Kommentare

Hallo Ich stehe vor einem Problem. Eine Kollegin ist seit geraumer Weile krank. Nun kam der Auftrag ihre eMails ...

Neue Wissensbeiträge
Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 13 MinutenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 14 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 18 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 18 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte14 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...