Domino 9 und frühere Versionen > ND6: Entwicklung

Neue Kontakte via VBA anlegen

<< < (2/3) > >>

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:

--- Zitat ---weis jemand ob man dass so schreiben kann
--- Ende Zitat ---
Ja.

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

Axel:

--- Zitat von: Wusa am 10.08.06 - 10:30:22 ---bin mir hier eben nicht sicher ob es einen neuen Kontakt öffnet!

--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete