none
Disparar email com conta de usuário RRS feed

  • Pergunta

  • Boa tarde,

    Gostaria de saber se é possível enviar um email direto da minha aplicação, com o email remetente sendo a própria conta do usuário? Tenho a senha e o smtp.

    Desde já agradeço


    terça-feira, 22 de março de 2016 17:57

Respostas

  • Imports System.Net.Mail
    Public Class Form1
       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          ' Set the caption bar text of the form.   
          Me.Text = "tutorialspoint.com"
       End Sub
    
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Try
              Dim Smtp_Server As New SmtpClient
              Dim e_mail As New MailMessage()
              Smtp_Server.UseDefaultCredentials = False
              Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
              Smtp_Server.Port = 587
              Smtp_Server.EnableSsl = True
              Smtp_Server.Host = "smtp.gmail.com"
    
              e_mail = New MailMessage()
              e_mail.From = New MailAddress(txtFrom.Text)
              e_mail.To.Add(txtTo.Text)
              e_mail.Subject = "Email Sending"
              e_mail.IsBodyHtml = False
              e_mail.Body = txtMessage.Text
              Smtp_Server.Send(e_mail)
              MsgBox("Mail Sent")
    
          Catch error_t As Exception
              MsgBox(error_t.ToString)
          End Try
    
       End Sub

    Fonte:

    VB.Net - Send Email

    Att,


    Antero Marques

    • Sugerido como Resposta Roberto AB Filho terça-feira, 22 de março de 2016 18:05
    • Marcado como Resposta Fábio Freitas terça-feira, 22 de março de 2016 18:25
    terça-feira, 22 de março de 2016 18:05

Todas as Respostas

  • Boa tarde,

    Qual linguagem?


    Att., Roberto Alves

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 22 de março de 2016 17:59
  • VB.net
    terça-feira, 22 de março de 2016 17:59
  • Qual o cliente SMTP?


    Att., Roberto Alves

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 22 de março de 2016 18:01
  • Boa Tarde Fabio,

    Qual é a sua aplicação ?

    Consegui fazer pra enviar email em win forms, só preencher os dados via código, conforme você quer.

    Da uma olhada nesses links, eles que me ajudaram: link1 e link2

    terça-feira, 22 de março de 2016 18:01
  • Imports System.Net.Mail
    Public Class Form1
       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          ' Set the caption bar text of the form.   
          Me.Text = "tutorialspoint.com"
       End Sub
    
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Try
              Dim Smtp_Server As New SmtpClient
              Dim e_mail As New MailMessage()
              Smtp_Server.UseDefaultCredentials = False
              Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
              Smtp_Server.Port = 587
              Smtp_Server.EnableSsl = True
              Smtp_Server.Host = "smtp.gmail.com"
    
              e_mail = New MailMessage()
              e_mail.From = New MailAddress(txtFrom.Text)
              e_mail.To.Add(txtTo.Text)
              e_mail.Subject = "Email Sending"
              e_mail.IsBodyHtml = False
              e_mail.Body = txtMessage.Text
              Smtp_Server.Send(e_mail)
              MsgBox("Mail Sent")
    
          Catch error_t As Exception
              MsgBox(error_t.ToString)
          End Try
    
       End Sub

    Fonte:

    VB.Net - Send Email

    Att,


    Antero Marques

    • Sugerido como Resposta Roberto AB Filho terça-feira, 22 de março de 2016 18:05
    • Marcado como Resposta Fábio Freitas terça-feira, 22 de março de 2016 18:25
    terça-feira, 22 de março de 2016 18:05