Inhalt eines RTF per Mail versenden

[holgenoni]

Hallo liebe Leute,

ich hab jetzt schon einige Zeit hier im Forum gesucht und wurde leider nicht fündig. Ich hab nur gefunden, dass man das RTF in Mime konvertieren muss weiß aber nicht wie ich das bewerkstelligen soll.

Folgendes möchte ich machen:

Per Knopf ein geöffnetes Dokument an interne und externe Email Adessen versenden, wobei die Formatierung beibehalten werden sollte. Bei externen Adresse ist es auch OK wenn die Formatierung nur halbwegs gleich aussieht bzw. leserlich ist.

Was ich bisher probiert habe:

1.) Das geöffnete dokument (EditDocument=False) per SelectAll markieren und kopieren.
2.) In ein RTF kopieren und speichern.
3.) Ein neues Dokument bauen und in diesem das Body Feld mit dem RTF Feld füllen per AppendRTItem.
4.) Mail versenden.

Hier ist der Code des Knopfes:

Code

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = workspace.CurrentDocument
	Call workspace.EditDocument( False)
	Call uidoc.SelectAll
	Call uidoc.Copy
	Call workspace.EditDocument( True )
	Call uidoc.GotoField( "tmpCopy" )
	Call uidoc.Paste
	Call uidoc.Save
	Call SendMail
	Call uidoc.GotoField("tmpCopy")
	Call uidoc.SelectAll
	Call uidoc.Clear
	Call uidoc.Save
	
End Sub

Notes user bekommen das Mail formatiert. Externe bekommen allerdings das Dokument nur als Text. Keine Tabellen etc.
Wie krig ich das hin, das die Formatierung der externen Mails so ausschaut, als ob ich im Dokument auf "Dokument Weiterleiten" (MailForward) klicke und das Dokument dann aus meiner MailBox versende. (dabei bleibt die Formatierung erhalten)

Ich würde mich sehr freuen wenn mir jemand einen Tip geben könnte.

Vielen Dank im voraus

Grüße
Andy

[Thomas Schulte]

Ben Langhinrichs anrufen und sein Produkt CoexLinks oder CoexEdit kaufen.

Oder mit session.Convertmime rumspielen.

[koehlerbv]

Diese beiden Threads der letzten Tagen sollten hilfreich sein:
http://atnotes.de/index.php/topic,50282.0.html
und
http://atnotes.de/index.php/topic,50380.msg323362.html#msg323362

Bernhard

[holgenoni]

Vielen Dank für eure Antworten.

Eine Frage hätte ich allerding noch:

Warum klappt dann das mit der Formatierung aus der MailBox?
D.h. wenn ich in meiner MailBox ins body Feld eine Auswahl manuell rein kopiere, und dies dann verschicke, kommt es formatiert beim externen Empfänger an.

Danke nochmals
Grüße Andy

[koehlerbv]

Im Frontend erledigt das der Client bei entsprechenden Einstellungen des Location documents.

Bernhard

[holgenoni]

Dann könnte ich das ja auch übers Frontend schicken, oder?
Denn ich versende ja das Dokument per Knopfdruck und nicht mit einem Agent.

Grüße
Andy

[Thomas Schulte]

Du kannst das zumindest probieren. Ja.

[pram]

Ein Konvertieren von RTF nach HTML/Mime geht mit LS nicht, nur von MIME nach RTF. Dies wird durch ConvertMime erreicht.

Was aber relativ einfach geht, ist, dass du dir ein TempDoc erstellst und dann renderToRtItem verwendest:

set maildoc = new NotesDocument(...) ' Dokument wird versendet
mailDoc.form = "Memo"
set tempdoc = new NotesDocument(...) ' Dokument wird mit Maske berechnet
tempdoc.Form = "myMailForm"
... weitere Felder in Tempdoc setzen

set mailBody = new NotesRichtextItem(mailDoc, "Body")
call tempDoc.renderToRtItem(mailBody)
call mailBody.compact()
call mailDoc.send(...)

Damit lassen sich "einigermaßen" schöne HTML-Mails erzeugen. (in Etwa so schön wie der HTTP-Task die Maske rendern kann)

Gruß
Roland

[holgenoni]

Hallo pram,

ich hab das jetzt folgendermaßen probiert:

Ich habe kein neues Dokument (tmpdoc) erstellt, sondern mein aktuelles Dokument (in dem ich mich beim knopfdruck befinde und das ich versenden will) habe ich per renderToRtItem in den Body des maildoc kopiert.

Das Ergebniss ist jedoch das selbe, wie wenn ich ein Dokument, dass sich nicht im Editmode befindet per selectall markiere und ins Bodyfield kopiere.

Beim Versand an externe Adressen schaut die Mail bei beiden Varianten überhaupt nicht formatiert aus.

Hier ein Beispiel:

Code

|-------------------------------------------------------------------------------------|
|iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii                                                |
|                                                                                     |
| Firma Musterfirma GmbH                                                    |
| Datenbankname                                                              |
|                                                                (Embedded image moved|
|                                                               to file: pic07786.gif)|
| Aussteller :                                                                        |
|                 Max Mustermann                                                  |
|                                                                                     |
|                                             Datum:                                  |
|                                                          01.12.2010                 |
|                                                                                     |
|-------------------------------------------------------------------------------------|






 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii




 Teile Nr.:          asdf



                                            Freigabe Dat.
                                            Zeichnung:
 -------------------------------------------------------------------------------------


 ProjektNr.:                                 Ä-Nr.:



 Lieferant:                                  Bestätigung     |---------------|
                                            Termin:         | [ ] Bestätigt |
                                                            |---------------|

                                            
                                            Termin:
 -------------------------------------------------------------------------------------



 Risk :                     |----------|
                    | ( ) high |
                    | ( ) med. |
                    | ( ) low  |
                    |----------|







 Erforderlich:       |----------|            Bestätigter     |----------|
                    | [ ] IDN |            Termin:         | ( ) Ja   |
                    | [ ] IRS |                            | ( ) Nein |
                    |----------|                            |----------|
 -------------------------------------------------------------------------------------


 Kontakt:            mail@test.at       Reminder CC:











iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii






iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

[holgenoni]

Hallo @ all,

ich habe es nun geschaft, dass die Mail formatiert bei externen Adressen ankommt.
Hab das ganze nun aufs Forntend umgebaut.

Danke euch nochmal für eure Hilfe!

Grüße
Andy