|
Aqui está a linha de programação do enviar 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("emaildestinatario", "emaildestino", "Video-Aula", "Nome: " & txtnome.Text & Chr(13) & "Telefone: " & msktel.Text & Chr(13) & "Endereço: " & txtend.Text & Chr(13) & "CEP: " & mskcep.Text & "Observação: " & txtobs.Text) smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential("dragao_brito@hotmail.com", txtsenha.text) Try smtp.Send(message) MessageBox.Show("Mensagem enviada com sucesso!") Catch ex As Exception MessageBox.Show("Algo inesperado ocorreu!") End Try Obrigado pessoal www.bcr.yolasite.com code pour embarquer la vidéo : >>> http://www.youtube.com/embed/wNxR2g0mmtM <<< |