Domino 9 und frühere Versionen > Entwicklung

Problem mit CreateObject

<< < (2/6) > >>

klaussal:
...   ws. <--- ist nicht definiert  ;D

robertpp:

--- Zitat von: klaussal am 28.02.03 - 10:00:25 ---...   ws. <--- ist nicht definiert  ;D

--- Ende Zitat ---

war ein schreib fehler von mir. ich habs nur vom forum kopiert!!!
in der DB ist es richtig!!!

forrest g:
hallo robert,

ich denke wie folgt, müsste das gehen...

 
  If uidoc.FieldGetText( "Subject" ) = "Umsatz Weikersdorf" Then
      doc.Form = "Memo"
      doc.SendTo = "Robert Prinz\MISEBG"
      doc.Subject = "Umsatz Weikersdorf2
      Set rtfBody = doc.CreateRichTextItem( "Body" )
      Call doc.Save(True, False)
     
      dim muidoc as notesuidocument
      set muidoc = ws.editdocument(true, doc)
      fpath(0) = "C:\mappe2.xls"
      muidoc.gotofield("Body")
      Call muidoc.CreateObject("Body", "", fpath(0))
      call muidoc.save
     
      Call doc.Send( True )
      Call doc.Remove(True)
      Exit Sub      
  End If

robertpp:
Leider:
Gleicher Fehler wie davor!!

Er schickt mir ein Mail ohne Anhang und das was er mir senden sollte mit anhang sehe ich immer noch am bildschirm in der anderen datenbank und wenn ich dort auf senden klicke dann bekomm ich erst das richtige mail
Weiß dazu jemand eine lösung!!
Ich glaub es ist nur ein kleines problem!! Für einen Profi wahrscheinlich garkein problem!!!

robertpp

robertpp:
Es funkt jetzt aber wie bekomm ich am schluss das uidoc1 wieder zu und wie lösch ich es dann weil das doc1.remove(true) geht nicht.

Set db= s.CurrentDatabase
   Set doc1 = New NotesDocument(db)
   Set uidoc = uiws.CurrentDocument   
   
   
   If uidoc.FieldGetText( "Subject" ) = "Umsatz Weikersdorf" Then
      doc1.Form = "Memo"
      doc1.SendTo = "Robert Prinz/MISEBG"
      doc1.Subject = "Umsatz Weikersdorf"
      Set rtfBody = doc1.CreateRichTextItem( "Body" )
      Call doc1.Save(True, False)
      
      Set uidoc1 = uiws.editdocument(True, doc1)
      fpath(0) = "S:\EIS\Berichte\Weikersdorf\Umsatz_Weikersdorf.xls"
      uidoc1.gotofield("Body")
      Call uidoc1.CreateObject("Body", "", fpath(0))
      
      Call uidoc1.send
      Call uidoc1.save      
      Call doc1.Remove(True)
      Exit Sub      
   End If

robertpp

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete