Richtext body to Internet Mail

Stony · 12. Februar 2008

Hallo zusammen,

gibt es eine Möglichkeit ein schön formatiertes Richtextitem als Internet mail zu versenden?

Code

Dim s As New NotesSession
	Dim maildoc As NotesDocument
	Dim body As NotesRichTextItem

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)


	maildoc.SendTo = "Internet@Internet.de"
	Set body=maildoc.CreateRichTextItem("Body")
	Call curDoc.RenderToRTItem(body)
	maildoc.Form = "Memo"	
	Call maildoc.Send( False)

Alles anzeigen

Wenn das im Internet Account ankommt ist es total zerfledert...

Gruß Stony

Diali · 12. Februar 2008

schau Dir ind er Designerhilfe mal "Working with a MIME entity in LotusScript classes" an, da gibt es den Abschnitt "To access the MIME content of a NotesDocument".

Gruß
Dirk

Stony · 12. Februar 2008

Hi,

irgendwie versteh ich das nicht so ganz.
Wie bekomme ich denn das vorher gerenderte RichtTextItem in ein MIME??

Danke schonmal für die Hilfe.

Gruß Stony

Diali · 12. Februar 2008

Mit NotesDocument.GetMIMEEntity oder NotesDocument.GetFirstItem gefolgt von NotesItem.GetMIMEEntity kommst Du an das Feld ran.

Gruß
Dirk

Stony · 12. Februar 2008

Habe das ganze mal gedebuggt....mimeEntity ist immer leer, was so viel heißt, dass er sich das nicht holt.

Code

Dim maildoc As NotesDocument
	Dim body As NotesRichTextItem
	Dim mimeEntity As NotesMimeEntity

	s.ConvertMime=False

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)


	maildoc.SendTo = "Internet@Internet.de"
	Set body=maildoc.CreateRichTextItem("Body")
	Call curDoc.RenderToRTItem(body)

	Set mimeEntity = maildoc.GetMIMEEntity("Body")
	'???	


	Call maildoc.CloseMIMEEntities
	s.ConvertMime=True

	maildoc.Form = "Memo"	
	Call maildoc.Send( False)

Alles anzeigen

Würde sagen, ich mache da was falsch :-?

Gruß Stony

Stony · 13. Februar 2008

Hallo,

habe es nochmal probiert, bekomme es aber leider nicht hin.
Irgendwie zieht er sich nicht das vorher gerenderte body feld...

Code

Set body=maildoc.CreateRichTextItem("Body")
Call curDoc.RenderToRTItem(body)
Set mimeEntity = maildoc.GetMIMEEntity("Body")

Hoffe, es kann mir jemand helfen. Schonmal vielen Dank im Voraus...

Gruß Stony

Stony · 14. Februar 2008

Hallo,

ich denke das Problem ist, dass "Body" nicht vom Type MIME_PART ist.

Hätte nicht gedacht, dass es so kompliziert ist, ein gerendertes Body field formatiert an eine internet mail adresse zu senden.

Gibts vielleicht noch eine andere Möglichkeit?

Gruß Stony

Diali · 14. Februar 2008

Dein Body-Feld ist auch das neue Feld, dies musst Du anders erzeugen. Siehe NotesDocument.CreateMIMEEntity

Gruß
Dirk

Stony · 14. Februar 2008

ok. Habe nun ein MIME-Item "Body" erstellt. Und wie bekomme ich da nun den formatierten Text wie bei einem RenderToRtItem rein?

Die Mail soll ja nur ungefähr so ankommen, als wenn man ein RenderToRtItem macht und die Mail intern versendet.

Hier nochma der code:

Code

Dim maildoc As NotesDocument
	Dim body As NotesMimeEntity

	s.ConvertMime=False

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)

	maildoc.SendTo = "internet@internet.com"
	Set body=maildoc.CreateMIMEEntity("Body")



	Call maildoc.CloseMIMEEntities
	s.ConvertMime=True

	maildoc.Form = "Memo"	
	Call maildoc.Send(True)

Alles anzeigen

Gruß Stony

koehlerbv · 14. Februar 2008

Wie wäre es, wenn Du mal die Hilfe zur entsprechenden Klasse liest und versuchst, umzusetzen - und dann mit konkreten Fragen kommst?

Bernhard

PS: Abgesehen davon - die durchschlagenden Mails waren noch die die bunten, sondern die, in denen kurz und knackig das entscheidende zu lesen war: "Kaufpreis nicht mehr 4,9 Mrd., sondern jetzt 3,8!"

Teilen