Das Notes Forum
Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: Hedwig14 am 26.11.10 - 09:31:03
-
Hallo,
kennt jemand diese Fehlermeldung im Zusammenhang von Mail-Versand via LS ?
OLE-Problem beim Konvertieren: Notes-OLE Problem: OLE exception: EditDocument!
Wird erzeugt über dieses Script:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Profildoc As NotesDocument
Dim empfänger As String
Dim agentstatus As String
Dim sendezeit As String
Dim rtitem As NotesRichTextItem
Dim originaldatei As Variant
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Set ProfilDoc = db.GetProfileDocument( "(Datenbank Profil)" )
Set originaldatei=ProfilDoc.getfirstitem("PD_Anhang")
empfänger = ProfilDoc.PD_Prüf_Zielfaxnummer(0)
agentstatus = ProfilDoc.PD_Prüf_Status(0)
sendezeit = Now()
If agentstatus = "aktiv" Then
doc.Form = "Memo"
doc.Subject = "#TESTFAX#" & sendezeit
Set rtItem= New NotesRichTextItem( doc , "Body")
Call rtitem.AppendText("Testfax")
Set rtitem=originaldatei.CopyItemToDocument( doc, "Body" )
doc.SendTo = empfänger
Call doc.Send( False )
End If
End Sub