Re: CDO and Folder Home Page

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

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


<kc2kth@xxxxxxxx> wrote in message news:1183732165.908088.65710@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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#2270fac9f34589fb), 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,"020000000100000001000000000000000000000000000000000000000000000000000000000000002C00000068007400740070003A002F002F0061007200630068006900760065006D0061006E0061006700650072000000"


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


.

Relevant Pages

  • CDO and Folder Home Page
    ... 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. ... Set CdoNewFolder = CdoRootFolder.Folders ...
    (microsoft.public.outlook.program_vba)
  • Re: POE with IO::Socket
    ... I have 200 lines of working code. ... where I am writing a whofunction and I realise that I need receive ... I asked on #perl on freenode and they directed me to POE. ... Can I implement POE without changing all my code which is based on ...
    (perl.beginners)
  • Re: POE with IO::Socket
    ... I have 200 lines of working code. ... where I am writing a whofunction and I realise that I need receive ... I asked on #perl on freenode and they directed me to POE. ... Can I implement POE without changing all my code which is based on ...
    (perl.beginners)
  • Re: Getting the decimal points to line up!
    ... If you are using old working code that uses a P, ... If you are writing new code, ... the P descriptor is a holdover from the good ... work or thet unnecessarily killed trees. ...
    (comp.lang.fortran)