multipart/related statt multipart/mixed per Agenten versenden

[Bruce Willis]

Hallo,

1. Wenn ich manuell aus einer Datenbank heraus Emails an externe MS Outlook Empfänger verschicke, kommen diese Emails als multipart/related an - ordentlich formatiert und mit Notes-Links, die in Web-Links umgewandelt wurden.

2. Wenn ein "einfacher" oder auch LS Agent solche Emails verschickt, kommen diese Emails als multipart/mixed an - ohne jegliches Formatieren und ohne Links.

Was konnte ich in einen Agenten schreiben, damit er die Emails als multipart/related verschickt?

Gruß
Leo

[koehlerbv]

Einfacher oder Formel-Agent: Kannst Du gleich wieder vergessen, da geht nichts.

LS: Das tut. Die betreffende hilfreichende Klasse ist NotesMIMEEntity. Mit der Forumssuche solltest Du auch einige Beiträge hier finden.

HTH,
Bernhard

[Bruce Willis]

LS: Das tut. Die betreffende hilfreichende Klasse ist NotesMIMEEntity. Mit der Forumssuche solltest Du auch einige Beiträge hier finden.

Danke, Bernhard!
Ich probiere's.

Gruß
Leo

[koehlerbv]

Hier ein kleines Beispiel, Leo:

Code

Sub Click (Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim body As NotesMimeEntity
	Dim stream As NotesStream
	Dim prompt As String
	
	Set db = session.CurrentDatabase
	Set doc = db.CreateDocument
	doc.Form = "Memo"
	doc.SendTo = "test@test.utopia"
	doc.Subject = "TEST"
	
	Set body = doc.CreateMIMEEntity ("Body")
	Set stream = session.CreateStream
	Call stream.WriteText ("Das ist ein <B>fetter</B> Text. Dieser Text wird Text wird sehr lang und immer länger und noch länger und so weiter und so weiter und so weiter und so weiter und so weiter und so weiter und so weiter und hier endet er.")
	Call stream.WriteText ("<br><br>Dieser Text wird als zweiter Teil angefügt.")
	Call stream.WriteText ("<br /><br /><p>Ein Textabsatz, der ein <em>betontes</em> Wort enthält.</p>")
	Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1",ENC_NONE)							'Umlaute werden korrekt dargestellt
	Call stream.Truncate
	Call doc.Send (False)
End Sub

Bernhard

[Bruce Willis]

Hier ein kleines Beispiel...

Vielen Dank, Bernhard!

1. Ich werde versuchen, Deinen Script an meinen Agenten anzupassen.

Ich muss mir noch ein paar Gedanken machen, da ich dort die folgenden Zeilen

Code

Set message = New NotesDocument(db)
Set rtitem = New NotesRichTextItem( Message, "Body" )

und ziemlich komplizierte

Code

NotesRichTextParagraphStyle

habe...

2. Ich habe in Designer Hilfe 8.5.1 diese interessante Zeile gefunden:

Code

Call message.ConvertToMIME( 2 )

Allerdings bricht der Agent mit den Meldung "Zugriff auf die Datenbank nicht berechtigt"
ab, obwohl ich ziemlich auf alles Zugriff habe.
Wo könnte das Problem liegen?  

Gruß
Leo