Como mandar email via winforms?

Question

Estou precisando enviar email via um sistema winforms.
Nesse email deve ir anexado um doc do word.
Alguem sabe como fazer isso?
Grato
Gustavo

---

Analista Programador

Answer 1

Fiz o seguinte código:

' create the message

Dim mail As New MailMessage()

' set the sender's address and display name

mail.From = New MailAddress("[e-mail]")

' add a first recipient by specifying only her address

mail.[To].Add("[e-mail]")

mail.Subject = "Approve News"

Dim mensagem As New StringBuilder()

mensagem.Append("Top Idea<br>")

mensagem.Append("Teste de email")

mensagem.Append("<br>")

mail.Body = mensagem.ToString()

mail.IsBodyHtml = True

' set the mail’s priority to high

mail.Priority = MailPriority.High

Dim smtpClient As New SmtpClient()

smtpClient.Send(mail)


Mas recebo o seguinte erro:
System.InvalidOperationException: The SMTP host was not specified.


Como eu faço para configurar o host?
Eu sei que em aplicações web eu faço a configuração no webconfig, mas em winforms não tenho idéia....
Se alguem poder ajudar agradeço!
Att
Gustavo

---

Analista Programador

Answer 2

Segue abaixo código em C# para enviar e-mail, talvez ajude.

class clsEmail

{

SmtpClient client;

public void enviaEmail(string servidor, string de, string para, string cc,

string cco, string assunto, string mensagem)

{

client = new SmtpClient(servidor);

client.Send(de, para, assunto, mensagem);

}

}

---

Bruno Cerasi

Answer 3

Fiz o seguinte código:

Dim objEmail As New System.Net.Mail.MailMessage()

objEmail.From = New System.Net.Mail.MailAddress("[e-mail]")

objEmail.To.Add("[e-mail]")

objEmail.Priority = System.Net.Mail.MailPriority.High

objEmail.IsBodyHtml = False

't¡tulo do e-mail

objEmail.Subject = "Teste de envio de emails"

'corpo do e-mail

objEmail.Body = "Desculpe o encomodo, estou testando emails <b>apenas teste</b>"

' Para evitar problemas de caracteres "estranhos", configuramos o charset para "ISO-8859-1"

objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")

objEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")

Dim objSmtp As New System.Net.Mail.SmtpClient

objSmtp.Host = "smtpmail.hor.bshg.com"

SmtpMail.SmtpServer = "smtpmail.hor.bshg.com"

objSmtp.Send(objEmail)

objEmail.Dispose()


E estou recebendo o seguinte erro:

System.Net.Mail.SmtpException: Failure sending mail. ---> System.IO.IOException: Unable to read data from the transport connection: net_io_connectionclosed.

---

Analista Programador