Word 97 Class Module to Post document to folder w/o UI

Attached is a Word 97 class module that will post a Word document to a MAPI folder, without displaying a user interface. With a little effort you should be able to post any Office document to a folder. Also, you should be able to use this in any VBA environment, for example Excel 97, VB 5.0. NOTE: In VB 5.0 you will need to use a reference to an office library (Word) or the Office Compatible library. NOTE: It makes use of Active Messaging 1.1, so you will need a reference to this library in your project.

'
' Routine to test posting a document
'

Sub TestPostedDocument()
Dim pd As New PostedDocument
Set pd.Document = ActiveDocument
' put into a public folder, using full path
pd.FolderPath = "\Public Folders\All Public Folders\Documents"
' put into users mailbox, using relative path
pd.FolderPath = "Test"
If pd.Post Then
Debug.Print "Document posted"
Else
Debug.Print "Document not posted!"
End If
End Sub

Download Posted.Zip