'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