Home > Archive > Programming with dBASE > October 2005 > Writing to Outlook calendar









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Writing to Outlook calendar
Rick

2005-10-24, 8:24 pm

Does anyone have sample coding for writing into the Outlook calendar from a dbf table?

Thanks for any help on this,
Rick
Fred van der Meulen

2005-10-24, 8:24 pm

Hello Rick,

> Does anyone have sample coding for writing into the Outlook calendar from
> a dbf table?


Try this:

myOlApp=new oleautoclient('outlo
ok.application')
olMAPI=myOlApp.GetNameSpace("MAPI")
myFolder=olMAPI.GetDefaultFolder(9)
if type("myOlApp.Assistant") # 'O'
myFolder.Display()
endif

// CalendarItem
myItem=myOlApp.CreateItem(1)
myItem.Subject = "This is my new title in Calendar"
myItem.Body = "This is my new contents in Calendar"
myItem.Start = dtoc(date()) + ' 13:00:00'
myItem.End = dtoc(date()) + ' 4:00:00 PM'
myFind = myFolder.Items.Find(;
"[Subject] = '" + "This is my new title in Calendar" + "'")
if not type("myFind")= 'L'
myFind.delete()
myItem.Subject = "This is my replaced title in Calendar"
endif
myItem.save()
****************

Regards,
Fred


Rick

2005-10-27, 7:28 am

Fred,

Thanks, nicely done. Any chance you could tell me how to find the list of properties that are available for each entry in the Outlook calendar.

Thanks again,
Rick



Fred van der Meulen Wrote:

> Hello Rick,
>
>
> Try this:
>
> myOlApp=new oleautoclient('outlo
ok.application')
> olMAPI=myOlApp.GetNameSpace("MAPI")
> myFolder=olMAPI.GetDefaultFolder(9)
> if type("myOlApp.Assistant") # 'O'
> myFolder.Display()
> endif
>
> // CalendarItem
> myItem=myOlApp.CreateItem(1)
> myItem.Subject = "This is my new title in Calendar"
> myItem.Body = "This is my new contents in Calendar"
> myItem.Start = dtoc(date()) + ' 13:00:00'
> myItem.End = dtoc(date()) + ' 4:00:00 PM'
> myFind = myFolder.Items.Find(;
> "[Subject] = '" + "This is my new title in Calendar" + "'")
> if not type("myFind")= 'L'
> myFind.delete()
> myItem.Subject = "This is my replaced title in Calendar"
> endif
> myItem.save()
> ****************
>
> Regards,
> Fred
>
>


Fred van der Meulen

2005-10-27, 7:28 am

Hello Rick,

"Rick" <Sportman7@netzero.net> schreef in bericht
news:QoPFqFX2FHA.328@news-server...
> Fred,
>
> Thanks, nicely done. Any chance you could tell me how to find the list of
> properties that are available for each entry in the Outlook calendar.
>


Perhaps you could look at the following (and other) microsoft sites.

http://support.microsoft.com/kb/q170262/

And I think there are some microsoft related newsgroups where you can get an
answer.

Regards,
Fred.


Fred van der Meulen

2005-10-27, 7:28 am

Hello Rick,

Found another:
http://www.selectorweb.com/outlook.html

Regards,
Fred


"Rick" <Sportman7@netzero.net> schreef in bericht
news:QoPFqFX2FHA.328@news-server...
> Fred,
>
> Thanks, nicely done. Any chance you could tell me how to find the list of
> properties that are available for each entry in the Outlook calendar.
>
> Thanks again,
> Rick
>
>
>
> Fred van der Meulen Wrote:
>
>



Rick

2005-10-27, 7:28 am

Thanks Fred,

Rick

Fred van der Meulen Wrote:

> Hello Rick,
>
> Found another:
> http://www.selectorweb.com/outlook.html
>
> Regards,
> Fred
>
>
> "Rick" <Sportman7@netzero.net> schreef in bericht
> news:QoPFqFX2FHA.328@news-server...
>
>


Sponsored Links





Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive | Programming forum archive

Copyright 2008 droptable.com