ENVIAR EMAIL COM APLICACAO VB-6

KARY92 02/01/2012 09:38:28
#392246
Gente é o seguinte...

Preciso incorporar a uma aplicação um script que faça um e-mail ser enviado para mim quando um formulário do projeto for acessado.
Eu li alguns tópicos que encontrei no Google em falam ser possivel enviar e-mail com o Winsock...ouvi também sobre outros componentes como o PY.SendMail...
então fiquei na dúvida....qual o melhor para ser usado ?

o e-mail que receberá a mensagem é no GMail, mas quero deixar a opção de mudar o servidor...tipo para Yahoo, Hotmail, Bol, Uol e etc...

Obrigada !
KARY92 02/01/2012 11:11:07
#392259
Oiêêê !

Achei esse script no site:

Private Sub EnvioDeEmail()
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp

Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
  

With Camp
  .Item(cdoSendUsingMethod) = 2   [ô] cdoSendUsingPort
  .Item(cdoSMTPServer) = [Ô]Servidor.SMTP[Ô]
  .Item(cdoSMTPConnectionTimeout) = 10 [ô] quick timeout
  .Item(cdoSMTPAuthenticate) = 1
  .Item(cdoSendUserName) = [Ô]Usuario[Ô]
  .Item(cdoSendPassword) = [Ô]Senha[Ô]
  .Update
  
End With

With Msg
  Set .Configuration = Cof
      .To = [Ô][Ô][Ô]user[Ô][Ô] <email@email.com>[Ô]
      .From = [Ô][Ô][Ô]user[Ô][Ô] <email@email.com>[Ô]
      .Subject = [Ô]Teste de CDOSYS[Ô]
      .Send
End With

End Sub


Gostei do modelo CDO.SYS mas tenho dúvidas...

sou obrigada a colocar meu usuário e senha para enviar o e-mail ???

GOODSPEAKERS => Obrigada viu ?! vou tentar com o CDO.SYS !
KARY92 02/01/2012 14:35:24
#392273
Obrigada Barros !

só mais uma coisinha... com o CDO.SYS é possivel receber email ou é apenas para envio ??? só por curiosidade.
KARY92 02/01/2012 16:24:11
#392288
Ajuda !!!

Se envio para endereços do Yahoo funciona muito bem, mas se tento enviar para endereços do GMail apresenta este erro:
[txt-color=#e80000]Erro Run-Time [ô]-2147220978[ô]

O servidor rejeitou o endereço do remetente. A resposta do servidor foi 530 5.7.0
Must issue a STARTTLS command first.
h11sm26733601and.21[/txt-color]

O que é isso !
KARY92 02/01/2012 17:46:15
#392295
Deixei a configuração do CDO.Configuration assim:

.Item(cdoSendUsingMethod) = 2 
  .Item(cdoSMTPServer) = CbMail.Text
  .Item(cdoSMTPServerPort) = 587
  .Item(cdoSMTPConnectionTimeout) = 15
  .Item(cdoSMTPAuthenticate) = cdoBasic
  .Item(cdoSMTPUseSSL) = True
  .Item(cdoSendUserName) = vUser
  .Item(cdoSendPassword) = vPass
  .Update


E está dando este erro agora:
[txt-color=#e80000]Falha na conexão do transporte com o servidor.[/txt-color]
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar