Man kan ju lägga till adresser i adressboken från VB med kod likande den nedan.
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Dim mapiObj As Outlook.Application
Dim mapiNameSpace As Outlook.NameSpace
Dim mapiContactItm As Outlook.ContactItem
Dim mapiLists As Outlook.AddressLists
Dim mapiListItm As Outlook.AddressList
Set mapiObj = New Outlook.Application
Set mapiNameSpace = mapiObj.GetNamespace("MAPI")
Set mapiFolder = mapiNameSpace.GetDefaultFolder(olFolderContacts)
Set mapiItem = mapiFolder.Items
Set mapiContactItm = mapiItem.Add
With mapiContactItm
.FullName = "Kalle Anka"
.Email1Address = "kalle.anka@ankeborg.ka"
.Save
End With
detta fungerar ju alldeles utmärkt, nu till funderingen, enligt MSDN så kan (det enda sättet jag hittat där...) man även använda sig av "addressEntry", med kod liknande:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Set mapiObj = New Outlook.Application
Set mapiNameSpace = mapiObj.GetNamespace("MAPI")
Set mapiLists = mapiNameSpace.AddressLists
Set mapiListItm = mapiLists.Item(1)
strListName = mapiListItm.Name
Set mapiAddressEntries = mapiLists.Item(strListName).AddressEntries
Set mapiAddressEntry = mapiAddressEntries.Add("SMTP")
mapiAddressEntry.Name = "Kalle Anka"
mapiAddressEntry.Address = "kalle.anka@ankeborg.ka"
mapiAddressEntry.Update
Problemet är bara att jag får felet att "tjänsten inte stödjs".
Är det så att man inte ska försöka använda sätt 2 alls utan bara sätt 1? Ska "addressentries" främst användas för att hämta adresser från adressboken?
Anledningen att jag undrar är helt enkelt att jag bara vill ha svar då jag suttit och försökt få sätt 2 att funka ett tag. Nu använder jag mig av sätt 1 iof men det skadar ju aldrig att vet vad man gjort för fel på sätt1...
Tacksam för svar...!
------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/