Richtext mit Mail versenden

Benim · 16. März 2007

Hallo Leute,

könnt Ihr mir sagen wie ich es hin bekomme mit doc.send ein Richtext Feld zu versenden?
Würde gerne eine Mail verschicken in dem ein Richtext Feld ist.

taurec · 16. März 2007

Indem du das RichTextFeld namens Body anlegst und befüllst

Mit doc.Send wird das Dokument wie es ist, also mit allen Items in der entsprechenden Konfiguration versendet.

Willst du eine StandardMail haben brauchst du eben das Feld Body

Benim · 16. März 2007

Hi,

ich habe das Feld Body. Wenn ich die Mail verschicke steht in der Mail das Feld Body nicht drin, wenn die Mail bei dem empfänger ankommt.

ManuelaMB · 16. März 2007

Hi,

dim mail as NotesDocument
dim rt as NotesRichtextItem

Call mail.CreateRichTextItem("Body")
Set rt = mail.GetFirstItem( "Body" )
Call rt.AppendText("Hello World")

Wenn Du in der Hilfe nachschaust, gibt es einiges, was Du dann mit dem RichTextItem machen kannst. Auch Attachments anhängen, Doklinks etc.

Gruß Manu

taurec · 16. März 2007

Wie genau generierst du denn die Mail ?

Benim · 16. März 2007

Das ist eine Maske, in dem ein Feld Body enthalten ist.
Über einen Aktions Button möchte ich dann die Mail verschicken.
In dem Script steht im Moment folgendes:

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem

Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Set item = doc.ReplaceItemValue ( "Gesendet", 1)

doc.Principal = "TestMar@ABIT"
doc.SendTo = uidoc.FieldGetText( "SendTo")
doc.CopyTo = uidoc.FieldGetText( "CopyTo" )
doc.Subject = uidoc.FieldGetText("Subject" )

Call doc.Save( True, True )
Call doc.Send( False )
Call uidoc.Close(True)
End Sub

Würde jetzt gerne das Body Feld noch haben. Wie bekomme ich das jetzt hin das es mit geschickt wird?

Diali · 16. März 2007

dazu musst Du erst das UI-Dokument speichern und dann kannst Du im Backend das RT-Feld kopieren.

Bei RT-Feldern funktioniert die Backend / Frontend synkronisierung anders als bei allen anderen Feldern.

Gruß
Dirk

Benim · 16. März 2007

Hallo Dirk,

da ich nicht so viel Ahnung von LS habe....wie würde ich das das genau machen?
Mit uidoc.save?

Diali · 16. März 2007

uidoc.Save
set doc = uidoc.Document
uidoc.Close

und dann schauen, ob der Inhalt im RT-Feld da ist.

Das RT-Feld kannst Du dann mit CopyItemToDocument kopieren.

Sollte es nicht funktionieren, ...
uidoc.Save
set doc = uidoc.Document
uid = doc.UniversalID
uidoc.Close
set doc = Nothing
set doc = db.GetDocumentBYUnID(uid)

Gruß
Dirk

Teilen