ENVIAR EMAIL USANDO SMTP?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ENVIAR EMAIL USANDO SMTP?

PASCOAL-PG

PRAIA GRANDE
SP - BRASIL

Postada em 10/07/2008 22:08 hs

COMO ENVIAR EMAIL USANDO SMTP PELO VB 6.0?

OBRIGADO

Milhomens

ARAGUAÍNA
TO - BRASIL

ENUNCIADA !

Postada em 10/07/2008 22:52 hs

Olá, PASCOAL!

Experimente esse código. inclua-lo no evento click de um botão, por exemplo.

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "email_de_quem_envia"
objEmail.To = "email_de_destino"
objEmail.Subject = "assunto"

objEmail.Textbody = "mensagem_em_si"

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'gmail...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user_gmail"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "pass_gmail"

objEmail.Configuration.Fields.Update
objEmail.Send

MsgBox "Enviado!", vbInformation,"E-mail enviado com êxito!"

Espero que isso resolva o seu caso, amigo.

Flw.

TÓPICO EDITADO

PASCOAL-PG

PRAIA GRANDE
SP - BRASIL

ENUNCIADA !

Postada em 11/07/2008 05:48 hs

NÃO DEU CERTO.....ESTA DANDO ERRO NA AUTENTICAÇÃO DO SERVIDOR, TEM ALGUM HELP PARA VER SE ESTOU DONFIGURANDO CERTO?

FICO NO AGUARDO

OBRIGADO......

Milhomens

ARAGUAÍNA
TO - BRASIL

ENUNCIADA !

Postada em 11/07/2008 11:33 hs

Amigo, erros de autenticação em sua maioria, pelo menos neste caso, estão relacionados a Nomes de Usuário e/ou Senhas.

Só uma observação: Você deve autenticar-se como se estivesse entrando na sua conta no Gmail.

ex.:

.../cdo/configuration/sendusername") = "fulano@gmail.com" > nome de usuário gmail

.../cdo/configuration/sendpassword") = "123456" > senha do usuário gmail

e como smtp no gmail exige autenticação, não esqueça de:

.../cdo/configuration/smtpusessl") = true

Boa Sorte.

PASCOAL-PG

PRAIA GRANDE
SP - BRASIL

Postada em 14/07/2008 15:30 hs

NÃO ENTENDI??

O QUE VAI AQUI ? " .../cdo/configuration/sendusername") = "fulano@gmail.com" "

O QUE VAI AQUI ".../cdo/configuration/sendpassword") = "123456" "

O QUE VAI AQUI " .../cdo/configuration/smtpusessl") = true"

PASCOAL-PG

PRAIA GRANDE
SP - BRASIL

ENUNCIADA !

Postada em 14/07/2008 15:31 hs

ESSAS LINHA QUE VC MANDOU COLOCAR JA TINHA E CONTINUA DANDO O ERRO.....

Página(s): 1/3 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR