Folder pick

  • Thread starter Thread starter VB_Prog
  • Start date Start date
V

VB_Prog

Hi All,
This works with my copy of Outlook 2003, but for some reason does not work
for someone else using Outlook 2000:

Private Sub cmdPickFolder_Click()
Dim objNS As NameSpace
Dim objFolder As MAPIFolder

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If TypeName(objFolder) <> "Nothing" Then
If objFolder.DefaultItemType <> olMailItem Then
MsgBox "Folder does not appear to be a mail folder!", _
vbExclamation, modControl.PROGRAM_NAME
chkMoveMsg.Value = 0
Exit Sub
End If
strFldID = objFolder.EntryID
strStoreID = objFolder.StoreID
txtFolder.Text = objFolder.FolderPath
chkMoveMsg.Value = 1
End If
End Sub

They get:
- Dialog appears with the following message: "Run-time error '438': Object
doesn't support this property or method".
- Select OK, and they get another dialog: "Run-time error '440': Automation
Error"

Does anyone know why?
 
Back
Top