Domino 9 und frühere Versionen > ND8: Entwicklung

multipart/related statt multipart/mixed per Agenten versenden

(1/1)

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:

--- Zitat von: koehlerbv am 08.05.10 - 21:04:59 ---LS: Das tut. Die betreffende hilfreichende Klasse ist NotesMIMEEntity. Mit der Forumssuche solltest Du auch einige Beiträge hier finden.

--- Ende Zitat ---

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
--- Ende Code ---

Bernhard

Bruce Willis:

--- Zitat von: koehlerbv am 08.05.10 - 22:31:56 ---Hier ein kleines Beispiel...

--- Ende Zitat ---

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" )
--- Ende Code ---
und ziemlich komplizierte
--- Code: ---NotesRichTextParagraphStyle
--- Ende Code ---
habe... ;)

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

--- Code: ---Call message.ConvertToMIME( 2 )
--- Ende Code ---

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

Navigation

[0] Themen-Index