Hallo Mitleser
ich habe eine Listbox gebaut, in deren Zellen ich nun Adressen
(also Name, Straße, etc.) eintrage.
Es klappt, wenn ich eine NEUE Gruppe anlegen lassen. Aber wenn ich
neue Mitglieder einer BESTEHENDEN Gruppe hinzufügen will, komme ich
nicht mehr klar. Ich habe was von AddressBookGroup.add gelesen, aber
so wie hier geht's nicht.
Dim i,h,k as Integer
Dim book as AddressBook
dim addr as AddressBookAddress
dim data as AddressBookData
dim Group as AddressBookGroup
for i=0 to adressenliste.ListCount -1
dim contact as new addressbookcontact
book=system.addressBook
contact.firstName=adressenliste.cell(i,1)
contact.lastName=adressenliste.cell(i,0)
if trim(adressenliste.cell(i,1))<>"" and trim(adressenliste.cell
(i,0))<>"" then
contact.firstName=trim(adressenliste.cell(i,1))
contact.lastName=trim(adressenliste.cell(i,2))
data = Contact.addresses
addr = new AddressBookAddress
'group.Name="KLASSENTREFFEN" ????
addr.StreetAddress = adressenliste.cell(i,2)
addr.City = adressenliste.cell(i,3)
addr.Zip = adressenliste.cell(i,4)
data.Append("Home", addr)
data = contact.PhoneNumbers
data.Append("Home", adressenliste.cell(i,5))
data.Append("Mobile", adressenliste.cell(i,6))
data.Append("Home", "Fax: " + adressenliste.cell(i,7))
data = contact.EmailAddresses
data.Append("Home", adressenliste.cell(i,8))
data.Append("Work", adressenliste.cell(i,9))
contact.Note = adressenliste.cell(i,10)
book.add contact
AddressBookGroup.add contact '' hier knallt es
book.add Group
call book.Save
else
MsgBox "Name und/oder Vorname fehlen"
end if
next
wie kriege ich es hin, dass ich an eine bestehende Gruppe aus dem
Adressbuch neue Mitglieder anhängen kann??
Vielleicht kann mir jemand helfen?
Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine
Prognose nicht gestimmt hat.
(Winston Churchill)
