none
Mandar no corpo do email a imagem anexada.

    Question

  • <p>Boa noite,</p><p>Em minha aplicação envia um email com uma imagem em anexo...</p><p>a seguir o codigo que uso para anexar..</p><p> </p><pre lang="x-vbnet">MSG.Attachments.Add(New Attachment(lvwProdutosaEnviar.Items(a).SubItems(8).Text)) '& vbnewline
    

     

    e os seguinte codigo é o corpo do email que vai para o cliente:

        MSG.From = New MailAddress(txtEmail.Text)
        MSG.To.Add(txtContato.Text)
        MSG.Subject = (txtAssunto.Text)
        MSG.Body = (txtCorpoEmail.Text) & vbNewLine & vbNewLine & vbNewLine
        For a As Integer = 0 To lvwProdutosaEnviar.Items.Count - 1
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(5).Text & vbNewLine
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(0).Text & vbNewLine & vbNewLine
          MSG.Body &= lblDescrição.Text & vbNewLine
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(6).Text & vbNewLine
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(7).Text & vbNewLine & vbNewLine & vbNewLine
          MSG.Body &= lblFoto.Text & vbNewLine
          MSG.Attachments.Add(New Attachment(lvwProdutosaEnviar.Items(a).SubItems(8).Text)) '& vbnewline
          MSG.Body &= lblValor.Text
          MSG.Body &= lblespaco.Text
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(3).Text
          MSG.Body &= lblespaco.Text
          MSG.Body &= lvwProdutosaEnviar.Items(a).SubItems(4).Text & vbNewLine
          MSG.Body &= lblCondicoes.Text
          MSG.Body &= lblespaco.Text
          MSG.Body &= txtFormasdePagamento.Text & vbNewLine & vbNewLine & vbNewLine
        Next
        MSG.Body &= txtAssinatura.Text
    

    Como eu poderia fazer isso?


    Douglas Araujo da Silva
    Thursday, December 02, 2010 10:49 PM

Answers

All replies