With VBA you can forget about Extended MAPI, it's only C++ and Delphi.

CDO is an optional installation for Outlook, it's on the Office CD's.
Redemption is a third party library.

This is what it would look like in CDO code:

'assuming you have CDO installed and a reference set to Microsoft CDO 1.21
Library (CDO.DLL)
' also assuming a folder olFolder has been instantiated:

Dim Folder As MAPI.Folder
Dim oSession As MAPI.Session

Const PR_DEF_POST_MSGCLASS = &H36E5001E
Const PR_DEF_POST_DISPLAYNAME = &H36E6001E

Set oSession = CreateObject("MAPI.Session")
oSession.Logon "", "", False, False

Set oFolder = oSession.GetFolder(olFolder.EntryID, olFolder.StoreID)

If IsEmpty(oFolder.Fields(PR_DEF_POST_MSGCLASS)) Then
oFolder.Fields.Add(PR_DEF_POST_MSGCLASS, "IPM.Contact.MyContact")
Else
oFolder.Fields(PR_DEF_POST_MSGCLASS).Value = "IPM.Contact.MyContact"
End If

If IsEmpty(oFolder.Fields(PR_DEF_POST_DISPLAYNAME)) Then
oFolder.Fields.Add(PR_DEF_POST_DISPLAYNAME, "My Contact Form")
Else
oFolder.Fields(PR_DEF_POST_DISPLAYNAME).Value = "My Contact Form"
End If

oFolder.Update 'save

oSession.Logoff

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


"Dirk" wrote in message
...
Hi Ken,
thanks for your answer. I never used these lower level APIs before, so I
have to find out how to use them in VBA. Would be nice, if anyone has
helpful
hints.