Hallo WWWler,
ich möchte in Outlook ein Makro auf eine Symbol legen,
das die geöffnete Nachricht IMMER an [email protected]
weiterleitet, also mit Anhängen.
Ist das nicht relativ leicht zu realisieren, wenn man
sich mit VB auskennt? Würd mich freuen, wenn mir jemand
helfen könnte und endlich diese Kontaktblätterei entfällt.
Danke + Gruß
Hooky
Wieso machst Du das nicht mit dem Ragelasystenten?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
OT
Wieso machst Du das nicht mit dem Ragelasystenten?
Wie sollte das möglich sein?
Ich will ja nicht jede Nachricht weiterleiten, sondern immer
die gerade gelesene, aber auch nicht jede, an [email protected].
Hallo WWWler,
Ist das nicht relativ leicht zu realisieren, wenn man
sich mit VB auskennt? Würd mich freuen, wenn mir jemand
helfen könnte und endlich diese Kontaktblätterei entfällt.
Nicht ganz so leicht, wie man meinen könnte. Ich habe mal etwas ähnliches erstellt und das sieht so aus:
Sub replying()
'Fehlerbehandlung
On Error Resume Next
'Object Variablen für die Mailansicht
Dim obj_curitem
Dim obj_newitem
'Object Variablen für die Inbox-Ansicht
Dim obj_Selection
Dim obj_curfolder
Dim obj_msgitems
'Objekt auf das Aktuelle Item erstellen
Set obj_curitem = Outlook.ActiveInspector.CurrentItem
'Es ist kein fehler aufgetreten
If Err.Number = 0 Then
'Object auf ein neues Item erstellen
Set obj_newitem = obj_curitem.reply
'Informationen modifizieren
obj_newitem.SentOnBehalfOfName = „[email protected]“
obj_newitem.CC = „[email protected]“
'Mail anzeigen
obj_newitem.display
Else
'Der selection die aktuelle Mailauswahl zuweisen
Set obj_Selection = Outlook.ActiveExplorer.Selection
'Wenn es eine markierte Mail gibt
If obj_Selection.Count > 0 Then
'Alle markierten Mails durchlaufen
For Each obj_curitem In obj_Selection
'Objekt auf eine neue Mail erstellen
Set obj_newitem = obj_curitem.reply
'Informationen modifizieren
obj_newitem.SentOnBehalfOfName = „[email protected]“
obj_newitem.CC = „[email protected]“
'Die neue Mail anzeigen
obj_newitem.display
Next
End If
End If
End Sub
Ich hoffe das hilft dir etwas weiter …