Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)
-   -   CDO and Folder Home Page (http://www.outlookbanter.com/outlook-vba/51975-cdo-folder-home-page.html)

[email protected] July 6th 07 04:29 PM

CDO and Folder Home Page
 
I'm having a problem getting the last piece of a project together. I
need to be able to write a home page value and associated info (enable
it, etc.) via CDO. Unfortunately the Outlook Object Model won't work
for this case. Note I am working in vbscript here.

Anyhow, I've referenced a posting from Sue Mosher from a year or so
ago in this group (http://groups.google.com/group/
microsoft.public.outlook.program_vba/browse_frm/thread/
fe30a84f1c346e48/2270fac9f34589fb?
lnk=st&q=PR_FOLDER_WEBVIEWINFO&rnum=6&hl=en#2270fa c9f34589fb), which
provides some great info. However, I haven't been able to translate
that into working code.

I've tried writing each value to the property individually as well as
tried writing the data to the property as a single hex vbblob. Neither
has worked. Writing as a single vbblob gave no feedback at all, while
writing the values individually returned an "INVALIDARG" error.

Any input would be greatly appreciated as I've run out of ideas and I
can't find very much information on this process at all.

Here is a small section of the code I've been working with (picking up
after the session is established):

Set CdoInbox = CdoSession.Inbox
Set CdoInfostore = CdoSession.GetInfostore(CdoInbox.StoreID)
Set CdoRootFolder = CdoInfostore.RootFolder

'On Error Resume Next
Set CdoNewFolder = CdoRootFolder.Folders("VB2Test")
'If CdoNewFolder is Nothing Then
' Set CdoNewFolder = CdoRootFolder.Folders.Add("VB2Test")
'End If

Set CdoFields = CdoNewFolder.Fields

CdoNewFolder.Fields.Add
"0x36DF0102",vbBlob,"02000000010000000100000000000 00000000000000000000000000000000000000000000000000 02C00000068007400740070003A002F002F006100720063006 8006900760065006D0061006E0061006700650072000000"


'CdoNewFolder.Fields.Add "0x36DF0102",vbBlob,"dwType","1"
'CdoNewFolder.Fields.Add "&H36DF0102",vbBlob,"dwFlags","0x00000001"


Ken Slovak - [MVP - Outlook] July 6th 07 07:39 PM

CDO and Folder Home Page
 
You need to set your data as an array of binary bytes. Then when you write
the data you need to do something like this:

CdoNewFolder.Fields.Add &H36DF0102, vbByte, dataArray

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


wrote in message
ups.com...
I'm having a problem getting the last piece of a project together. I
need to be able to write a home page value and associated info (enable
it, etc.) via CDO. Unfortunately the Outlook Object Model won't work
for this case. Note I am working in vbscript here.

Anyhow, I've referenced a posting from Sue Mosher from a year or so
ago in this group (http://groups.google.com/group/
microsoft.public.outlook.program_vba/browse_frm/thread/
fe30a84f1c346e48/2270fac9f34589fb?
lnk=st&q=PR_FOLDER_WEBVIEWINFO&rnum=6&hl=en#2270fa c9f34589fb), which
provides some great info. However, I haven't been able to translate
that into working code.

I've tried writing each value to the property individually as well as
tried writing the data to the property as a single hex vbblob. Neither
has worked. Writing as a single vbblob gave no feedback at all, while
writing the values individually returned an "INVALIDARG" error.

Any input would be greatly appreciated as I've run out of ideas and I
can't find very much information on this process at all.

Here is a small section of the code I've been working with (picking up
after the session is established):

Set CdoInbox = CdoSession.Inbox
Set CdoInfostore = CdoSession.GetInfostore(CdoInbox.StoreID)
Set CdoRootFolder = CdoInfostore.RootFolder

'On Error Resume Next
Set CdoNewFolder = CdoRootFolder.Folders("VB2Test")
'If CdoNewFolder is Nothing Then
' Set CdoNewFolder = CdoRootFolder.Folders.Add("VB2Test")
'End If

Set CdoFields = CdoNewFolder.Fields

CdoNewFolder.Fields.Add
"0x36DF0102",vbBlob,"02000000010000000100000000000 00000000000000000000000000000000000000000000000000 02C00000068007400740070003A002F002F006100720063006 8006900760065006D0061006E0061006700650072000000"


'CdoNewFolder.Fields.Add "0x36DF0102",vbBlob,"dwType","1"
'CdoNewFolder.Fields.Add "&H36DF0102",vbBlob,"dwFlags","0x00000001"



[email protected] July 6th 07 09:27 PM

CDO and Folder Home Page
 
On Jul 6, 1:39 pm, "Ken Slovak - [MVP - Outlook]"
wrote:
You need to set your data as an array of binary bytes. Then when you write
the data you need to do something like this:

CdoNewFolder.Fields.Add &H36DF0102, vbByte, dataArray

--
Ken Slovak
[MVP - Outlook]http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Optionshttp://www.slovaktech.com/products.htm



Thanks Ken,

Not being real familiar with the tools I'm using here, I'm not sure
I'd know where to look for help on how to do what you suggest
(although I just received the same suggestion in another forum).

Would you or anyone else here be able to point me to any resource that
may be helpful in dealing with this specific task, keeping in mind I'm
not well versed in VB/VBScript (that seems to be rapidly changing
however)?

Thank you for the reply!


Ken Slovak - [MVP - Outlook] July 8th 07 08:04 PM

CDO and Folder Home Page
 
For CDO the best is www.cdolive.com, especially www.cdolive.com/cdo5.htm and
/cdo10.htm. However, there are some mistakes there and the material hasn't
been updated in years.

Use the link at http://www.cdolive.com/cdo.htm to download the CDO Help,
that's got some useful examples.

For general Outlook coding, with some CDO snippets definitely
www.outlookcode.com.

If you can find it on the used market Professional CDO Programming from Wrox
Press by Sig Weber, Dan Mitchell, etc. is really the only game in town.

Posting here is good too. I used to program extensively with CDO until
Redemption came around and Sue and Dmitry also know CDO.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


wrote in message
oups.com...
snip
Thanks Ken,

Not being real familiar with the tools I'm using here, I'm not sure
I'd know where to look for help on how to do what you suggest
(although I just received the same suggestion in another forum).

Would you or anyone else here be able to point me to any resource that
may be helpful in dealing with this specific task, keeping in mind I'm
not well versed in VB/VBScript (that seems to be rapidly changing
however)?

Thank you for the reply!




All times are GMT +1. The time now is 07:10 AM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com