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
