[Resolvido] Problemas de envio de Email com SMTP

[zarino 0]

E ae galera, assim, criei uma classe bem simples pra enviar e-mails com o SMTP, só que o infeliz só envia para endereços do Gmail, não envia pra endereços do Yahoo nem Hotmail, :wacko: ....não testei com outros, mas creio que tem problema ja de inicio, pesso umas dicas de vcs. Obrigado http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

CODE

Dim ob As New SmtpClient

 

'Criando a mensagem

Dim mensagem As New MailMessage()

 

'Definindo prioridade da mensagem

mensagem.Priority = MailPriority.High

mensagem.IsBodyHtml = True

 

'Definindo assunto e corpo da mensagem

mensagem.Subject = "AC: " + txtNomeDestino.Text + " - " + txtAssunto.Text

mensagem.Body = txtTexto.Text

 

'Testes

mensagem.BodyEncoding = System.Text.Encoding.Default

' ob.EnableSsl = True

ob.DeliveryMethod = SmtpDeliveryMethod.Network

ob.UseDefaultCredentials = True

 

'Selecionando o Servidor

ob.Host = "localhost"

 

'Remetentes e Destino da Mensagem

mensagem.From = New MailAddress(txtemailRemetente.Text) ' Email de quem envia

 

Try

For i = 0 To txtemailsdestino.Items.Count Step 1

mensagem.To.Add(New MailAddress(txtemailsdestino.Items(i).ToString)) ' Emails de destinos

Next

Catch ex As Exception

End Try

 

 

'Coloca os Anexos na Mensagem

If contadorAnexo <> 0 Then

For i = 0 To contadorAnexo - 1 Step 1

If Not arrayAnexos(i).Equals("0") Then

mensagem.Attachments.Add(New Attachment(arrayAnexos(i)))

End If

Next

End If

 

'Envia a Mesagem

Try

ob.Send(mensagem)

MessageBox.Show("E-mail enviado com sucesso", "AVISO", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show("O E-mail não pode ser enviado" + System.Environment.NewLine + "Erro: " + ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try

[alissong 1]

Zarino,

 

Use esse código que crei, basta alterá-lo para seu email, mas qualquer melhoria no código você deve postá-lo para ajudar os amigos.

Private Sub Command1_Click()

On Error GoTo Enviar ' Erro ao enviar e-mail

 

Dim Msg As CDO.Message

Dim Cof As CDO.Configuration

Dim mensagem As String

Dim sucesso As Boolean

Dim Camp

 

Set Msg = New CDO.Message

Set Cof = New CDO.Configuration

Set Camp = Cof.Fields

 

If txtdestino.Text = Empty Then

MsgBox " Digite o e-mail do destinatário", vbExclamation, "Campo Obrigatório"

txtdestino.SetFocus

Exit Sub

End If

If txtassunto.Text = Empty Then

MsgBox " Digite o assunto da mensagem", vbExclamation, "Campo Obrigatório"

txtassunto.SetFocus

Exit Sub

End If

 

With Camp

.Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort

.Item(cdoSMTPServer) = "nome do servidor"

.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout

.Item(cdoSMTPAuthenticate) = 1

.Item(cdoSendUserName) = "email"

.Item(cdoSendPassword) = "senha"

.Update

 

End With

 

With Msg

 

Set .Configuration = Cof

For i = 0 To txtanexo.ListCount - 1

.AddAttachment txtanexo.List(i)

Next i

.To = "scompras@arq.ufmg.br"

.BCC = txtdestino.Text

.CC = txtremetente.Caption

.From = """compras"" <scompras@arq.ufmg.br>"

.Subject = txtassunto.Text

.TextBody = txttexto.Text

.Send

 

End With

 

If sucesso = True Then

mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

Else

mensagem = "O E-MAIL ENVIADO COM SUCESSO!"

 

End If

 

MsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"

 

Enviar_exit:

gUltHora = Now

 

Exit Sub

Enviar:

MsgBox Err.Description, vbInformation, "Erro ao [Enviar]"

 

End Sub

 

OBS: Habilite a o cdonts no visual basic 06

[zarino 0]

olhaaa....da pra dize assim...tentei usar o metodo que você postou ali....até fiz funcionar....mas mesmo assim teimei e continuei com o meu codigo....e não sei por que cargas d'agua começou a enviar os emails pra todos os provedores sem problemas.....não sei o que aconteceu...mas mesmo assim.....Obrigado... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[alissong 1]

Zarino,

 

 

Poste seu código, pois sua dúvida pode resolver várias de nossos colegas.

 

 

 

Um abraço.

 

 

Alissong