Sección de código fuente Visual basic

Enviar backup por mail - código fuente en vb 6

Ejemplo de un formulario que permite enviar por correo , un backup programado con los archivos que indiquemos , por ejemplo un respaldo de la base de datos de nuestro programa

El formulario permite especificar los días que queremos que se envíe el archivo de backup ( este está en formato zip ) a una cuenta de correo

Los datos se almacenan en un archivo ini ubicado en el directorio del ejecutable. Esos datos son

el nombre del servidor SMTP a utilizar
el puerto
Si el servidor de mail requiere auntentificarse
el nombre de usuario
el password
la lista de archivos para generar el backup
La fecha del último envio
Los días que se tienen que verificar para el envio ( lunes, martes , miércoles etc.. )

El programa no verifica constantemente si debe enviarlo, solo lo hace cuando se inicia el programa ( esto obviamente se puede cambiar usando un timer por ejemplo )

El programa no permite adjuntar un directorio completo, es decir solo permite adjuntar una lista de archivos que se van agregando a un listbox pero en forma individual

El código fuente utiliza una libreria activex llamada XceedZip. Esta libreria es para poder crear el fichero zip, y la misma debe estar registrada correctamente en el sistema

Para enviar el correo se usa la libreria Microsoft CDO, que viene instalda por default junto con el sistema desde la versión windows 2000

formulario para configurar las opciones del envio de backup

Si no disponemos de un servidor de correo, podemos usar uno gratuito por ejemplo el smtp de gmail como se ve en la imagen, o el de yahoo .. aunque no lo he probado

Para poder usar el smtp de gmail , los datos deben ser los siguientes

Nombre del servidor : smtp.gmail.com
Puerto : 465
Usuario : En este caso el nombre de usuario , es el mismo nombre de la cuenta de gmail
Password : el password de gmail
SSL : el valor SSL debe estar en True
Auntetificación : Debe estar en true

Nota: Si al probar sale el siguiente error .. puede ser por lo siguiente :

Error : "553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1)"

Puede ser que falló la validación con el servidor de correo SMTP. por ejemplo un nombre de usuario y contraseña incorrecto, o por que el SMTP requiere autentificación, y no la hemos especificado en el checkbox

Otro error en el caso de usar el smtp de gmail , se puede dar cuando se envía un archivo zip que tenga un ejecutable u otros archivos, ya que el servidor los filtra

Nota: en el momento de enviar un mail, se muestra un formulario con un progressbar que se pone always on top. Entonces para depurar el programa , puede ser mejor desactivar o quitarlo del proyecto para que sea mas cómodo

Descargar

Recursos vb6 - enlaces

crear copias y respaldos de base de datos en sql server

Buscar en Recursos vb