6 Visual Basic ( VB6 ) é tomada da Microsoft sobre a linguagem de programação de computador clássico Basic. A versão VB6 do programa IDE usado para criar software língua e foi a última versão lançada pela Microsoft antes da versão NET . . Os desenvolvedores de software utiliza o Visual Basic 6 para criar uma ampla variedade de aplicações desktop para a plataforma Windows . Os desenvolvedores podem até mesmo adicionar funcionalidade para enviar e-mails através de uma conta do Google Gmail. Instruções
1

Abra o Visual Basic 6 . VB6 vem como um aplicativo independente ou parte do Visual Studio 6 . Se você tem a versão standalone , você pode clicar duas vezes no ícone do VB6 em seu desktop ou clique em " Iniciar", " Todos os Programas", "Microsoft Visual Basic 6 " e "Visual Basic 6 " para abrir o programa. Para o Studio, clique no ícone para abrir o Visual Studio 6 . Clique na aba " Visual Basic" na tela de boas-vindas e , em seguida, optar por abrir um projeto de Visual Basic existentes ou para iniciar um novo.
2

Clique em " Exibir" e em seguida "Código" para mudar codificar vista. Adicionar um procedimento que irá enviar um e-mail através de uma conta do Gmail :

"Sub SendGmail ()

Set emailMsg = CreateObject (" CDO.Message " )

Set config = CreateObject (" CDO.Configuration " )

Definir 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

' mudar a seguinte linha ao seu endereço de e-mail gmail

emailFields.Item ( sch & " sendusername ") = [email protected]

' usar a senha que você usa para entrar em sua conta de e-mail gmail

emailFields.Item ( sch & " sendpassword ") = minhasenha

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

emailsFields.Update

com emailMsg

. To = To ' mudar isso para o destinatário (s ) do e-mail

. From = [email protected] "mudança deste para o seu endereço de e-mail

. Subject = " Enviar um e-mail com o Gmail e VB6 " " mudança de sua linha de assunto

. HTMLBody = "Este é um teste. " ' mudar isso para o corpo do e-mail

Definir . Configuration = configuração

. Enviar
Fim

com

' limpar tudo para próximo e-mail

Definir emailMsg = Nothing

Definir config = Nada

Definir emailFields = Nothing

End Sub "
3

Altere a parte do código que pede suas especificidades , tais como seu endereço de e-mail e senha do Gmail . Os itens que você precisa para mudar é comentada , o que significa que começa com um apóstrofo (' )
4

Clique no ícone "Salvar" na barra de ferramentas para salvar as alterações para o projeto VB6 < . . br>