| Author | Topic: adding contacts on outlook | |
|---|---|---|
 | Reinthaler Rudolf | adding contacts on outlook on Sat, 14 Jun 2008 23:16:12 +0200 Hello, has anyone a sample how to add contacts in outlook ? For reading I have samples. regards Rudolf |
| Wolfgang Ciriack | Re: adding contacts on outlook on Sun, 15 Jun 2008 10:11:52 +0200 Hi Rudolf,
here is some code:
oContacts:=oNS:PickFolder() //* returns NameSpace
if oContacts<>NIL
if oContacts:DefaultItemType<>olContactItem
.. no contact folder
....
....
endif
if (oNew:=oContacts:Items:Add(olContactItem))<>NIL
oNew:CompanyName:=alltrim(outl->firma)
oNew:FileAs:=alltrim(outl->firma)
oNew:BusinessTelephoneNumber:=alltrim(outl->tele1)
oNew:MobileTelephoneNumber:=alltrim(outl->tele2)
oNew:BusinessFaxNumber:=alltrim(outl->fax)
oNew:CustomerID:=strzero(art,3)+strzero(nummer,10)+strzero(lfdnr,3)
.........
........
oNew:Save()
endif
Regards Wolfgang
"Reinthaler Rudolf" <office@c-tec.at> schrieb im Newsbeitrag
news:3052085e$5e9819ab$1a0@news.alaska-software.com...
> Hello,
> has anyone a sample how to add contacts in outlook ? For reading I have
> samples.
> regards
> Rudolf
> |
| Reinthaler Rudolf | Re: adding contacts on outlook on Sun, 15 Jun 2008 22:29:16 +0200 Hello Wolfang, thank you ! I will try it regards Rudolf "Wolfgang Ciriack" <ciriack@ciju.de> schrieb im Newsbeitrag news:2c4aacff$1984b317$b97@news.alaska-software.com... > Hi Rudolf, > here is some code: > > oContacts:=oNS:PickFolder() //* returns NameSpace > if oContacts<>NIL > if oContacts:DefaultItemType<>olContactItem > .. no contact folder > .... > .... > endif > > if (oNew:=oContacts:Items:Add(olContactItem))<>NIL > oNew:CompanyName:=alltrim(outl->firma) > oNew:FileAs:=alltrim(outl->firma) > oNew:BusinessTelephoneNumber:=alltrim(outl->tele1) > oNew:MobileTelephoneNumber:=alltrim(outl->tele2) > oNew:BusinessFaxNumber:=alltrim(outl->fax) > oNew:CustomerID:=strzero(art,3)+strzero(nummer,10)+strzero(lfdnr,3) > ......... > ........ > oNew:Save() > endif > > Regards Wolfgang > > > > > > "Reinthaler Rudolf" <office@c-tec.at> schrieb im Newsbeitrag > news:3052085e$5e9819ab$1a0@news.alaska-software.com... >> Hello, >> has anyone a sample how to add contacts in outlook ? For reading I have >> samples. >> regards >> Rudolf >> > > |
| Author | Topic: adding contacts on outlook | |
|---|---|---|
| Reinthaler Rudolf | adding contacts on outlook on Sat, 14 Jun 2008 23:16:12 +0200 |
| Wolfgang Ciriack | Re: adding contacts on outlook on Sun, 15 Jun 2008 10:11:52 +0200 |
| Reinthaler Rudolf | Re: adding contacts on outlook on Sun, 15 Jun 2008 22:29:16 +0200 |