dokument -> attachment

[Rootine]

Hi Leute,

ich brauch mal wieder (dringend) Eure Hilfe

folgende Situation: Ich habe eine db, in der ganz simple Dokumente erstellt werden. Diese Maske besitzt ein paar Bildchen und ein RichtTextFeld in dem der User die Info eingibt. In Info muss der Text formatiert sein. Anschließend wird ein Mail mit DocLink an alle NotesUser geschickt. Soweit so gut. Jetzt habe ich allerdings leider eine Mischumgebung, und es müssen auch Emails an nicht Notes User verschickt werden. Diese sollen den Text in der gleichen Formatierung samt den bunten Bildchen wie die Notes User zur Verfügung gestellt bekommen.

Wie bringe ich das hin? Kann ich das Dokument per Agenten (oder sonst wie) in ein Attachment umwandeln lassen und das dann per Button schicken lassen und vor allem wie stelle ich das an?
Oder gibts einen ganz anderen weg?

Netterweise soll das dings morgen fertig sein.

Danke schon mal

lg
roo
(leicht panisch)

[Driri]

Hi,

bleiben die Formattierungen nicht erhalten, wenn die Teile als HTML-Mails versendet werden ?

Probier doch mal, am Client in den Benutzervorgaben bei "Internet Mail" auf "nur HTML" umzustellen und dann eine derartige Mail an eine GMX-oder-was-auch-immer-Adresse zu senden.

[Semeaphoros]

Per LotusScript lässt sich das Dokument in ein RichTextItem umwandeln. Siehe NotesDocument Class, Methode RenderToRTitem. Wenn man das in ein RT-Feld namens Body reinschreibt und als Form="Memo" definiert, sollte der Router das eigentlich korrekt als MIME message versenden.

[meichhorner]

Hy,

enventuell hilft dir das:

RenderToRTItem method  

Beispiel
Creates a picture of a document and places it into a rich text item you specify. The picture is created using both the document and its form, Therefore, the form's input translation and validation formulas are executed.
Defined in
NotesDocument
Syntax
flag = notesDocument.RenderToRTItem( notesRichTextItem )
Parameter
notesRichTextItem
The destination for the picture. If you specify Nothing, this method will generate an error.
Return value
flag
Boolean. If True, the method was successful. If False, the method was not successful and the rich text item remains unchanged. This can happen if an input validation formula fails on the document's form.
Siehe auch
NotesRichTextItem class

cu
Martin

[Rootine]

danke euch mal.

html-text schicken wird die lösung werden, wenn ich das nicht zammbringe.

ich habe jetzt dank eurer tipps aus der hilfe folgendes script
Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim docA As NotesDocument
   Dim docB As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim success As Variant
   Set db = session.CurrentDatabase
   Set docB = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem( docB, "Body" )
   docB.Form = "Memo"
   docB.Subject = "blablabla"
   docB.MailTo = "ich"
   Call docB.Save( True, True )
   success = docA.RenderToRTItem( rtitem )
   Call docB.Save( True, True )
End Sub

nur Problem: hängt sich das ding leider am success=... mit object variable not set auf (und es produziert lauter leere docs) und das Form Memo findet es leider auch net. muss ich das extra in der db noch wo definieren?

lg
roo, der ls dau

[koehlerbv]

Soweit ich sehe, weist Du docA auch nirgendwo ein NotesDocument zu. Da mußt Du noch was ergänzen.

Bernhard

[Rootine]

und wenn du mir sagst, wie ich das mache bin ich schon fast glücklich

hab doch mit ls noch nie was gemacht und kenn mich nüsse aus (merkt man gar nicht gell? )

[Rootine]

so ich hab das jetzt mal hinbekommen dass er das zumindest umwandelt und schickt.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim uidoc As NotesUIDocument
   Dim uiwork As New NotesUIWorkspace
   Dim Doc As NotesDocument
   Dim SDoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim Success As Variant
   Dim db As NotesDatabase
   
   Set db = session.CurrentDatabase
   Set uidoc = uiwork.CurrentDocument
   Set doc = Uidoc.Document
   Set SDoc = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem(Sdoc, "Body" )
   Set doc = uidoc.document
   Sdoc.form = "Memo"
   Sdoc.Subject = "Aktuelle Info"
   Sdoc.SendTo = "blablabla"
   success = doc.RenderToRTitem (rtitem)
   Call Sdoc.Send(True,True)
   
End Sub

AAAAAABER ausschauen tut das sehr bescheiden, und die bilder hab ich jetzt als angehängte .pcx dabei.

lg
roo

[koehlerbv]

Zu Deiner ersten Antwort (auf die meinige): Wir geben Tips, aber selten fertige Lösungen. Die muß man nämlich bezahlen (denk' mal drüber nach). Aber die Tips geben wir gerne - wir haben ja alle auch mal angefangen.
Zu Deiner zweiten Antwort: Die Lösung könnte nur heissen, saubere HTML-Mails via Notes zu erzeugen. Und auch dies ist kein Erfolgsgarant. Ich habe im Sommer eine ganze Reihe von Tests gemacht, um ein simples TEXT (!) - Mail an unterschiedliche Mail-Clients zu versenden und dabei zu erreichen, daß dieses immer identisch dort empfangen wird. Meine Quintessenz: Vergiß es ... Internet-Mail-Standard ist purer Text, alles andere ist nicht verbindlich geregelt durch irgendwelche RFCs.

Schau' Dir spassenshalber Deine (oder anderer Leute) Spam-Mails an - möglichst mit verschiedenen Mail-Frontends: Das sieht immer anders aus ...

Schlicht und ergreifend: Wegen fehlenden Standards für bunte Bildchen geht es einfach nicht.

Bernhard

[eknori]

was ist mit einem einfachen export nach RTF ?? Geht sogar über Formel, glaube ich...

[koehlerbv]

@eknori:
Also meinst Du auch: Nur Text + Attachment wird überall funktionieren ?

Ciao,
Bernhard

[eknori]

y...iii...p....

evtl noch ein PDF framework (jnotes ? )