Hallo,
so kann ich einen Kontakt anlegen, aber wie bekomme ich die Plz, Ort und Strasse hinzu?
Klemens
Dim book As AddressBook
Dim myContact As AddressBookContact
dim addr as AddressBookAddress
book = System.AddressBook
myContact = New AddressBookContact
addr = new AddressBookAddress
myContact.FirstName = Listbox_Addr.cell(i,2)
myContact.LastName = Listbox_Addr.cell(i,3)
myContact.CompanyName = Listbox_Addr.cell(i,6)
myContact.EmailAddresses.append(“home”,“xxxx”)
myContact.PhoneNumbers.append(“home”, “yyyyy”)
myContact.PhoneNumbers.append(“work”, “12345”)
myContact.PhoneNumbers.append(“other”, “23456”)
myContact.MiddleName = “xxxxx”
myContact.Homepage = “xxxxxx”
myContact.Note = “xxxxxx”
book.Add(myContact)