Hola
Tengo un problema y pienso que puede ser un bug. Espero podais ayudarme.
He estado haciendo un programa que envia un correo. Para las pruebas he asignado a una variable la dirección de correo de destino y enviaba el correo bien. Al utilizar un panel para la adquisión de los datos del host y las direcciones de correo fuente (servidor) y destino, he comprobado que si se modifica la variable que contiene la dirección de correo destino el correo no se envia. Solo se envia el correo si la variable con la dirección no se modifica, tambien se envia si se utiliza un string con la dirección de correo directamente.
Resumiendo:
- Envia correo si se utiliza un string con la dirección de correo:
SMTP.To.Add("[email protected]")
- Envia correo si la variable contiene dirección de correo y no se modifica:
SMTP.To.Add(SMTP_Destino)
- NO ENVIA correo si la variable recibe algún valor:
SMTP_Destino = Edt_Destino.Text
SMTP.To.Add (SMTP_Destino)
Adjunto ejemplo del programa para poder comprobar el fallo.
En la Sub Envia_mail descomentar alguna de las 2 lineas para comprobar el fallo.
Mientras se envía o intenta enviar el correo aparece una bola azul.
Tengo un problema y pienso que puede ser un bug. Espero podais ayudarme.
He estado haciendo un programa que envia un correo. Para las pruebas he asignado a una variable la dirección de correo de destino y enviaba el correo bien. Al utilizar un panel para la adquisión de los datos del host y las direcciones de correo fuente (servidor) y destino, he comprobado que si se modifica la variable que contiene la dirección de correo destino el correo no se envia. Solo se envia el correo si la variable con la dirección no se modifica, tambien se envia si se utiliza un string con la dirección de correo directamente.
Resumiendo:
- Envia correo si se utiliza un string con la dirección de correo:
SMTP.To.Add("[email protected]")
- Envia correo si la variable contiene dirección de correo y no se modifica:
SMTP.To.Add(SMTP_Destino)
- NO ENVIA correo si la variable recibe algún valor:
SMTP_Destino = Edt_Destino.Text
SMTP.To.Add (SMTP_Destino)
Adjunto ejemplo del programa para poder comprobar el fallo.
En la Sub Envia_mail descomentar alguna de las 2 lineas para comprobar el fallo.
Mientras se envía o intenta enviar el correo aparece una bola azul.