Hallo,
ich teste gerade RenderToRTItem und wundere mich, dass ich immer HTML-Code anstelle eines Bildes in meiner Mail angezeigt bekomme.
Hier der Code:
Set db=session.currentdatabase
Set collection = db.UnprocessedDocuments
If collection.Count > 1 Then
Messagebox "Bitte nur ein Dokument markieren!"
Exit Sub
End If
Set doc = collection.GetFirstDocument
Set mail = New notesdatabase("","")
Call mail.openmail
Set memo = mail.createdocument
With memo
.sendto="Test"
.subject="Test"
Set itBody= New NotesRichTextItem( memo, "Body" )
End With
Call memo.Save(True,True)
Call memo.Save(True,True)
Set uimemo = ws.EditDocument(True,memo,False)
Übrigens habe ich das gleiche Problem bei diesem Script:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
If collection.Count > 1 Then
Messagebox "Bitte nur ein Dokument markieren!"
Exit Sub
End If
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatDocument( db, 1 )
Call doc.Send( False, "Harry Hirsch" )
End Sub
Hat jemand einen Tipp?
Grüße
Lisa
Sorry, Kopierfehler
Set db=session.currentdatabase
Set collection = db.UnprocessedDocuments
If collection.Count > 1 Then
Messagebox "Bitte nur ein Dokument markieren!"
Exit Sub
End If
Set doc = collection.GetFirstDocument
Set mail = New notesdatabase("","")
Call mail.openmail
Set memo = mail.createdocument
With memo
.sendto="Test"
.subject="Test"
End With
Set itBody= New NotesRichTextItem( memo, "Body" )
Call memo.Save(True,True)
success = doc.RenderToRTItem( itBody )
Set uimemo = ws.EditDocument(True,memo,False)