Visual Basic para Aplicaciones - Pantalla confirmación correo electronico

Life is soft - evento anual de software empresarial
 
Vista:

Pantalla confirmación correo electronico

Publicado por David (1 intervención) el 23/08/2007 12:04:15
Hola, tengo una duda por la que os solicito ayuda.
Resulta que he realizado un programilla en Visual Basic en el cual en una parte envío una hoja excel por correo electronico a traves del método "Sendmail", pues bien, como sabeis, si todo va bien cuando ejecutar aparece una pantalla de confirmación en la que te advierte que una macro esta intentado enviar un correo y te pide que confirmes. Si le digo que si, todo correcto pero si le digo que "No" e interrumpo la ejecución pues se produce un "error 1004" en tiempo de ejecución con la siguiente nota:

Fallo general en la aplicación del correo. Cierre Microsoft Excel, vuelva a iniciar el sistema de correo e inténtelo de nuevo.

Si de nuevo lo intento y le digo que si quiero mandar el correo va todo bien, pero si le digo que no, vuelve a aparecer el mismo fallo.

Muchas gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Pantalla confirmación correo electronico

Publicado por omat (1 intervención) el 26/08/2007 01:13:36
Pues se me ocurre interceptar el error desde código:

sub cualquiera()
'esto va al inicio de la funcion que usas al enviar el correo
on error goto EtiquetaError

tu codigo que envia el correo
.
.
exit sub

EtiquetaError:
msgbox err.description

end sub

¿Porque pongo el exit sub antes de la etiqueta?
porque si no lo pongo, aunque envíe el corro correctamente entra a la etiqueta.

En la etiqueta no es fososo el mensaje, puedes poner otro codigo para que te haga otra cosa o ejecute otro código
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar