ABCdatos
ABCdatos tu página de inicio Inicio       

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

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

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

Notapor wizardofoz » Sab Dic 14, 2002 4:53 pm

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
Novat@
 
Mensajes: 2
Registrado: Sab Dic 14, 2002 4:36 pm

ah, se me olvidaba...

Notapor wizardofoz » Sab Dic 14, 2002 4:56 pm

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.
wizardofoz
Novat@
 
Mensajes: 2
Registrado: Sab Dic 14, 2002 4:36 pm

Notapor ABCdatos » Dom Dic 15, 2002 4:46 am

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.
Equipo ABCdatos.
http://www.abcdatos.com/
Avatar de Usuario
ABCdatos
Administrador foro
 
Mensajes: 680
Registrado: Dom Mar 03, 2002 1:00 am

Gracias por la respuesta!!!!!!!!!!

Notapor Invitado » Dom Dic 15, 2002 6:05 pm

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.
Avatar de Usuario
Invitado
 


Volver a Programación

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados

Creado con phpBB3 © 2000, 2002, 2005, 2007 Grupo phpBB
Copyright © 1999-2014 ABCdatos.com. Todos los derechos reservados.
Aviso legal. Políticas de privacidad y cookies.
Contactar con ABCdatos.