Cómo enviar un correo electrónico a través de G- Mail en Visual Basic 6

Visual Basic 6 ( VB6 ) es Microsoft a tomar en el lenguaje de programación Basic clásico. La versión VB6 de la lengua y el programa IDE utilizado para crear software fue la última versión lanzada por Microsoft antes de la versión . NET . Los desarrolladores de software utilizan Visual Basic 6 para crear una amplia variedad de aplicaciones de escritorio para la plataforma Windows. Los desarrolladores pueden incluso agregar funcionalidad para enviar correo electrónico a través de una cuenta de Google Gmail . Instrucciones
1

Abra Visual Basic 6. VB6 se presenta como una aplicación independiente o parte de la documentación de Visual Studio 6 . Si usted tiene la versión independiente , puede hacer doble clic en el icono de Visual Basic 6 en el escritorio o haga clic en " Inicio", " Todos los programas", " Microsoft Visual Basic 6 " y luego en " Visual Basic 6 " para abrir el programa. Para el estudio, haga clic en el icono para abrir el Visual Studio 6 . Haga clic en la ficha " Visual Basic " en la pantalla de bienvenida y luego optar por abrir un proyecto existente de Visual Basic o comenzar uno nuevo.

2 Haga clic en "Ver" y luego " Código" para cambiar vista Código . Agregar un procedimiento que va a enviar un correo electrónico a través de una cuenta de Gmail :

"Sub SendGmail ()

Set emailMsg = CreateObject ( " CDO.Message " )

Set config = CreateObject ( " CDO.Configuration " )

Set emailFields = config.Fields

sch = " http://schemas.Microsoft.com/cdo/configuration/"

emailFields.Item ( sch & " SendUsing ") = 2

emailFields.Item ( sch & " smtpserver ") = " smtp.gmail.com "

emailFields.Item ( sch & " SMTPServerPort ") = 465

emailFields.Item ( sch &" SMTPAuthenticate ") = 1

' cambiar la siguiente línea a su dirección de correo electrónico gmail

emailFields.Item ( sch y " sendusername ") = myemailaddress@gmail.com

" utilice la contraseña que utiliza para iniciar sesión en su cuenta de correo electrónico

emailFields.Item gmail ( sch &" sendPassword ") = micontraseña

emailFields.Item ( sch & " SMTPUseSSL ") = 1

emailsFields.Update

emailMsg

. a = a ' cambiarlo por el destinatario ( s ) del email

. Desde myemailaddress@gmail.com = ' cambiar esto a su dirección de correo electrónico

. Subject = "Enviar un correo electrónico con Gmail y VB6 " ' Cambiar a la línea de asunto

. HTMLBody = " esto es una prueba. " ' cambiar esto en el cuerpo del correo electrónico

Set. Configuración = config

. Enviar

End Con

' borrar todo lo que fuera para el siguiente email

emailMsg Set = Nothing

Set config = Nothing

emailFields Set = Nothing

End Sub "
3

cambiar la parte del código que pide sus características específicas , como su dirección de correo electrónico y contraseña de Gmail . Los artículos que usted necesita para cambiar está comentada , lo que significa que comienza con un apóstrofe ( ' )

4 Haga clic en " Guardar" icono en la barra de herramientas para guardar los cambios en el proyecto de VB6 < . . br>