|
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
|
|
|
| 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
| |
|
| 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:
>
>
| |
|
| 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...
>
>
|
|
|
|
|