Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MS Outlook Global address list NOT FOUND!!!
Message
De
02/06/1999 10:53:51
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00225077
Message ID:
00225364
Vues:
15
-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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform