Programmatically posting to a specific Exchange public folder

[Bill Youngman]

Is there a way to post a Word document or an Excel workbook to a specific Exchange public folder w/o having the dialog box pop up prompting the user for the destination folder?

 

TIA,

Bill Youngman

[Alan Perkins]

Hi Bill,

 

I think this is the kind of thing you're looking for

 

Private Sub PostPublic(ByRef wbkX As Excel.Workbook)
Dim objOutl As Outlook.Application
Dim objNS As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim objOLitem As Outlook.PostItem
    Set objOutl = New Outlook.Application
    Set objNS = objOutl.GetNamespace("MAPI")
    Set objFolder = objNS.Folders("Public Folders")
    Set objFolder = objFolder.Folders("All Public Folders")

 

    ' work down to the relevant folder
    Set objFolder = objFolder.Folders("Public Folder 1") 
    Set objFolder = objFolder.Folders("Public Folder 2")
    Set objFolder = objFolder.Folders("Public Folder 3")

    With objFolder.Items.Add(olPostItem)
      .Subject = wbkX.Name
      .Attachments.Add wbkX.FullName
      .Post
    End With
    wbkX.Close savechanges:=False
End Sub

 

You will, of course need a reference to Outlook

 

HTH

 

Alan P.

"Bill Youngman" <byou...@impacthealth.com> wrote in message news:ugLc$SmUBHA.1680@tkmsftngp07...

[Jürgen Häußner]

hi,

interesting, because I have the same problem.
but is it also possible, to post it directly into the folder (without being
an attachment)?

thanks & ciao
jürgen.

"Alan Perkins" <al...@perkins55.freeserve.co.uk> schrieb im Newsbeitrag
news:O#CKIfnUBHA.1384@tkmsftngp05...

[neo [mvp - outlook]]

Yes...

' This is just part of an Outlook 2000/2002 VBA macro
Set objFolder = Application.ActiveExplorer.CurrentFolder
Set colItems = objFolder.Items

Set objDocument = colItems.Add ("IPM.Document.Word.Document.8")

' strFilePath is a string variable that holds the path/filename information
objDocument.Attachments.Add strFilePath
objDocument.Subject = "A Word Document"

' Must set the message class explicitly for Word documents
objDocument.MessageClass = "IPM.Document.Word.Document.8"
objDocument.Save

objDocument.Display

set objDocument = Nothing

"Jürgen Häußner" <juergen....@t-online.de> wrote in message
news:9qad7a$lhu$05$1...@news.t-online.com...

[Jürgen Häußner]

great, thanks
jürgen

"neo [mvp - outlook]" <n...@mvps.org> schrieb im Newsbeitrag
news:#9QOHbDVBHA.2060@tkmsftngp07...

[Bill Youngman]

Thanks, that's exactly what I was looking for.

"neo [mvp - outlook]" <n...@mvps.org> wrote in message
news:#9QOHbDVBHA.2060@tkmsftngp07...