Jump to content
AngelS

Enviar E-mail

Recommended Posts

AngelS

Bom, fiz uma impressão (print document). Antes de imprimir, faz uma visualização... É o seguinte, queria enviar essa folha por e-mail, será que é possivel ?

Ou seja, também posso enviar a datagridview, é igual . Queria era enviar esses dados.

Obrigado.

Share this post


Link to post
Share on other sites
Caça

Utiliza System.Net.Mail

        Dim Mail As New MailMessage()
        Dim SmtpClient As New SmtpClient("servidorSMTP")
        Mail.From = New MailAddress("De")
        '...
        Mail.Attachments.Add(New Attachment("Caminho do ficheiro de Anexo"))
        SmtpClient.Send(Mail)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
AngelS

A tua questão é muito vaga e não é clara.

Estás a fazer um programa em VB.NET? É sobre o quê? Que funcionalidades tem (se quiseres aprofundar)? O que pretendes exactamente e que não estás a conseguir?

Imprimir uma datagridview

Sim em vb.net

Share this post


Link to post
Share on other sites
Andrepereira9

boas

para enviares um email

Imports System.Net.Mail

Dim mail As New MailMessage
Dim Para As String = "email do destinatario"
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential("O teu email", "A tua senha")
SmtpServer.Port = 587    ' Porta de acesso do Gmail. Alterar conforme o servidor de email
SmtpServer.Host = "smtp.gmail.com" 'Host do Gmail. Alterar conforme o servidor de email
SmtpServer.EnableSsl = True
mail = New MailMessage()
Dim addr() As String = Para.Split(",")
        Try
            mail.From = New MailAddress("Nome que aparece como Remetente", "", System.Text.Encoding.UTF8)

            Dim i As Byte
            For i = 0 To addr.Length - 1
                mail.To.Add(addr(i))
            Next
            mail.Subject = "Escerever o assunto"
            mail.Body = "Escrever a mensagem"
            mail.Attachments.Add(New Attachment("Se se quiser adicionar um anexo, inidcar qual o caminho dele, senão apgar a linha"))
            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            SmtpServer.Send(mail)
            mail.Attachments.Clear()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            MsgBox("Email Enviado!!")
        End Try

Para enviares os dados, podes fazer de 2 maneiras:

Ou crias um ficheiro e envias esse ficheiro, ou então mandas os dados como mensagem de email


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
AngelS

Mas não quero ser eu a escrever . Mas sim o que imprimo ou seja, o que esta na data grid view

Share this post


Link to post
Share on other sites
Caça

Ou exportas o teu PrintDocument  e envias em anexo por Email ou então da mesma maneira que crias o PrintDocument crias a mensagem de Email e envias


Pedro Martins

Não respondo a duvidas por PM

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.