WD: Password Disappears from Document Sent in Mail

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for the Macintosh, versions 6.0, 6.0.1, 6.0.1a
• Microsoft Word for Windows 95, versions 7.0, 7.0a

SYMPTOMS

When you send a password-protected document as an attachment from Word using the Send command on the File menu, the recipient is not prompted for a password when opening the file from the mail message.

CAUSE

When Word sends a document, it does not retain all the document properties.

STATUS

Microsoft has confirmed this to be a problem in the Word versions listed above. This problem was corrected in Microsoft Word 97 for Windows and Microsoft Word 98 Macintosh Edition.

RESOLUTION

To resolve this problem, upgrade to the latest version of Microsoft Word.

To work around this problem, use either of the following methods.

Method 1 (Word 6.x and 7.x)

To retain password protection, attach password-protected documents from within your mail program instead of sending them from Word.

Method 2 (Word 6.x for Windows Only)

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

   http://www.microsoft.com/supportnet/refguide/ 

   Declare Function MAPISendDocuments Lib "WBMAPI"(UIParam as Long,
        DelimChar As String,
        FilePaths As String,
        FileNames As String,
        Reserved As Long) As Integer

   Sub MAIN
        FileSave
        Dim DocName As DocumentStatistics
        GetCurValues DocName
        DocPath$ = DocName.Directory + "\" + DocName.FileName
        result = MAPISendDocuments(0, ";", DocPath$, DocName.FileName, 0)
   End Sub