AYUDA PLEASE con VISUAL BASIC, es urgente!!!!!!!

[wizardofoz]

Hola, resulta que mi profe nos ha hecho hacer un formulario de Visual Basic, la función del qual es enviar mails ya archivos adjuntos junto al mail. El programa se basa en el outlook, pero no hace falta entrar en el, para utilizarlo, sino que hace como de puente.Y resulta que me da un fallo, pero no consigo adivinar lo que puede ser y me estoy volviendo loco.Este es el codigo del programa.Si alguien me ayuda se lo agradeceria mucho, ya que el tio ese es capaz de suspenderme solo porque no me va esa práctica. Un saludo y gracias!!!!!!!!!

Private WithEvents mOutlook As Outlook.Application
Private WithEvents Mail As Outlook.MailItem
Private attachment As Outlook.Attachments
________________________
Private Sub cmdcancel_Click()
txtsubject.Text = ""
txtadreça.Text = ""
txtmissatge.Text = ""
mOutlook.Quit
End Sub
________________________
Private Sub cmdenviar_Click()
Set Mail = mOutlook.CreateItem(olMailItem)

Set attachment = Mail.Attachments

Mail.To = txtadreça.Text
'El mail va dirigit a la direcció que correspon al text que hi ha en la textBox
Mail.Subject = txtsubject.Text
Mail.Body = txtmissatge.Text

If (Drive1.Drive + "\") = Dir1.Path Then
Path = Drive1.Drive + "\" + File1.FileName

Else
Path = File1.Path + "\" + File1.FileName
End If
attachment.Add Path, olByValue, 1, "Arxiu adjunt"

attachment.Add Path = Drive1 + "\" + Dir1.Path + "\" + File1.Path & File1.List(File1.ListIndex), olByValue, 1, "Archivo adjunto"
Mail.Send

End Sub
_______________________
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1 = Drive1

End Sub
_____________________________
Private Sub Form_Load()
Set mOutlook = New Outlook.Application
End Sub
__________________________
Private Sub cmdexit_Click()
Unload Me
End Sub

[wizardofoz]

El fallo me lo da en el path, aunque creo que debe ser que falta un apuntador o algo de eso. Lo he probado con los dos paths que hay en el codigo y no funciona bien con ninguno. Un saludo y gracias de nuevo.

[ABCdatos]

Observa el contenido de la variable Path en el momento del error, sea con una instrucción MsgBox Path antes de la línea que causa el error, o con un Debug.Print Path en el entorno de desarrollo cuando se detenga, eso te dará una pista acerca de lo que falla.

Saludos.

[Invitado]

Ya he conseguido, que no me de ningun error pero lo que pasa ahora es que el mensaje no lo envia, solo lo pone en la bandeja de salida del Outlook. Seguiré probando. Un saludo y gracias de nuevo.