Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: taf am 16.03.10 - 15:03:18

Titel: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: taf am 16.03.10 - 15:03:18

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

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: klaussal am 16.03.10 - 15:44:15

Gibt`s auch eine FM ?

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

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: taf am 16.03.10 - 16:23:39

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

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: koehlerbv am 16.03.10 - 23:02:58

Nochmals: Wie lautet die Fehlermeldung??

Bernhard

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: taf am 17.03.10 - 11:01:50

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

Grüße, Thomas

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: Jens Winkelmann am 17.03.10 - 12:26:14

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")

Titel: Re: Probleme nach Update auf Notes 8 / ComposeDocument
Beitrag von: taf am 17.03.10 - 12:34:15

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