Domino 9 und frühere Versionen > ND6: Entwicklung

Object varible not set

<< < (3/4) > >>

mxm:
So, hier mal der Code.

Function MessageSenden(sAdrReply As String, sAdrSender As String, sAdrAlias)
   
   Dim UiWs As New NotesUIWorkspace
   Dim UiDoc As NotesUIDocument   
   Dim nSession As New NotesSession
   Dim nDB As NotesDatabase   
   Dim mailbox As New NotesDatabase("","")
   Dim MailDoc As NotesDocument
   Dim MemoDoc As NotesDocument   
   Dim SubjectItem As NotesItem
   Dim BodyItem As NotesRichTextItem
   Dim Item As NotesItem
   Dim sendto As NotesItem
'   Dim subject As String
   Dim message As NotesItem
   
   Set UiDoc = UiWs.CurrentDocument
   Set MemoDoc = UiDoc.Document
   Set sendto = MemoDoc.GetFirstItem("EnterSendTo")
   Set message = MemoDoc.GetFirstItem("Body")
   
'   subject = "Mario Test Betreff"
   
   Set nDB = nSession.CurrentDatabase
   Call mailbox.Open( nDB.server, "mail.box" )   
   Set MailDoc = mailbox.CreateDocument
   
   MailDoc.Form = "Memo"
   Set Item =  Maildoc.ReplaceItemValue("SendTo", sendto)
   Set Item =  Maildoc.ReplaceItemValue("Recipients", sendto)
   
   
   Set SubjectItem = MemoDoc.GetFirstItem("Subject")      
   Call SubjectItem.CopyItemToDocument(MailDoc, "Subject")
   
      
   Set BodyItem = MailDoc.CreateRichTextItem( "Body" )
   Call message.CopyItemToDocument(MailDoc, "Body") hier wollte ich dies realisieren
   
   MailDoc.PostedDate = Now()
   MailDoc.ComposedDate = Now()
   MailDoc.DeliveredDate = Now()
   MailDoc.EncryptOnSend = True

   
   Call MailDoc.Save( True,False )   
   Call UiDoc.Close(False)
   
End Function

So das mal zum Code.

Thomas Schulte:

--- Zitat von: mxm am 23.08.05 - 16:24:00 ---   Set BodyItem = MailDoc.CreateRichTextItem( "Body" )
   Call message.CopyItemToDocument(MailDoc, "Body") hier wollte ich dies realisieren

--- Ende Zitat ---
Du erstellst erst das item um es dann noch einmal zu erstellen? Den Set Bodyitem kannst du schon mal Weglassen, das Erstellen erledigt der Call schon für dich.
Und du solltest mit dem Debugger an dieser Stelle
 Set message = MemoDoc.GetFirstItem("Body")
überprüfen ob Message überhaupt einen Wert hat.

mibo11:
Mit
Dim message As NotesRichTextItem
statt
Dim message As NotesItem

und dem gesagten von Thomas müsste es jetzt funktionieren.

CreateRichTextItem brauchst du nur wenn es sich um ein neues Dokument handelt.

Gruß Sascha

mibo11:
Habe gerade deinen Code ausprobiert.

Wenn du, wie Thomas es schon erwähnt hat, die folgende Zeile löschst, funktioniert es.

   Set BodyItem = MailDoc.CreateRichTextItem( "Body" )

Gruß Sascha

mxm:
Guten Morgen @All,

habe so ebend mal euren Anweisung gefolgt und siehe da, ich bekomme wieder den Fehler "Object varible not set".

Message bekommt auch keinen Wert an dieser Stelle -->
Set message = MemoDoc.GetFirstItem("Body") , ganz schön komisch!

Habe den fehler bei mir gefunden und zwar gibt es kein Item "Body".
Und Nu? Obwohl das Item in der Memomaske aber vorhanden ist.

Gruß mxm

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete