I am trying to send a daily report to a Public Folder in Outlook. The folder
name is "Public Folders\UK\Finance Reports\Material Results" (assuming that
\ is used to split up the sub folders).


My code so far is

Public Sub PostOutlookFolder(strFileName)
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myPost As Outlook.PostItem
Dim myAttachs As Outlook.Attachments
Dim myAttach As Outlook.Attachment

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myPost = myOlApp.CreateItem(olPostItem)
Set myAttachs = myPost.Attachments
Set myAttach = myAttachs.Add(strFileName, olByValue, 1, "Material Result")

myPost.Subject = "Material Result - " & Format(Now() - 1)

myPost.Post
Set myAttach = Nothing
Set myAttachs = Nothing
Set myPost = Nothing
Set myNameSpace = Nothing
myOlApp.Quit
Set myOlApp = Nothing
End Sub

This posts to my inbox. How do I set the folder to post to, I cannot see the
appropriate property / method.

Thanks in advance
--
Tony Green

OK found my error with help from VBA forum. I need to create a folder and use
add item. Create item always creates in the inbox
--
Tony Green


"ADG" wrote:

I am trying to send a daily report to a Public Folder in Outlook. The folder
name is "Public Folders\UK\Finance Reports\Material Results" (assuming that
\ is used to split up the sub folders).


My code so far is

Public Sub PostOutlookFolder(strFileName)
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myPost As Outlook.PostItem
Dim myAttachs As Outlook.Attachments
Dim myAttach As Outlook.Attachment

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myPost = myOlApp.CreateItem(olPostItem)
Set myAttachs = myPost.Attachments
Set myAttach = myAttachs.Add(strFileName, olByValue, 1, "Material Result")

myPost.Subject = "Material Result - " & Format(Now() - 1)

myPost.Post
Set myAttach = Nothing
Set myAttachs = Nothing
Set myPost = Nothing
Set myNameSpace = Nothing
myOlApp.Quit
Set myOlApp = Nothing
End Sub

This posts to my inbox. How do I set the folder to post to, I cannot see the
appropriate property / method.

Thanks in advance
--
Tony Green