Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Outlook 2003 Emails per VBA Script automatisch weiterleiten
Gehe zu Seite 1, 2  Weiter
zurück: If CreateObject---strfullpath exist aufsteigend nummerieren. weiter: Mails per VBA weiterleiten und Betreff ändern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
slideracer65
Neuling


Verfasst am:
24. Jul 2007, 07:01
Rufname:

Outlook 2003 Emails per VBA Script automatisch weiterleiten - Outlook 2003 Emails per VBA Script automatisch weiterleiten

Nach oben
       Version: Office 2003

Liebe VBA Profis, ich habe folgendes Problem: Ich möchte Emails, die ich in Outlook 2003 über einen Exchange Server empfange an eine externe Email Adresse weiterleiten. Die Weiterleitungsadresse ist nicht im Exchange Server hinterlegt und ich habe keine administrativen Rechte darauf, so dass die Weiterleitung über Regeln nicht funktioniert. Ich habe aber kein Problem damit, meinen Arbeitsplatz PC ständig laufen zu haben und Outlook ständig geöffnet zu haben. Ich stelle mit also vor die Weiterleitung per VBA Makro in Outlook selbst ablaufen zu lassen. Dazu soll das Makro unmittelbar nach Eintreffen neuer Mails diese an den im Makro eingetragenen Adressaten weiterleiten. Habt Ihr einen netten kleinen Code für mich, der das realisiert? Vielen Dank im Voraus.
AndyGrothe
Softwareentwickler (VB, VBA, VBS, VB.NET)


Verfasst am:
24. Jul 2007, 09:11
Rufname:
Wohnort: 97775 Burgsinn


AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

copiere folgenden code in "DieseOutlookSitzung" unter <Extras> - <Makro> - <VisualBasicEditor>

Code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
   
    Dim objMail_In As Outlook.MailItem
    Dim objMail_Out As Outlook.MailItem
    Dim aryEntryIDs() As String
    Dim lngCount As Long
   
    'jedes neue MailItem durchgehen
    aryEntryIDs = Split(EntryIDCollection, ",")
    For lngCount = 0 To UBound(aryEntryIDs)
   
        Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
        Set objMail_Out = objMail_In.Forward
       
        With objMail_Out
            .To = "AndyGrothe@P-Serv.de"
            .Subject = "weitergeleitet: " & objMail_In.Subject
            .Send
        End With
       
    Next lngCount
   
End Sub


wenn das Ereigniss "Application_NewMailEx" beim eingang neuer eMails nicht ausgelöst wird, kann es an den sicherheitseinstellungen liegen. unter <Extras> - <Makro> - <Sicherheit> kannst du das einstellen.

viel spass

_________________
Outlook-AddIns die den Büroalltag erleichtern.
Individuelle Erstellung von VBScripten, Makros oder AddIns
slideracer65
Neuling


Verfasst am:
24. Jul 2007, 21:20
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo Andy, vielen Dank für die schnelle Hilfe. Hab es gerade ausprobiert, läuft wie ich es mir vorgestellt hab. Klasse! Jörg
didi1901
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2007, 12:35
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo,
entschuldigt bitte wenn ich mich anhänge.

Ich habe im Prinzip das gleiche Problem, jedoch mit einer Erweiterung.

Ich möchte die Adresse, an die die Weiterleitung erfolgen soll, aus der email auslesen.

Hintergrund ist folgender:
Ich sitze am Arbeitsplatz hinter einem Exchange. Ein Contentfilter blockiert Webmail.

Muss ich nun dringend Tagsüber ne Privatmail versenden, habe ich im Moment null Chance. Deshalb würde ich gerne ne mail an mich privat schicken und mein Outlook zu Hause leitet die Mail an eine in der Mail angegeben Adresse inkl. Anhang weiter. So als käme sie gleich von mir Privat.

Vielleicht verlang ich zuviel. Aber probieren kann ichs ja mal.

Gruß Didi
AndyGrothe
Softwareentwickler (VB, VBA, VBS, VB.NET)


Verfasst am:
08. Aug 2007, 12:52
Rufname:
Wohnort: 97775 Burgsinn


AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

hallo,

grundsätzlich ist das kein problem. du must die emfängeradresse nur irgend wie mit der email versenden. dafür gibt es mehrere lösungen (userproperty, im text, in einer textdatei als anhang, etc. ) du must nur bedenken, das wie in meinem beispiel eine weitergeleitete email ein bischen anders aussieht wie eine original geschriebene email. du müstest als warscheinlich eine komplette neue email erstellen und den betreff, anhänge und den text übernehmen.

_________________
Outlook-AddIns die den Büroalltag erleichtern.
Individuelle Erstellung von VBScripten, Makros oder AddIns
Gast



Verfasst am:
17. Aug 2007, 15:00
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo,

Ist es möglich den Anhang aus der E-Mail herauszulöschen, bevor sie weitergeleitet wird?

LG
Kalle10000
Tastenjunkie
VB-Com-Addin Coder


Verfasst am:
17. Aug 2007, 23:07
Rufname:
Wohnort: um Augsburg rum....

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo Kalle,

ja ist es. In der VBA-Hilfe ist unter MailItem.Forward ein Beispiel hierfür bereits enthalten.

Viel Spaß damit!

-Mike
masp
Neuling


Verfasst am:
21. Aug 2008, 01:36
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2007

Vielen Dank für dieses Weiterleitungsskript. Ich habe mit meinen Laienkenntnissen und Recherchebemühungen versucht das Skript zu erweitern:
Je nachdem an welche Adresse die Email in Outlook eingeht, soll sie an eine andere Email weitergeleitet werden. Bisher werden ja alle Emails an die gleiche Adresse weitergeleitet.
Leider war ich bisher erfolglos und Suche verzweifelt nach einer Lösung Sad Ich wäre demjenigen super dankbar, der mir hier weiterhelfen kann. Hier nochmal das Skript, das ich bisher verwende:

------------
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

Dim objMail_In As Outlook.MailItem
Dim objMail_Out As Outlook.MailItem
Dim aryEntryIDs() As String
Dim lngCount As Long

'jedes neue MailItem durchgehen
aryEntryIDs = Split(EntryIDCollection, ",")
For lngCount = 0 To UBound(aryEntryIDs)

Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
Set objMail_Out = objMail_In.Forward

With objMail_Out
.To = "into27done@photos.flickr.com"
.Subject = "Tags:" & objMail_In.Subject
.Body = "Dies ist eine automatisch erstellte Mail."
.Send
End With
Next lngCount

End Sub

----

Vielen Dank im Voraus für eure Hilfe und viele Grüße,
masp
Tastenjunkie
VB-Com-Addin Coder


Verfasst am:
21. Aug 2008, 21:15
Rufname:
Wohnort: um Augsburg rum....

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hi,

versuchs doch mal damit (Dein Beispiel ergänzt...):
Code:
 With objMail_Out
if objMail_In.To = "123" then
.To = "into27done@photos.flickr.com"
else
.To = "Biersaufen@hicks.de" ' Nicht ernst gemeint! ;-)
End If
.Subject = "Tags:" & objMail_In.Subject

Viele Grüße,

Mike
masp
Neuling


Verfasst am:
22. Aug 2008, 01:12
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

wow, das klappt!! Smile Vielen, vielen Dank, Mike, für deine rasche Hilfe! Viele Grüße!! masp
Gast



Verfasst am:
23. Sep 2009, 14:05
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

hallo,

wenn ich eine lesebestätigung erhalte, bekomme ich eine fehlermeldung
debugger bleibt auf dem folgenden eintrag stehen
Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
kann mir hier jemand weiterhelfen?
gruß
der rudi
thanks
Michael Bauer
MVP Outlook


Verfasst am:
23. Sep 2009, 19:03
Rufname:
Wohnort: Vollersode

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo,

ohne den Text der Fehlermeldung zu kennen, vermute ich, dass es an der Variablendeklaration liegt. Bestimmt hast Du objMail_In As MailItem deklariert, eine Besprechungsanfrage ist aber ein MeetingItem.

Eine Lösung ist, die Variable As Object zu deklarieren.

_________________
Michael Bauer
Tools für Microsoft Outlook
Gast



Verfasst am:
24. Sep 2009, 11:54
Rufname:

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

folgendes habe ich eingerichtet

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

Dim objMail_In As Outlook.MailItem
Dim objMail_Out As Outlook.MailItem
Dim aryEntryIDs() As String
Dim lngCount As Long

'jedes neue MailItem durchgehen
aryEntryIDs = Split(EntryIDCollection, ",")
For lngCount = 0 To UBound(aryEntryIDs)

Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
Set objMail_Out = objMail_In.Forward

With objMail_Out
If objMail_In.Subject = "Registrierungsanfrage" Then
.To = "xx@xx.com"
.Subject = "BITTE REGISTRIERUNG FÜR SHOP PRÜFEN!"
.Send
End If
End With


Next lngCount

End Sub
Michael Bauer
MVP Outlook


Verfasst am:
24. Sep 2009, 14:05
Rufname:
Wohnort: Vollersode

AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Und, hast Du es schon mit meinem Vorschlag probiert?
_________________
Michael Bauer
Tools für Microsoft Outlook
Gast



Verfasst am:
28. Sep 2009, 15:27
Rufname:


AW: Outlook 2003 Emails per VBA Script automatisch weiterlei - AW: Outlook 2003 Emails per VBA Script automatisch weiterlei

Nach oben
       Version: Office 2003

Hallo MB,

nein. Bin bei VBA nicht so im Thema!

gruß
der rudi
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Bekanntmachung: Outlook Mail: Bitte Versionsnummer von Outlook mit angeben !! 1 domin8tor 9436 06. März 2004, 12:42
domin8tor Bitte Versionsnummer von  Outlook mit angeben !!
Keine neuen Beiträge Outlook Mail: Sicherheitseinstellung von outlook verstellen 2 Philippe Sch. 3474 15. Mai 2004, 18:24
Gast Sicherheitseinstellung von outlook verstellen
Keine neuen Beiträge Outlook Mail: Outl.2003 epf-Datei aus Outl. XP importieren wird abgelehnt 2 kraekers 3213 23. Apr 2004, 09:52
Gast Outl.2003 epf-Datei aus Outl. XP importieren wird abgelehnt
Keine neuen Beiträge Outlook Mail: Senden/Empfangen bei Outlook 2003 6 DerMattze 5630 24. März 2004, 23:30
fdsa Senden/Empfangen bei Outlook 2003
Keine neuen Beiträge Outlook Mail: Automatische Verbindung beim Starten von Outlook 2003??? 1 Mulay 5480 18. März 2004, 10:08
domin8tor Automatische Verbindung beim Starten von Outlook 2003???
Keine neuen Beiträge Outlook Mail: Autovervollständigung der E-Mailadresse unter Outlook 2000 3 bendiel 7979 15. März 2004, 14:22
domin8tor Autovervollständigung der E-Mailadresse unter Outlook 2000
Keine neuen Beiträge Outlook Mail: Automatischer Versand mit Outlook oder Outlook Express 1 Otto 3564 10. März 2004, 09:51
domin8tor Automatischer Versand mit Outlook oder Outlook Express
Keine neuen Beiträge Outlook Mail: Outlook Heute - Posteingang 3 Philo_ 3131 09. März 2004, 18:56
domin8tor Outlook Heute - Posteingang
Keine neuen Beiträge Outlook Mail: E-mails kann nicht gelöscht werden 1 Daywalker 2001 787 08. März 2004, 11:08
domin8tor E-mails kann nicht gelöscht werden
Keine neuen Beiträge Outlook Mail: Konten ein- / ausschalten bei Outlook 2003 3 rpdrechsel 3018 03. März 2004, 17:46
domin8tor Konten ein- / ausschalten bei Outlook 2003
Keine neuen Beiträge Outlook Mail: Kann keine Emails empfangen, aber keine Fehlermeldung 9 Kissy 2203 03. März 2004, 16:09
domin8tor Kann keine Emails empfangen, aber keine Fehlermeldung
Keine neuen Beiträge Outlook Mail: Outlook beendet Verbindung wenn ich email lesen will 1 chrisale 889 01. März 2004, 20:57
domin8tor Outlook beendet Verbindung wenn ich email lesen will
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project