Olá galera,
Dica rápida, para quem estiver querendo um IPad 2, o site de tecnologia macmagazine.com.br está fazendo um sorteio via twitter, e o felizardo que for sorteado irá ganhar "di grátis" um IPad2.
Para concorrer acesse o link abaixo e saiba mais!.
http://macmagazine.com.br/2011/03/30/agora-e-pra-valer-quer-ganhar-um-ipad-2/
Um abraço!
Blog recheado com notícias, novidades, dicas, tutoriais e artigos de minha autoria e do mundo a fora, Aqui você encontrará de tudo um pouco, Windows, Linux, Pacote Office, Impressora, Monitor, Desktops e tudo que é relacionado a informática.
quinta-feira, 31 de março de 2011
quarta-feira, 23 de março de 2011
Enviando e-mail pelo VB.NET
Olá pessoal,
Hoje vou postar como enviar e-mail através do VB.NET, o código esta comentado, então não será necessário explicar.
Antes de começar, no cabeçalho do código, onde ficam os Imports, coloque o seguinte importe para que nosso método de envio de e-mail possa funcionar.
Imports System.Net.Mail
Agora sim, o método para enviar o e-mail é este, logo abaixo:
Protected Sub send()
Dim objNovoEmail As New MailMessage
Dim objSmtp As New SmtpClient
'Adicionando o e-mail do remetente
objNovoEmail.From = New MailAddress(txtEmailRemetente.Text)
'Adicionando o e-mail do destinatário
objNovoEmail.To.Add(New MailAddress(txtEmailDestinatario.Text))
'Adiciona a prioridade do e-mail
objNovoEmail.Priority = MailPriority.High
'Adicionando o assunto ao atributo assunto
objNovoEmail.Subject = txtAssunto.Text
'Formato de e-mail em Html?
objNovoEmail.IsBodyHtml = True
'Inserir o corpo da mensagem no atributo Body
objNovoEmail.Body = txtMensagem.Text
'Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'Adicionando os campos dos atributos da configuração do e-mail
'parametros necessários para envio de e-mail.
'Configuração do IP do servidor SMTP
'Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
objSmtp.Host = txtServidorSmtp.Text
objSmtp.Port = txtPorta.Text
'Caso queira definir um tempo do timeout
'objSmtp.Timeout = 10
'Define se deve usar autenticação ou não
If txtUsuario.Text <> String.Empty And txtSenha.Text <> String.Empty Then
objSmtp.Credentials = New System.Net.NetworkCredential(txtUsuario.Text, txtSenha.Text)
End If
If txtUsuario.Text = String.Empty Then
objSmtp.UseDefaultCredentials = False
End If
'Habilitar SSL ou não?
objSmtp.EnableSsl = chkSSL.CheckState
'Enviando a mensagem por e-mail
Try
objSmtp.Send(objNovoEmail)
Catch ex As Exception
Throw ex
Finally
objNovoEmail.Dispose()
End Try
objNovoEmail.Dispose()
End Sub
Obs¹.: Atente-se que em alguns trechos de código os atributos estão recebendo alguns TextBox, que são do meu form (formulário visual).
No seu formulário (form) deverá ter um botão de enviar, que deverá colocar o seguinte código para chamar o método send().
Obs².: Atente-se que o código que deverá ser inserido no seu botão começa à partir do comando Try até o End Try.
Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
Try
send()
MessageBox.Show("E-mail enviado com sucesso!", "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Falha!" & ex.ToString, "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Logo abaixo, um screen do projeto que fiz como teste, caso tenham dúvidas utilizem o campo para comentários que tentarei responder à todos da melhor forma possível.
Um abraço e bom estudo.
Hoje vou postar como enviar e-mail através do VB.NET, o código esta comentado, então não será necessário explicar.
Antes de começar, no cabeçalho do código, onde ficam os Imports, coloque o seguinte importe para que nosso método de envio de e-mail possa funcionar.
Imports System.Net.Mail
Agora sim, o método para enviar o e-mail é este, logo abaixo:
Protected Sub send()
Dim objNovoEmail As New MailMessage
Dim objSmtp As New SmtpClient
'Adicionando o e-mail do remetente
objNovoEmail.From = New MailAddress(txtEmailRemetente.Text)
'Adicionando o e-mail do destinatário
objNovoEmail.To.Add(New MailAddress(txtEmailDestinatario.Text))
'Adiciona a prioridade do e-mail
objNovoEmail.Priority = MailPriority.High
'Adicionando o assunto ao atributo assunto
objNovoEmail.Subject = txtAssunto.Text
'Formato de e-mail em Html?
objNovoEmail.IsBodyHtml = True
'Inserir o corpo da mensagem no atributo Body
objNovoEmail.Body = txtMensagem.Text
'Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
'Adicionando os campos dos atributos da configuração do e-mail
'parametros necessários para envio de e-mail.
'Configuração do IP do servidor SMTP
'Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
objSmtp.Host = txtServidorSmtp.Text
objSmtp.Port = txtPorta.Text
'Caso queira definir um tempo do timeout
'objSmtp.Timeout = 10
'Define se deve usar autenticação ou não
If txtUsuario.Text <> String.Empty And txtSenha.Text <> String.Empty Then
objSmtp.Credentials = New System.Net.NetworkCredential(txtUsuario.Text, txtSenha.Text)
End If
If txtUsuario.Text = String.Empty Then
objSmtp.UseDefaultCredentials = False
End If
'Habilitar SSL ou não?
objSmtp.EnableSsl = chkSSL.CheckState
'Enviando a mensagem por e-mail
Try
objSmtp.Send(objNovoEmail)
Catch ex As Exception
Throw ex
Finally
objNovoEmail.Dispose()
End Try
objNovoEmail.Dispose()
End Sub
Obs¹.: Atente-se que em alguns trechos de código os atributos estão recebendo alguns TextBox, que são do meu form (formulário visual).
No seu formulário (form) deverá ter um botão de enviar, que deverá colocar o seguinte código para chamar o método send().
Obs².: Atente-se que o código que deverá ser inserido no seu botão começa à partir do comando Try até o End Try.
Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
Try
send()
MessageBox.Show("E-mail enviado com sucesso!", "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Falha!" & ex.ToString, "Send mail", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Logo abaixo, um screen do projeto que fiz como teste, caso tenham dúvidas utilizem o campo para comentários que tentarei responder à todos da melhor forma possível.
Um abraço e bom estudo.
Assinar:
Postagens (Atom)