Probleme nach Update auf Notes 8 / ComposeDocument

[taf]

Hallo Zusammen,

ich habe ein Kundeninformationssystem, in dem es 
folgende Funktion gibt: aus dem Mailfile heraus kann ich E-Mail’s in das Kundeninformationssystem übertragen, indem die Mail an ein definiertes Dokument angehängt wird. Im Mailfile ist dazu ein Schaltfläche integriert, mit der die Aktion ausgelöst wird. Bis Notes 7 ist die Funktion ohne Probleme gelaufen. Nach dem Update auf Notes 8 steigt er mir an folgender Stellen aus:

Set PeDoc = ws.ComposeDocument( PEdb.Server, PEdb.FilePath, "mk")

Hier ist das ganze Script:

Dim s As New Notessession
Dim ws As New NotesUiWorkSpace
Set PeDoc = ws.ComposeDocument( PEdb.Server, PEdb.FilePath, "mk")
'Erstelle Dokuemnt im Postbuch
Call PEdoc.GotoField( "Images" ) ' Feld zur Ablage des Mailabbildes
im Dokument
Call PEdoc.Paste
Call PEdoc.GotoField( "Datum" )
Call PEdoc.SelectAll
Call PEdoc.InsertText( AbsEingang )
Call PEdoc.GotoField( "B_Datum" )
Call PEdoc.InsertText( AbsDatum )
Call PEdoc.GotoField( "Zustellung" )
Call PEdoc.InsertText( "EMail" )
Call PEdoc.GotoField( "Person" )
Call PEdoc.InsertText( AbsName )
Call PEdoc.GotoField( "Betreff" )
Call PEdoc.InsertText( AbsThema )
Call PEdoc.GotoField( "alternativ" )
End Sub

Kann mir da jemand weiterhelfen? Bitte macht es mir so leicht wie möglich, da ich kein Entwickler bin. Mein eigentlicher Ansprechpartner ist aber verhindert. Danke schon mal im Voraus.

Grüße,

Thomas

[klaussal]

Gibt`s auch eine FM ?

Was steht in  PEdb.Server bzw. ...FilePath ?

[taf]

Du meinst das hier?

Function SetzVar As Variant
   Dim s As New Notessession
   Dim item As NotesItem
   SetzVar = True
   Set Mail = UiMail.Document
   Set Item= Mail.GetFirstitem("From")
   AbsName = Item.text
   Set Item= Mail.GetFirstitem("PostedDate")
   AbsDatum = Item.Text
   Set Item= Mail.GetFirstitem("DeliveredDate")
   AbsEingang = Item.Text
   Set Item= Mail.GetFirstitem("Subject")
   AbsThema = Item.Text
   Set PEdb = New NotesDatabase( s.Currentdatabase.Server,"I_KIS.nsf" )
   
   If Not PEdb.IsOpen Then
      Call PEdb.Open( "", "")
   End If
   If Not PEdb.IsOpen Then
      Print "Postbuch kann nicht geöffnet werden!"
      Messagebox "Postbuchdatenbank kann nicht geöffnet werden!", 16,"Verarbeitungsfehler"
      SetzVar = False
   End If
   Call s.SetEnvironmentVar("PostMail", "EMail")
End Function

Wie gesagt, es lief alles wunderbar - bis nach dem Update auf 8.

Grüße, Thomas

[koehlerbv]

Nochmals: Wie lautet die Fehlermeldung??

Bernhard

[taf]

Die Fehlermeldung lautet: "Keine Dokumente in diese Richtung vorhanden."

Grüße, Thomas

[Jens Winkelmann]

Vielleicht ist es eine Frameset Problem.

Versuche es mal mit der folgenden Zeile vor dem ComposeDocument:

Call ws.SetTargetFrame( "" )
Set PeDoc = ws.ComposeDocument( PEdb.Server, PEdb.FilePath, "mk")

[taf]

Hab ich probiert. Klappt leider nicht. Folgende Fehlermeldung: "Ungültiges oder nicht vorhandenes Dokument".