ENVIAR EMAIL SEM OUTLOCK

ADILSOO 28/07/2012 15:35:14
#406770
Boas gente;

Estava pesquisando sobre como mandar e-mail[ô]s sem a necessidade do Outlock, e até achei esse método, só que está me retornando um erro que o email foi rejeitado, porque será que acontece isso? alguém sabe me dizer com resolver? obrigado desde já...

Código do E-Mail:
 On Error GoTo erro_envia
        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) = [Ô]smtp.gmail.com[Ô]  [ô][Ô]smtp.mail.yahoo.com.br[Ô]   ‘informe o servidor smtp aqui
             .Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
             .Item(cdoSMTPAuthenticate) = 1
             .Item(cdoSendUserName) = [Ô]meuemail@gmail.com[Ô] [ô] informe o usuario de autenticação
             .Item(cdoSendPassword) = [Ô]minhasenha[Ô]  [ô]Informe a Senha aqui
             .Update
        End With

    With Msg
    
      Set .Configuration = Cof
      
          .To = [Ô]email@hotmail.com[Ô]  [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
          .From = [Ô]meuemail@gmail.com[Ô]  [ô][Ô]contatos@flowsys.com.br[Ô]   [ô]remetente@email.com.br ‘ remetente[Ô]
          .Subject = [Ô]Teste de Assunto (Adilson VB6)[Ô]
          .HTMLBody = [Ô]Teste de Mensagem (Adilson VB6)[Ô]
          [ô].CC = [ô]Informe o ou os destinatários da cópia
          [ô].BCC = [Ô]contatos@flowsys.com.br[Ô]   [ô]Informe o ou os destinatários da cópia oculta
         [ô].AddAttachment “c:    este1.txt;c:    este2.txt” [ô] informe o ou os anexos
          .Send
          MsgBox [Ô]Enviado[Ô]
erro_envia:
MsgBox [Ô]Ocorreu um erro![Ô], vbCritical + vbOKOnly, [Ô]Sistema diz[Ô]
Exit Sub
    End With


Eu achei o exemplo nesse link aqui do fórum mesmo:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=339332

No tópico parece que ele conseguiu mas eu não obtive exito, será que alguém mais experiente pode me dar uma luz? vou postar uma tela do erro também, obrigado desde já, abraços.
ROBSON220BASS 28/07/2012 16:56:29
#406771
bom.. eu usei isto pra fazer um teste e funcionou blz, com um e-mail valido.

verifica o destinatário se é valido.

ou

adapte este codigo para voce.

crie um novo projeto e isira um botao no form:

copie e cole isto no area de codigo do form.

Imports System.Net.Mail
Imports System.Net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

enviar()
End Sub

Public Sub enviar()

Dim msg As New MailMessage([Ô]coloqueseuemailaqui@hotmail.com.br[Ô], emaildestinatarioaquinfe@smbatista.net[Ô])
msg.Body = [Ô]Aqui vai a mensagem que você quiser[Ô]
msg.Subject = [Ô]E aqui é o assunto do e-mail[Ô]

[ô]configure o servidor de email
Dim smtp As New SmtpClient([Ô]smtp.googlemail.com[Ô]) [ô]o servidor smtp da sua conta de email
[ô] Agora seto as credenciais para poder me autenticar
[ô] no servidor...
smtp.Credentials = New NetworkCredential([Ô]seuemail@hotmail.com.br[Ô], [Ô]senha[Ô])
[ô] e aqui enviamos o e-mail...
smtp.Send(msg)
End Sub

End Class
ROBSON220BASS 28/07/2012 16:58:09
#406773
ops... desculpa não observei o topico que esta em vb6.

o codigo que passei é em vb.net ... flw
ALEVALE 30/07/2012 08:13:45
#406808
Para enviar pelo GMAIL é necessário colocar autenticação TLS conforme o erro.

Set .Configuration = Cof
.TLS=true
ADILSOO 02/08/2012 11:08:05
#407078
Oi gente, desculpa a demora, bom, vou fazer os testes e informo aqui, obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar