Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MS Outlook Global address list NOT FOUND!!!
Message
From
02/06/1999 10:53:51
 
 
To
02/06/1999 09:52:35
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00225077
Message ID:
00225364
Views:
17
-SNIP-
>How would I navigate to the folder using code?
>
>Thank you for the help.
>
>Regards,
>
>Ed Hill
>
I suppose we are talking about a Outlook folder. Here's a VB Script code snippet that I use to publish custom forms to a user's Inbox. The first part gets a reference to a public folder, that in effect is navigating through folders. Hope this helps:
  'Get user's default Inbox folder and Public folder
  Set oNS = Application.GetNameSpace("MAPI")
  Set myInbox = oNS.GetDefaultFolder(6)
  Set pfs = oNS.Folders("Public Folders")
  Set apfs = pfs.Folders("All Public Folders")
  Set mtls = apfs.Folders("Materials")
  Set beta = mtls.Folders("e-Purchase Requisition")

  'Publish EPR create to user's Inbox
  Set cform = beta.Items.Add("IPM.Note.ElectronicPR")
  If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description
  Else
    Set Response_Form = cForm.FormDescription
    Response_Form.Name = "Electronic Purchase Request"
    Response_Form.PublishForm 3, myInbox
    cform.Close 1
  End If
Previous
Reply
Map
View

Click here to load this message in the networking platform