Visual Basic - Problemas al hacer correo y enviar archivo atachad

Estoy haciendo un aplicacion de correo para enviar archivos atachado pero cuando lo ejecuta me sale una ventanita donde aparece Outlook (deja de salir cuando abro el Outlook ) pero siempre me sale "sesion no es valida" por favor alguien ayudeme......aqui detallo el codigo...
/------------------------------------------------------------------------------------------------/

Public Ruta As String
Public File As String
Private Sub Adjuntar_Click()
Me.CommonDialog1.ShowOpen
AdjuntarA.Text = CommonDialog1.FileName
Ruta = CurDir(CommonDialog1.FileName)
If Mid(Ruta, Len(Ruta), 1) <> "\" Then
Ruta = Ruta & "\"
End If
File = CommonDialog1.FileTitle
End Sub
Private Sub AdjuntarA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
AdjuntarA.ToolTipText = CommonDialog1.FileName
End Sub

Private Sub Enviar_Click()
EnviarEmail
End Sub
Private Sub EnviarEmail()
MAPISession1.SignOn
MAPIMessages1.SessionID = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Correo
MAPIMessages1.MsgSubject = Asunto
MAPIMessages1.MsgNoteText = Menzaje
MAPIMessages1.MsgReceiptRequested = True
'atachar archivo ***********************************
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPosition = 0
MAPIMessages1.AttachmentPathName = Ruta
MAPIMessages1.AttachmentName = File
'/***************************************************
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub