none
hotmail RRS feed

  • Pergunta

  • oi galera tenho este codigo aqui mais e para gmail como seria para hotmail ? falo da porta em geral tudo como seria obrigado a todos

    Imports System.Net
    Imports System.Net.Mail

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'Funcionando mediante liberação de segurança no servidor de email
            Dim Mail As New MailMessage()
            Mail.[To].Add("conta@gmail.com")

            Dim MailAdress As New MailAddress("conta@gmail.com")

            Mail.From = MailAdress
            Mail.Subject = "teste de envio....."
            Mail.Body = "a mensagem foi enviado?"

            Dim smtp As New SmtpClient("smtp.gmail.com", 587)
            smtp.EnableSsl = True

            Dim credencial As New NetworkCredential("conta@gmail.com", "senha")

            smtp.Credentials = credencial

            Dim dialog As New OpenFileDialog()
            If dialog.ShowDialog() = DialogResult.OK Then
                Dim anexo As New Attachment(dialog.FileName)
                Mail.Attachments.Add(anexo)
            End If

            smtp.Send(Mail)
        End Sub
    End Class

    quinta-feira, 20 de novembro de 2014 20:36

Respostas

  • Imports EASendMail 'Add EASendMail namespace Module Module1 Sub Main() Dim oMail As New SmtpMail("TryIt") Dim oSmtp As New SmtpClient() ' Your hotmail email address oMail.From = "liveid@hotmail.com" ' Set recipient email address, please change it to yours oMail.To = "support@emailarchitect.net" ' Set email subject oMail.Subject = "test email from hotmail account" ' Set email body oMail.TextBody = "this is a test email sent from VB.NET project with hotmail" ' Hotmail SMTP server address Dim oServer As New SmtpServer("smtp.live.com") ' Hotmail user authentication should use your ' email address as the user name. oServer.User = "liveid@hotmail.com" oServer.Password = "yourpassword" ' set 25 port, if you want to use 587 port, please change 25 to 587 oServer.Port = 25 ' detect SSL/TLS connection automatically oServer.ConnectType = SmtpConnectType.ConnectSSLAuto Try Console.WriteLine("start to send email over SSL ...") oSmtp.SendMail(oServer, oMail) Console.WriteLine("email was sent successfully!") Catch ep As Exception Console.WriteLine("failed to send email with the following error:") Console.WriteLine(ep.Message) End Try End Sub End Module

    http://www.emailarchitect.net/easendmail/kb/vbnet.aspx?cat=4

    Att,


    Ricardo Cortes Microsoft Contingent Staff

    Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    • Sugerido como Resposta Mr. GMSOFT sexta-feira, 21 de novembro de 2014 11:17
    • Marcado como Resposta joão pjoao1578 sexta-feira, 21 de novembro de 2014 15:46
    sexta-feira, 21 de novembro de 2014 10:08
  • Provavelmente por que esse exemplo utiliza um componente não nativo do Visual Studio a forma deve ser diferente,veja na documentação:
    Veja como fica com esse componente EASendMail:

    'Adiciona o arquivo de acordo com o caminho informado na TextBox
    oMail.AddAttachment(textBox1.Text)

    • Marcado como Resposta joão pjoao1578 sexta-feira, 21 de novembro de 2014 19:17
    sexta-feira, 21 de novembro de 2014 19:16
  • fiz a sim amigo deu certo obrigado

     MyMailMessage.Attachments.Add(New Attachment(t.Text))

     
    sexta-feira, 21 de novembro de 2014 19:17

Todas as Respostas

  • Bom dia João,

    Não entendi direito essa parte "falo da porta em geral tudo como seria obrigado a todos"

    Você quer mandar email pelo hotmail é isso?

    Att,


    Ricardo Cortes Microsoft Contingent Staff

    Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    sexta-feira, 21 de novembro de 2014 10:06
  • Imports EASendMail 'Add EASendMail namespace Module Module1 Sub Main() Dim oMail As New SmtpMail("TryIt") Dim oSmtp As New SmtpClient() ' Your hotmail email address oMail.From = "liveid@hotmail.com" ' Set recipient email address, please change it to yours oMail.To = "support@emailarchitect.net" ' Set email subject oMail.Subject = "test email from hotmail account" ' Set email body oMail.TextBody = "this is a test email sent from VB.NET project with hotmail" ' Hotmail SMTP server address Dim oServer As New SmtpServer("smtp.live.com") ' Hotmail user authentication should use your ' email address as the user name. oServer.User = "liveid@hotmail.com" oServer.Password = "yourpassword" ' set 25 port, if you want to use 587 port, please change 25 to 587 oServer.Port = 25 ' detect SSL/TLS connection automatically oServer.ConnectType = SmtpConnectType.ConnectSSLAuto Try Console.WriteLine("start to send email over SSL ...") oSmtp.SendMail(oServer, oMail) Console.WriteLine("email was sent successfully!") Catch ep As Exception Console.WriteLine("failed to send email with the following error:") Console.WriteLine(ep.Message) End Try End Sub End Module

    http://www.emailarchitect.net/easendmail/kb/vbnet.aspx?cat=4

    Att,


    Ricardo Cortes Microsoft Contingent Staff

    Esse contedo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    • Sugerido como Resposta Mr. GMSOFT sexta-feira, 21 de novembro de 2014 11:17
    • Marcado como Resposta joão pjoao1578 sexta-feira, 21 de novembro de 2014 15:46
    sexta-feira, 21 de novembro de 2014 10:08
  • Muito bom o codigo mais como posso enviar um arquivo de word tambem junto com o email so que querro enviar por textbox ? 
    sexta-feira, 21 de novembro de 2014 15:46
  • Faz assim:

    Dim anexo As New Attachment(textBox1.Text)
    oMail.Attachments.Add(anexo)

    sexta-feira, 21 de novembro de 2014 16:07
  • amigo este codigo nao funfa da erro no <com> e quero enviar por caminho do arquivo tipo o caminho que estiver na  textbox1 tipo C:\Users\pjoao\Desktop\codigo.txt mais obrigado pela ajuda 


    sexta-feira, 21 de novembro de 2014 18:54
  • Você conseguiu enviar e-mail sem instalar o componente???
    sexta-feira, 21 de novembro de 2014 19:13
  • Provavelmente por que esse exemplo utiliza um componente não nativo do Visual Studio a forma deve ser diferente,veja na documentação:
    Veja como fica com esse componente EASendMail:

    'Adiciona o arquivo de acordo com o caminho informado na TextBox
    oMail.AddAttachment(textBox1.Text)

    • Marcado como Resposta joão pjoao1578 sexta-feira, 21 de novembro de 2014 19:17
    sexta-feira, 21 de novembro de 2014 19:16
  • fiz a sim amigo deu certo obrigado

     MyMailMessage.Attachments.Add(New Attachment(t.Text))

     
    sexta-feira, 21 de novembro de 2014 19:17