Mail-Weiterleitung

[das_Moelli]

Hallo Forum...

Ich würde gerne eine Mail über eine selbsterstellte Aktion, immer an eine bestimmte Emailadresse weiterleiten. D.h. wenn ein User den Button (Aktion) betätigt, soll die gerade geöffnete Email + Anhang eine eine Festgelegt Emailadresse gesand werden.

Leider komme ich an dieser Stelle nicht weiter. Wie kann ich das Thema am besten angehen? LotusScript oder JavaScript oder geht es evt viel einfacher als ich es mir vorstelle? 

Viele Grüße Christian

[Barbara]

Hallo Christian,
funktioniert mit Lotus script. In der Klasse Notesdocument mit der "send" Methode. Ändere im Backend den Empfänger, dann klappt es. Allerdings wird ein normales Mail geschickt, heißt, man erkennt am Betreff nicht dass es weitergeleitet wurde. Da muss man halt den Betreff ebenfalls im Backend entsprechend erweitern. Du weißt schon, dass eigene Erweiterungen an der Mailschablone beim nächsten design-refresh verloren gehen?

Gruß
Barbara

[das_Moelli]

hmm, danke für die Reply...

Ich habe das mit der "send" mal probiert... das sa dann so aus

Code

Sub Main()
	
	Dim session
	Dim db
	Dim doc 
    ' Dim name
	Dim item
	   'Dim dir 
	
  'Create Session object (NotesSession)
	On Error Resume Next
	Set session = CreateObject("lotus.notessession")
	
	If session Is Nothing Then
		Msgbox "Could not create Lotus Notes Session!"
		Exit Sub
	End If
	
  'Stelle Verbindung her (Login)
	session.Initialize '################## Optional Password
	
	Set db = session.OpenMailDatabase()
	
	If Not (db Is Nothing) Then
		
		db.open 'Öffne die Datenbank
		
    'Erzeuge ein neues Dokument
		Set doc = db.CreateDocument
		doc.Save False, True 'Speichere es erstmal ab, damit ich darin rumwerkeln kann
		
		Msgbox("bin noch da")
		
		
    'Erzeuge Items:
    'Dieses Item muß erzeugt werden, sonst kann es nicht mit Send weggeschckt werden
		doc.AppendItemValue "Form", "Memo"
		
		doc.AppendItemValue "Subject", "MySubject-Test"
		doc.AppendItemValue "Body", "Hallo xyz, " & Chr(10) & Chr(13) & "es geht..." & Chr(13) & Chr(10) & "naja..."
		doc.Save True, True
		doc.send True, "ID-Name"
		
		
	Else
		Msgbox "Could not find Mail Database!"
	End If
End Sub

Dieses Codewerk habe ich bei Recherchen zu dem Thema gefunden. Doch wo kann ich hier jetzt eine Mail-Adresse eintragen, an die es gesendet werden soll?

Viele Grüße Christian

[LN4ever]

Wie wäre denn die einfachste Variante: eine Aktion, in der du die folgenden Befehler eingibst:

FIELD InheritedReplyTo:="DeineMailadresse@DeineDomaene";
@Command([Compose];"Reply With History");
FIELD SAVEOPTIONS:="0"
@PostedCommand([FileCloseWindow])

Damit erstellst du eine Antwort mit Protokoll, in der dir deine Wunschadresse vorgeschlagen wird. Probier es mal. Eleganter ist es natürlich schon mit Script, aber deine ersten Gehversuche zeigen, daß es wirklich erste Gehversuche sind. Du kannst es natürlich einmal mit dem Code hier als Script in einer Schaltfläche oder Aktion (in einer Maske - du brauchst ein uidoc) probieren. Der wird es auch in den meisten Fällen tun, aber berücksichtigt noch so ein paar Feinheiten (Was passiert mit Empfangsbestätigungen, Verschlüsselungen usw.) nicht vollständig.

Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesuiDocument
Dim doc As NotesDocument
Dim docFW As NotesDocument

Set ws=New NotesUIWorkspace
Set s As New NotesSession
Set db=s.CurrentDatabase
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
Set docFW=New NotesDocument(db)
Call doc.CopyAllItems(docFW,True)
docFW.SendTo="MeineAdresse@MeineDomaene"
docFW.SaveOnSend=False
Call doc.SaveMessageOnSend = False
Call docFW.Send(False)
End Sub

[das_Moelli]

Danke, den Scriptansatz finde ich gut...

Allerdings habe ich bei einer Zeile Probleme

Code

Call doc.SaveMessageOnSend = False

Ich habe sie auch schon in

Code

Call doc.SaveMessageOnSend(false)

umgeschrieben, aber ich bekomme immer eine Fehlermeldung...

[LN4ever]

Die letzten Zeilen müssen natürlich heißen

...
docFW.SendTo="MeineAdresse@MeineDomaene"
docFW.SaveMessageOnSend = False
Call docFW.Send(False)
End Sub