GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Visual Basic.Net e C#    Envio de e-mail com imagens embutidas

Moderators: Luiz Cláudio C. V. Rocha
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
Sampaio Lima
Moderador
Diretor

Figura de Sampaio Lima
postado
Preciso de uma ajuda para enviar e-mail com imagens embutidas no corpo do e-mail.

Agradeço antecipadamente


==============================
Desenvolvimento e Consultoria

E-mail:sampaio_lima@hotmail.com
 
Postagens: 4420 | Localização: Fortaleza - ce | Registrado: 29 January 2001Reply With QuoteReport This Post
Luiz Cláudio C. V. Rocha
Moderador
Diretor

postado Hide Post
grande Sampaio,

fiz o seguinte teste, com sucesso:

Public Class Form1
    Private Function HtmlBody() As String
        Dim strBody As New System.Text.StringBuilder
        strBody.Append("<HTML><BODY>")
        strBody.Append("<H1>Teste de e-mail com figura</H1>")
        strBody.Append("<P>Conteúdo do e-mail</P>")
        strBody.Append("<img src='http://www.quackit.com/pix/milford_sound/milford_sound_t.jpg'")
        strBody.Append(" width='225' height='151' alt='Milford Sound in New Zealand' /img>")
        strBody.Append("</BODY></HTML>")
        Return strBody.ToString()
    End Function

    Private Sub MontaEmail()
        Dim oApp As New Microsoft.Office.Interop.Outlook.Application
        'Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace = oApp.Session
        'Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder

        Dim oMail As Microsoft.Office.Interop.Outlook.MailItem
        Dim oRecip As Microsoft.Office.Interop.Outlook.Recipient

        'Cria o e-mail
        oMail = oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

        'Destinatário
        oRecip = oMail.Recipients.Add("endereco@email.com.br")
        oRecip.Type = Microsoft.Office.Interop.Outlook.OlMailRecipientType.olTo

        'Mensagem
        oMail.Subject = "Teste de e-mail"
        oMail.HTMLBody = Me.HtmlBody()
        oMail.Display()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.MontaEmail()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class


----------------------------------------------------
Luiz Cláudio C. V. Rocha
Microsoft MVP Office - MCP - MOS
http://msmvps.com/officedev - http://www.accessfaq.com.br
 
Postagens: 6144 | Localização: São Paulo, SP, Brasil | Registrado: 02 February 2001Reply With QuoteReport This Post
Sampaio Lima
Moderador
Diretor

Figura de Sampaio Lima
postado Hide Post
Grande Luiz,


O problema ai é que obrigatoriamente ele tem que esta conectado para ver a figura,preciso que a figura fique como se tivesse copiado e colado.(embutida)

To tentando tanto access como no vb.net

Um abraço


==============================
Desenvolvimento e Consultoria

E-mail:sampaio_lima@hotmail.com
 
Postagens: 4420 | Localização: Fortaleza - ce | Registrado: 29 January 2001Reply With QuoteReport This Post
Ricardo Félix
Iniciante

postado Hide Post
Sampaio,
para isso existe uma forma de embutir um recurso na mensagem:

string HtmlBody = <html><body><img src='cidMostrando a línguaic1'></body></html>";
AlternateView avHtml = AlternateView.CreateAlternateViewFromString(HtmlBody,null, MediaTypeNames.Text.Html);

LinkedResource pic1 = new LinkedResource("pic.jpg",MediaTypeNames.Image.Jpeg);
pic1.ContentId = "pic1";
avHtml.LinkedResources.Add(pic1);

MailMessage m = new MailMessage();
m.AlternateViews.Add(avHtml);

smptClient.Send(m);

Espero que ajude.

Abçs


Ricardo Félix - ItLab
 
Postagens: 2 | Registrado: 04 November 2008Reply With QuoteReport This Post
Leonardo Metelis
Programador Sênior

postado Hide Post
Eis aqui um exemplo sobre o assunto, mas que usa uma conta do gmail e a internet para enviar um simples e-amail com um arquivo em anexo:

http://provapraticavb.blogspot.com/


Fui!!


By
Manoel Leonardo
 
Postagens: 372 | Localização: Manaus | Registrado: 14 June 2005Reply With QuoteReport This Post
  Powered by Social Strata  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Visual Basic.Net e C#    Envio de e-mail com imagens embutidas

©