Domino 9 und frühere Versionen > ND6: Entwicklung

Mail-Weiterleitung

(1/2) > >>

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

--- Ende Code ---

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

--- Ende Code ---
Ich habe sie auch schon in

--- Code: ---Call doc.SaveMessageOnSend(false)

--- Ende Code ---
umgeschrieben, aber ich bekomme immer eine Fehlermeldung...

Navigation

[0] Themen-Index

[#] Nächste Seite