Microsoft KB Archive/176535

= How To Save Attachments to File with MSMAPI.VBX or MSMAPI.OCX =

Article ID: 176535

Article Last Modified on 7/13/2004

-

APPLIES TO


 * Microsoft Visual Basic 6.0 Learning Edition
 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition
 * Microsoft Visual Basic 5.0 Control Creation Edition
 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 Standard Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 16-bit Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q176535



SUMMARY
The MAPIMessage Control has procedures to attach and remove attachments from a message, but nothing apparent to allow writing the attachment back out to a permanent file. This article contains a code sample demonstrating how this can be done.



MORE INFORMATION
When a message that contains an attachment is opened, any attachments are written to the system's temp directory. The path and filename to this temporary file are stored in the AttachmentPathName property of the message.

You can copy the file as desired using the Visual Basic FileCopy file function.

NOTE: The filename is in 8.3 format, so long filenames will be lost.

The following code sample demonstrates how to access the path and filename to the temporary file and copy the temporary file to the Root of drive C:

Sub Form_Load mapisession1.Action = 1 'session_signon mapimessages1.SessionID = mapisession1.SessionID mapimessages1.FetchUnreadOnly = True mapimessages1.Action = 1 'message_fetch Dim i As Integer For i = 0 To mapimessages1.AttachmentCount - 1 mapimessages1.AttachmentIndex = i          Dim intLenFileName As Integer Dim intStrPos As Integer intLenFileName = Len(mapimessages1.AttachmentPathName) For intStrPos = intLenFileName To 1 Step -1 If InStr(1, _                       Right$(mapimessages1.AttachmentPathName, _ intLenFileName - (intStrPos - 1)), _                       "\", 1) Then strNewFileName = _ Right$(mapimessages1.AttachmentPathName, _                            intLenFileName - intStrPos) Exit For End If          Next FileCopy mapimessages1.AttachmentPathName, _ "c:\" & strNewFileName Next End Sub

Additional query words: MAPI kbVBp400 kbVBp500 kbVBp600 kbMapi kbdse kbDSupport kbVBp

Keywords: kbhowto KB176535

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.