Notesdocument.send (attachForm --> Text+Form übergeben)

[Caleb666]

Hallo,

über folgenden Code wird derzeit ein bestehendes Dokument ("doc") an einen definierten Empfänger gesendet.

Dim UIWS As New NotesUIWorkspace
Set UIDoc=UIWS.CurrentDocument
Set Doc=UIDoc.Document
Call Doc.Save (True, False, True)
Doc.Subject= "Wiedervorlage" &",  " & Doc.Name(0)
Call Doc.Send(True, Doc.Name_Erfasser)
Call UIDoc.Close

Neben dem aktuellen Dokument ("doc") sowie dem Betreff möchte ich gerne einen kurzen Infotext (der sich ausserhalb der Form "doc" befindet) in der Email mitverschicken.

------------
Bsp:
Betreff: Wiedervorlage xxx

Anbei finden Sie die gewünschten Informationen (Infotext)

Form "doc" (CurrentDocument)
----------------

Wie führe ich den Infotext und die Form "doc" am besten zusammen, so dass beides
an die send-Methode als attachForm übergeben werden kann?

Vielen Dank!

[Peter Klett]

Erstell ein neues Dokument per Script, fülle Form, SendTo und Subject, lege ein Richtextitem "Body" an und setze dort den Text und einen Doclink rein (NotesRichtextItem.AppendDoclink). Nur dieses temporäre Dokument sendest Du ohne es zu speichern. Das andere speicherst Du nur.

[Caleb666]

Danke für die schnelle Antwort.

Habe bei der Umsetzung noch ein paar Schwierigkeiten.
Wäre es so in etwa richtig?

Dim doc1 As NotesDocument
doc1.Form = "Memo"
doc1.Subject =  "Wiedervorlage" &",  " & Doc.Name(0)
doc1.SentTo = Doc.Name_Erfasser

Dim body As NotesRichTextItem(doc1, "Infotext")
Call body.appendText("Anbei finden Sie die gewünschten Informationen")
Call body.addNewLine(3)
Call body.AppendDocLink(Doc)
Call doc1.Send(True)

[koehlerbv]

Wenn Du doc als Link mitschickst, warum willst Du noch die Maske mitgeben? Das Senden von Dokumenten mit Masken ist nur in in seltenen eine gute Idee.

Bernhard

[Peter Klett]

Dim doc1 As New NotesDocument (db)
doc1.Form = "Memo"
doc1.Subject =  "Wiedervorlage" &",  " & Doc.Name(0)
doc1.SendTo = Doc.Name_Erfasser

Dim body As NotesRichTextItem(doc1, "Infotext")
Call body.appendText("Anbei finden Sie die gewünschten Informationen")
Call body.addNewLine(3)
Call body.AppendDocLink(Doc)
Call doc1.Send(False)

... Das Senden von Dokumenten mit Masken ist nur in in seltenen eine gute Idee.

Das ist es NIE !!

[koehlerbv]

Das ist es NIE !!

Ich wollte den leider gegebenen Fans eine klitzekleine Hintertür offen lassen 

Bernhard

[Caleb666]

Danke für die schnellen Antworten und die Berichtigung.

Bzgl. "Mitgeben von Masken" meint ihr wahrs.: doc1.Form = "Memo" ??

Ist dies überhaupt erforderlich, bzw. was ist die Alternative?

[koehlerbv]

doc1.Form = "Memo" istr natürlich richtig und erforderlich, damit in der Mail-DB das Teil dann mit der richtigen Maske aufgeht.

Das Einbetten von Masken beim Senden war Dein NotesDocument.Send (TRUE)

Bernhard

[Caleb666]

Habe den Code mal ausgeführt, der Empfänger erhält wie gewünscht ein Email.
Der Betreff wird richtig übergeben, die Email (Body) ist jedoch komplett leer
(kein Infotext, keine Form "doc"). Wo könnte der Fehler liegen?


Hier der bisherige Code:

Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc1 As New NotesDocument (db)
doc1.Form = "Memo"
doc1.Subject = "Wiedervorlage" &",  " & Doc.Name(0)
doc1.SendTo = Doc.Name_Erfasser
Dim body As NotesRichTextItem
Set body = New NotesRichTextItem (doc1, "Test")
Call body.appendText("Anbei finden Sie die gewünschten Informationen")
Call body.addNewLine(3)
Call body.AppendDocLink(Doc, DB-Name, "")
Call doc1.Send(False)

[Peter Klett]

Das hatte ich in dem von mir korrigierten Script auch schon übersehen: Wenn Du das Richtextfeld nicht "Body" nennst, wird es wohl auch nicht in der eingegangenen Maildatenbank angezeigt werden können, denn die Maske Memo hat dort weder ein Richtextfeld "Infotext", noch eines mit Namen "Test".

Set body = New NotesRichTextItem (doc1, "Body")

Sowas müsstest Du mit ein bißchen Nachdenken aber auch selber finden ...

[Caleb666]

Bin gerade erst dabei mich in die Notes-Entwicklung einzuarbeiten.

Nun funktioniert alles wie gewünscht!

Vielen herzlichen Dank für Eure Unterstützung!