Envio de E-Mails no Vb2008
2 participantes
Umbrella System :: Programação :: Visual Basic :: Tutoriais
Página 1 de 1
Envio de E-Mails no Vb2008
por schnaidinha Qui Mar 29, 2012 1:56 pm
Fala ai galerinha..
Hoje estarei ensinando a vocês,como mandar e-mails para a hotmail,usando o vb2008.
É uma dica muito legal,para vocês que querem fazer sistema de cadastro,ou os famosos keyloggers.
Bom,primeiramente você deve abrir o vb2008.
Com ele aberto,crie um projeto e coloque um nome qualquer,com Windows Forms Application.
Coloque os seguintes componentes:
[*]3 Labels (opicional)
[*]3 TextBox - txtassunto ; txtdestinatario ; txtmensagem / no txtmensagem,coloque a propriedade multiline como true.
[*]2 Buttons - btn_enviar ; btn_sair
_____________________________________________________________________________________
Com o Design feito,vamos ao código.
Dê um duplo clique sobre o botão btn_enviar,e coloque:
Troque o que tiver de vermelho.
Dê um duplo clique sobre o botão btn_sair e coloque:
OBS:Não coloquei print pq to com sono
OBS²:Não sei pq coloquei OBS²!
Créditos:
ℛiqu∊
Hoje estarei ensinando a vocês,como mandar e-mails para a hotmail,usando o vb2008.
É uma dica muito legal,para vocês que querem fazer sistema de cadastro,ou os famosos keyloggers.
Bom,primeiramente você deve abrir o vb2008.
Com ele aberto,crie um projeto e coloque um nome qualquer,com Windows Forms Application.
Coloque os seguintes componentes:
[*]3 Labels (opicional)
[*]3 TextBox - txtassunto ; txtdestinatario ; txtmensagem / no txtmensagem,coloque a propriedade multiline como true.
[*]2 Buttons - btn_enviar ; btn_sair
_____________________________________________________________________________________
Com o Design feito,vamos ao código.
Dê um duplo clique sobre o botão btn_enviar,e coloque:
- Código:
Dim message As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient("smtp.live.com", 587)
message = New System.Net.Mail.MailMessage("dequem@hotmail.com", (txtdestinatario.text), (txtassunto.text), "Assunto: " & txtassunto.Text & Chr(13) & "Mensagem: " & txtmensagem.Text)
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("seuemail@hotmail.com", "suasenha")
Try
smtp.Send(message)
MessageBox.Show("Mensagem que vai aparecer quando for enviado")
Catch ex As Exception
MessageBox.Show("Mensagem que vai aparecer se algo der errado"),vbcritical,("Titulo do Erro")
End Try
Troque o que tiver de vermelho.
Dê um duplo clique sobre o botão btn_sair e coloque:
- Código:
End
OBS:Não coloquei print pq to com sono
OBS²:Não sei pq coloquei OBS²!
Créditos:
ℛiqu∊
schnaidinha- Membro
- Mensagens : 103
Agradecido : 8
Data de inscrição : 05/02/2012
Localização : No PC...
juniorgxgx- Membro
- Mensagens : 10
Agradecido : 0
Data de inscrição : 18/08/2012
Idade : 29
Localização : posso estar mas do seu lado
Umbrella System :: Programação :: Visual Basic :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|