Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...