Eai galerinha, decidir posta o código que eu uso pra enviar email pelo vb.
Precisa colocar no general:
Codigo:
Dim message As New MailMessage
Dim smtp As New SmtpClient
message.To.Add("email_que_recebe@gmail.com") ' email destinatário
message.From = New MailAddress("fbi@gov", "Você esta preso!") 'no primeiro argumento você coloca o email de quem enviou (seu email).
'mais vc tambem pode colocar qualquer email que funciona! (ex: fbi@gov)e o cara vai pensar que e o fbi.
'o segundo argumento e o 'titulo' do email.
message.Subject = "O FBI esta te procurando..." 'o assunto do email.
message.Body = "Se entregue ou vamos lhe matar" 'o 'corpo' do email.
smtp.Host = "smtp.gmail.com" 'servidor smtp, e so procurar no googleou na deep web que você acha todos (ex: hotmail, uol, yahoo...)
smtp.EnableSsl = False 'você também tem que procurar se o servidor usa ssl. (sim = true; nao = false)
smtp.Credentials = New Net.NetworkCredential("jose@gmail.com", "123456") 'seu email real e sua senha.
Try
smtp.Send(message) 'tenta enviar email
MsgBox("Email enviado!") 'mensagem
Catch ex As Exception
MsgBox("Erro!") 'caso não consiga enviar exibir mensagem de erro.
End Try
Precisa colocar no general:
- Código:
Imports System.Net.Mail
Codigo:
Dim message As New MailMessage
Dim smtp As New SmtpClient
message.To.Add("email_que_recebe@gmail.com") ' email destinatário
message.From = New MailAddress("fbi@gov", "Você esta preso!") 'no primeiro argumento você coloca o email de quem enviou (seu email).
'mais vc tambem pode colocar qualquer email que funciona! (ex: fbi@gov)
'o segundo argumento e o 'titulo' do email.
message.Subject = "O FBI esta te procurando..." 'o assunto do email.
message.Body = "Se entregue ou vamos lhe matar" 'o 'corpo' do email.
smtp.Host = "smtp.gmail.com" 'servidor smtp, e so procurar no google
smtp.EnableSsl = False 'você também tem que procurar se o servidor usa ssl. (sim = true; nao = false)
smtp.Credentials = New Net.NetworkCredential("jose@gmail.com", "123456") 'seu email real e sua senha.
Try
smtp.Send(message) 'tenta enviar email
MsgBox("Email enviado!") 'mensagem
Catch ex As Exception
MsgBox("Erro!") 'caso não consiga enviar exibir mensagem de erro.
End Try