G
Guest
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
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