Neue Kontakte via VBA anlegen

[Wusa]

Hallo zusammen.

Ich bin an einem Projekt in dem ich neue Kontakte in der lokalen Lotus Notes Datenbank über VBA anlegen muss. Leider weis ich nicht wie das geht!
Kontakte sind in einer Excel tabelle vorhanden.
ich benutze Lotus Notes 6.5.5

Wäre über Konstruktive Vorschläge sehr Glücklich 

Danke

Gruß Wusa

[m3]

1) Com Verbindung öffnen
2) Adressbuch-DB (names.nsf ?) öffnen
3) Neues Dokument erstellen
4) Felder im Dokument entsprechend den Excel-Werten setzen (Form-Feld nicht vergessen)
5) Dokument speichern
6) Weiter bei 3, bis alle Einträge im Excel abgearbeitet sind

[Thomas Schulte]

Na dann kommt hier der erste Vorschlag.

Nachdem solche und ähnliche Themen Import von und Export nach Excel direkt und indirekt hier schon zigmal behandelt worden sind, versuch es mal mit der Forumssuche.

Schlagwörter "Import" und "Excel".

Wenn dir die Treffer hier noch nicht langen dann kannst du bei Notes.net im 5er und 6er Forum weitersuchen und dich danach openntf und der Sandbox auf der Suche nach passenden Anwendungen zuwenden.

Wenn du mit dem Sichten des zutage geförderten Materials so in circa einer Woche fertig bist und dann etwas spezifischere Fragen hast, dann komm wieder.

Alles klar?   

[Wusa]

Danke für die antworten. Über die Import Funktion von Notes bin ich mir bewusst. Aber diese kann ich leider nicht brauchen.

Ich benötige ein VBA CODE der mir einen Kontakt erstellt. Und hierzu habe ich leider noch nichts gefunden!

Die Datenbank auslesen kann ich aber nicht reinschreiben.

Gruß Wusa

[Thomas Schulte]

Auch dazu gibt es schon zig Einträge hier und in den anderen genannten Foren und Datenbank Beispielen.

Außerdem kann man wenn man sich ein LotusScript Beispiel anschaut (von denen es hier mehrere funktionsfähige gibt) relativ einfach in Richtung VBA abstrahieren. Zumal dann wenn man, wie du es ja offensichtlich geschafft hast, schon eine Verbindung zu der entsprechenden notes Datenbank herstellen konnte.

Fertige Code Beispiele kannst du nicht erwarten. Erst recht nicht wenn du hier mit einer gewissen Erwartungshaltung und ungenügenden Angaben reinkommst (du hast ja offensichtlich schon eine Verbindung zur Datenbank). Warum sollten wir speziell unsere Zeit opfern um einfache Aktionen durchzuführen die dir ohne jedes Problem Lösungshinweise geben wie eben die angesprochene Suche.

[Wusa]

ich stehe im moment bei diesem code:

Sub Kontakt_anlegen()

Dim LNdb As Object
Dim UserName As String
Dim LNDbName As String
Dim LNDoc As Object
Dim Session As Object
Dim Recipient As String

Set objNotes = GetObject("", "Notes.NotesSession")
If objNotes Is Nothing Then
  Set objNotes = CreateObject("Notes.NotesSession")
End If
Set LNdb = objNotes.GetDatabase("", "names.nsf")
Set LNDoc = LNdb.CREATEDocument
LNDoc.Form = "Contact"
LNDoc.Lastname = "Bader"
LNDoc.Firstname = "Hans"
LNDoc.mailaddress = "h.bader@hotmail.com"
LNDoc.Save True, False
Set LNdb = Nothing
Set LNDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

End Sub

leider komme ich hier nicht weiter.
weis jemand ob man dass so schreiben kann:

Set LNDoc = LNdb.CREATEDocument
LNDoc.Form = "Contact"

bin mir hier eben nicht sicher ob es einen neuen Kontakt öffnet!

Gruß Wusa

[m3]

weis jemand ob man dass so schreiben kann

Ja.

BTW: Der Beitrag findet sich mittlerweile auch auf http://www.spotlight.de/zforen/lts/m/lts-1155542755-16575.html

[Axel]

bin mir hier eben nicht sicher ob es einen neuen Kontakt öffnet!

Dann probier's doch einfach und du wirst sehen was passiert.


Axel

[umi]

Ich denke nicht.

Wenn Du dir das Persönliche Adressbuch mal genauer angeschaut hättest, wäre Dir sicherlich aufgefallen, dass das Form "Person" heissen muss und dass das Feld Typ auch auf "Person" gesetzt werden sollte.....

Ich denke mal die Com objekte verstehen die Erweiterte Syntax nicht so richtig....
also
call LNDOC.replaceitemvalue("Form","Person")
call Lndoc.ReplaceItemvalue("Type","Person")

Noch was: RTFM und Konkrete Fragen liefern meistens konkrete Antworten.

[Wusa]

Hi.

Vielen Dank umi für deine Hilfreiche antwort!

Hab das Programm nu angepasst und es funktionert!
 

Thx

grretz Wusa

[klaussal]

BTW: Auf "Spotlight" gab es keine einzige Antwort ....