PRB: ReadFromFile() Fails for Attachment of Type CdoOle

MORE INFORMATION

Steps to Reproduce Behavior

1. Open the Microsoft Paint accessory and draw something. Save it as "Test.bmp" in a folder, for example "C:\Temp".
2. In a new message in Outlook, select Object from the Insert menu. Select "Create from file" to insert your picture "Test.bmp" into the newly-created message.
3. Send the newly-created message to yourself (or someone else).
4. Make sure the message received from the above steps is the first message in your Inbox. (This is because the code below will only test the first message in the Inbox.)
5. Create a Visual Basic project and put a button on the form.
6. Add Microsoft CDO (1.1, 1.2, 1.21) to the Project References.
7. Paste the code below into the project.

        ' The code below assumes a reference to the CDO (1.1, 1.2, 1.21)
        ' Library. However if you are using CDO (1.1), then you must
        ' change the name of the Cdo_PR_ATTACH_NAME constant to instead
        ' be ActMsgPR_ATTACH_NAME
        '
        Option Explicit
   
        Dim objSession As MAPI.Session
        Dim myMsg As MAPI.Message
        Dim newMsg As MAPI.Message
        Dim myAttach As MAPI.Attachment
        Dim newAttach As MAPI.Attachment
   
        Private Sub Command1_Click()
   
          Set objSession = CreateObject("MAPI.Session")
          objSession.Logon
          MsgBox "CDO version = " & objSession.Version
   
          Set myMsg = objSession.Inbox.Messages.GetFirst
          'MsgBox "myMsg.Subject is: " & myMsg.Subject
   
          Set myAttach = myMsg.Attachments.Item(1)
          'MsgBox "Attach Name is : " & myAttach.Name
          'MsgBox "Attach Type is : " & myAttach.Type
          'MsgBox "Attach Class is : " & myAttach.Class
          'MsgBox "Attach Method is : " & myAttach.Fields(CdoPR_ATTACH_METHOD)
   
          myAttach.WriteToFile "C:\temp\attach.bmp"
   
          Set newMsg = objSession.Outbox.Messages.Add
          newMsg.Subject = "Re: " & myMsg.Subject
          newMsg.Text = "Re: " & myMsg.Text
   
          Set newAttach = newMsg.Attachments.Add
          newAttach.Name = "attach.bmp"
          newAttach.Type = myAttach.Type
          newAttach.Position = myAttach.Position
   
          newAttach.ReadFromFile "C:\temp\attach.bmp"
   
   
          newMsg.Update
          objSession.Logoff
        End Sub
   					

8. Run the code.
9. The following line will generate one of the messages described in the preceding Symptoms section.

          newAttach.ReadFromFile "C:\temp\attach.bmp"
   					

    newAttach.Type = myAttach.Type
				

    newAttach.Type = CdoFileData      'For CDO (1.2 or 1.21)
				

    newattach.Type = ActMsgFileData   'For CDO (1.1)