Visual Basic - adjuntos

bien tengo el siguienet codigo

Private Sub Command1_Click()
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "[email protected]"
.MsgSubject = "pffff"
.MsgNoteText = "wooollaaa"
.AttachmentName = "tagopera.txt"
.AttachmentPathName = "c:\tagopera.txt"
.SessionID = MAPISession1.SessionID
.Send
End With
MAPISession1.SignOff
End Sub

el correo me llega bien pero el problema es que el archivo adjunto no me llega como adjunto pero en el cuerpo del mensage

que tengo que hacer para que me llege como adjunto normal??

saludos desde vicenza (italia)