Seite drucken - Export-Script

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Selin am 11.02.05 - 10:28:21

Titel: Export-Script
Beitrag von: Selin am 11.02.05 - 10:28:21

Hallo Ihr Lieben,

Habe hier ein Script zum Exportieren von Kontaktdaten aus dem Adressbuch in ein anderes Adressbuch.
Habe zwei Probleme.

1. ich versuche beim Export dem Dokument zu sagen, dass Form="Kontaktformular_" sein soll.
Das klappt zwar aber das aktuelle Dokument in meinem persönlichen Adressbuch bekommt dann auch Form = "Kontaktformular_" zugeteilt.
Das soll natürlich nicht passieren.

2. beim Export soll die zuständige Abteilung abgefragt werden. Und die Eingabe soll mit exportiert werden.In der DB, in die Dokumente exportiert werden existiert ein Feld "Abteilung". Da soll er es reinschreiben.
(Im Script ist die Inputbox auskommentiert)

Ich hoffe, ich konnt ees einigermaßen verständlich ausdrücken.

Danke + Gruß

Sub Initialize
   Dim s As New NotesSession
   Dim WS As New NotesUIWorkspace
   Dim View As NotesView
   Dim db As NotesDatabase
   Dim targetdb As New NotesDatabase( "Server", "Datenbank" )
   Dim dc As NotesDocumentCollection
   Dim source As NotesUIDocument
   Dim checkdc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim Flag As Variant
   Dim SucheName() As String
   Dim Unids() As String
   Dim Abtei() As String
   Dim tmpdoc As NotesDocument
   Dim modifyDate As Variant
   Dim i As Integer
   Dim found As Integer
   Dim abt As String

   Set db = s.CurrentDatabase
   Set checkdc = db.UnprocessedDocuments
   Set doc = checkdc.GetFirstDocument

   Do While Not doc Is Nothing

      found = False

      'Prüfe Nachname und Vorname
      Set dc = targetdb.Search( |Lastname = "| + doc.LastName(0) + |" & Firstname ="| + doc.FirstName(0) + |"|,Nothing,0 )

      If dc.Count > 0 Then
         'Msgbox(dc.count)
     'Hier gibt es einen Treffer:
         found = True
         Redim SucheName(dc.count)
         Redim Unids(dc.count)
         'Redim Abtei(dc.count)

         For i = 1 To dc.count
            Set tmpdoc = dc.getNthDocument(i)
            SucheName(i-1) =tmpdoc.LastName(0) & ", " + tmpdoc.FirstName(0)& " " & tmpdoc.CompanyName(0) & " (" & Format$( doc.LastModified, "Short Date") & ")" & " ~" & tmpdoc.UniversalID
            Unids(i-1) = tmpdoc.UniversalID
            'Abtei(i-1)=tmpdoc.Abteilung(0)

         Next

         doc.Ergebnis = SucheName
         doc.Liste1 = SucheName
         doc.Unids = Unids
         doc.Aktuell_= doc.Lastname(0)+ ", " + doc.FirstName(0)+ " " + doc.CompanyName(0)& " (" & Format$( doc.LastModified, "Short Date") & ")" & " ~" & doc.UniversalID
         doc.Aktuell =doc.Lastname(0)+ ", " + doc.FirstName(0)+ " " + doc.CompanyName(0)

         Flag = WS.Dialogbox("dialog", True, True, False, False, False, False, "Export", doc, False)


      Else
' Kein Treffer: Dok. kann kopiert werden

         'abt = Inputbox$("Bitte zuständige Abteilung eingeben:", "Abteilung eingeben","-")
         Call doc.CopyTodatabase(targetdb)

         'Msgbox(abt)
         'tmpdoc.Abteilung = abt
         'tmpdoc.Form = "Kontaktformular_"
         'doc.Type = "Kontaktformular_"
         'Call tmpdoc.Save(True, True)

         Set source= WS.CurrentDocument
         Msgbox("Das Dokument wurde in die Datenbank hinzugefügt")

      End If
      Set doc = checkdc.GetNextDocument(doc)

      Loop 'do while not doc is nothing
End Sub

Titel: Re: Export-Script
Beitrag von: klaussal am 11.02.05 - 12:07:28

Code

'doc.Type = "Kontaktformular_"

Das soll natürlich nicht passieren.
Das machst Du doch selber !?!

Code

'tmpdoc.Abteilung = abt

Das sollte es doch sein.

klaus

Titel: Re: Export-Script
Beitrag von: Selin am 11.02.05 - 12:13:15

<<Code:
'tmpdoc.Abteilung = abt

Das sollte es doch sein.

dann kommt das:

Object variable not set

Titel: Re: Export-Script
Beitrag von: klaussal am 11.02.05 - 12:43:27

An welcher Stelle, was sagt der Debugger ?

Titel: Re: Export-Script
Beitrag von: Driri am 11.02.05 - 13:14:26

Inputbox liefert einen Variant zurück.

Titel: Re: Export-Script
Beitrag von: Selin am 11.02.05 - 13:33:13

Zitat von: klauss am 11.02.05 - 12:43:27

An welcher Stelle, was sagt der Debugger ?

An sieder Stelle kommt die Meldung:

tmpdoc.Abteilung = abt

Titel: Re: Export-Script
Beitrag von: Glombi am 11.02.05 - 13:39:21

tmpdoc ist doch gar nicht in dem Else Zweig gesetzt !

Andreas

Titel: Re: Export-Script
Beitrag von: mibo11 am 11.02.05 - 13:40:17

Hallo Selin,

könnte es sein, dass das Objekt tempdoc gar nicht vorhanden ist?

Versuche es doch vielleicht erst einmal mit:

set tempdoc = doc.CopyTodatabase(targetdb)

statt

Call doc.CopyTodatabase(targetdb)

Gruß Sascha

Titel: Re: Export-Script
Beitrag von: Selin am 11.02.05 - 13:48:25

Zitat von: mibo11 am 11.02.05 - 13:40:17

Hallo Selin,

könnte es sein, dass das Objekt tempdoc gar nicht vorhanden ist?

Versuche es doch vielleicht erst einmal mit:

set tempdoc = doc.CopyTodatabase(targetdb)

statt

Call doc.CopyTodatabase(targetdb)

Gruß Sascha

habe ich auch schon probiert.
Gleiche Fehlermeldung ;-(

Titel: Re: Export-Script
Beitrag von: mibo11 am 11.02.05 - 14:00:47

Probiere doch einmal bitte diesen Code im Else Zweig:

Set tmpdoc = doc.CopyTodatabase(targetdb)
tmpdoc.Abteilung = Inputbox$("Bitte zuständige Abteilung eingeben:", "Abteilung eingeben","-")
tmpdoc.Form = "Kontaktformular_"
~~doc.Type = "Kontaktformular_"~~
tmpdoc.Type = "Kontaktformular_"
Call tmpdoc.Save(True, True)

Gruß Sascha

Titel: Re: Export-Script
Beitrag von: mibo11 am 11.02.05 - 14:02:34

Nachtrag!

tmpdoc.Type = "Kontaktformular_"

statt

doc.Type = "Kontaktformular_"

Sascha

Titel: Re: Export-Script
Beitrag von: Selin am 11.02.05 - 14:11:22

PERFEKT.

Super. Vielen Dank
hat funktioniert

:D

Grüsse
Selin

Titel: Re: Export-Script
Beitrag von: mibo11 am 11.02.05 - 14:38:48

Gern geschehen. ;)

Gruß Sascha

Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Selin am 11.02.05 - 10:28:21