none
email direto do excel com imagem RRS feed

  • Pergunta

  •  Bom dia! Tenho um código básico que faz o envio de e-mail via Excel, porém não consigo inserir uma imagem no conteúdo do email.

    a imagem esta na minha área de trabalho.

    Código:

                                                                                                                        

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim OutApp As Object
        Dim OutMail As Object
        Dim texto As Object


        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        linha = ActiveCell.Row - 1
        If Target.Address = "$J$" & linha Then

            If Plan5.Cells(linha, 10) = "R" Then


                texto = " " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
                        "                       " & Plan5.Cells(linha, 2) & " Parabéns! "


            End If

            With OutMail
                .To = Plan5.Cells(linha, 14)
                .CC = ""
                .BCC = ""
                .Subject = "Feliz Aniversário"
                .Body = texto
                .Send   'Utilize Send para enviar o email sem abrir o Outlook
            End With
            On Error GoTo 0

            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
    End Sub

    quarta-feira, 16 de dezembro de 2015 13:53

Todas as Respostas

  • Bom dia, 

    A solução está aqui 

    https://social.msdn.microsoft.com/Forums/pt-BR/1a776e07-1f79-4a79-910e-0ff119aca1ca/excel-vba-funo-enviar-email-com-imagem-no-corpo?forum=vbapt

    • Sugerido como Resposta André Santo sexta-feira, 18 de dezembro de 2015 11:12
    sexta-feira, 18 de dezembro de 2015 11:12