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
