Domino 9 und frühere Versionen > ND8: Entwicklung

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

(1/3) > >>

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)


--- Zitat von: koehlerbv am 06.09.11 - 16:08:32 ---... Das Senden von Dokumenten mit Masken ist nur in in seltenen eine gute Idee.

--- Ende Zitat ---
Das ist es NIE !!

Navigation

[0] Themen-Index

[#] Nächste Seite