B Christensen
Guest
|
 Posted:
Thu Dec 08, 2005 12:17 am Post subject:
Outlook 2003 drag-and-drop problem |
|
|
We have been using the vbscript CreatePF function shown below to create
Public Folders for a couple of years. Shortly after upgrading our users to
Office 2003 we discovered that users could not use drag-and-drop to move
mail items from Inboxes to folders that had been created with the CreatePF
function. Right-clicking and choosing "move to folder" still worked.
By googling around we found that some vbscript sources use "
Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") " while
others use "
Fields("http://schemas.microsoft.com/exchange/outlook/outlookfolderclass")
". Tests showed that if a mail-folder was created with
"...outlook/outlookfolderclass", then we could drag-and-drop mails to the
folder, but if we used "...outlook/outlookfolderclass" to create calendar or
contact folders, then those folders "lost" their content class information
and were created as mail folders (or just folders).
So the question basically is, what is the right way to create mail, calendar
and contact folders using CDO? And should we use something else than CDO?
Thanks in advance,
- Bent
--------------------------
CreatePF "http://pf-server/public/projects/projectname_mails", "LotaMails",
"mail"
function CreatePF(Url, Description, FType)
Set cdoNewPF = CreateObject("CDO.Folder")
With cdoNewPF
.Description = Description
select Case LCase(FType)
Case "calendar"
.ContentClass = "urn:content-classes:calendarfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass")
= "IPF.Appointment"
Case "contacts"
.ContentClass = "urn:content-classes:contactsfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass")
= "IPF.Contact"
Case else 'default to mail-folder
.ContentClass = "urn:content-classes:mailfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass")
= "IPF.Mail"
end select
.Fields.Update
.DataSource.SaveTo Url
end With
Set cdoNewPF = Nothing
end function
|
|
Tom Rizzo [MSFT]
Guest
|
| Posted:
Mon Dec 19, 2005 5:58 pm Post subject:
Re: Outlook 2003 drag-and-drop problem |
|
|
I would also reach in using MAPI to set the content class of the folder
manually to IPF.whatever. I've never seen this problem before though. . . .
Tom
--
Looking for a good book on Exchange, Outlook and SharePoint? Check out
http://www.microsoft.com/mspress/books/5517.asp
"B Christensen" <bvc@nospammer.cowi.dk> wrote in message
news:eepvvp1%23FHA.828@TK2MSFTNGP10.phx.gbl...
| Quote: | We have been using the vbscript CreatePF function shown below to create
Public Folders for a couple of years. Shortly after upgrading our users to
Office 2003 we discovered that users could not use drag-and-drop to move
mail items from Inboxes to folders that had been created with the CreatePF
function. Right-clicking and choosing "move to folder" still worked.
By googling around we found that some vbscript sources use "
Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") " while
others use "
Fields("http://schemas.microsoft.com/exchange/outlook/outlookfolderclass")
". Tests showed that if a mail-folder was created with
"...outlook/outlookfolderclass", then we could drag-and-drop mails to the
folder, but if we used "...outlook/outlookfolderclass" to create calendar
or contact folders, then those folders "lost" their content class
information and were created as mail folders (or just folders).
So the question basically is, what is the right way to create mail,
calendar and contact folders using CDO? And should we use something else
than CDO?
Thanks in advance,
- Bent
--------------------------
CreatePF "http://pf-server/public/projects/projectname_mails",
"LotaMails", "mail"
function CreatePF(Url, Description, FType)
Set cdoNewPF = CreateObject("CDO.Folder")
With cdoNewPF
.Description = Description
select Case LCase(FType)
Case "calendar"
.ContentClass = "urn:content-classes:calendarfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") =
"IPF.Appointment"
Case "contacts"
.ContentClass = "urn:content-classes:contactsfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") =
"IPF.Contact"
Case else 'default to mail-folder
.ContentClass = "urn:content-classes:mailfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") =
"IPF.Mail"
end select
.Fields.Update
.DataSource.SaveTo Url
end With
Set cdoNewPF = Nothing
end function
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in