Jump to content
raulcampeao

Enviar a informação do cliente para o e-mail

Recommended Posts

raulcampeao

ola pessoal eu estou a fazer um programa para a PAP e tenho que enviar a informação do cliente para o e-mail. que comando utilizo.  ;) ja pesquisei e não encontrei nada :S

Share this post


Link to post
Share on other sites
Andrepereira9

VBA ou Vb.net?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Andrepereira9

boas

Tens aqui uma maneira

Imports System.Net.Mail

Dim mail As New MailMessage

Dim Para As String = "emails de destino"

Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential("o teu email", "a tua passe")
        SmtpServer.Port = 587  ' porta de acesso do servidor de email. Neste caso é do Gmail
        SmtpServer.Host = "smtp.gmail.com" ' Host do servidor de email.
        SmtpServer.EnableSsl = True ' Se o SSL esta activo ou não

        mail = New MailMessage()
        Dim addr() As String = Para.Split(",")
        Try
            mail.From = New MailAddress("O nome que aparece no email, tipo o teu nome, email, ou o que quiseres", "", System.Text.Encoding.UTF8)
            Dim i As Byte
            For i = 0 To addr.Length - 1
                mail.To.Add(addr(i))
            Next

            mail.Subject = "Escrever aqui o assunto"
            mail.Body = "Escrever aqui a mensagem"
            mail.Attachments.Add(New Attachment("destino do anexo")) ' se não for para enviar nenhum anexo, remover esta linha, caso contratio o email pode não ser enviado

            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure  ' Avisa caso o email não seja entregue

            SmtpServer.Send(mail)  ' Envia o email
        Catch ex As Exception
           msgbox(ex.tostring)  ' Apresenta uma mensagem de erro, caso ocorra um erro
        Finally
           msgbox("Email Enviado!!")  ' Apresenta uma mensagem, se o email for enviado correctamente
        End Try
        smtpserver = Nothing
        mail = Nothing


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.