Boa Tarde Pessoal,
Estou com uma dificuldade tremenda referente ao tópico "Macro para enviar conteúdo de Célula do
Excel por e-mail"
Vejam e me ajudem a ajustar os erros.
Segue meu script que copiei e somente alterei as colunas.
Sub email()
Dim OutApp As Object
Dim OutMail As Object
Dim texto As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
linha = ActiveCell.Row - 1
If Target.Address = "$O$" & linha Then
If Plan1.Cells(linha, 15) = "Concluído" Then
texto = "Prezado(a) " & Plan1.Cells(linha, 18) & "," & vbCrLf & vbCrLf & _
"Informo que o n°sinistro " & Plan1.Cells(linha, 2) & " aberto em " & _
Plan1.Cells(linha, 6) & " foi finalizado." & vbCrLf & _
" Veja informações abaixo:" & vbCrLf & _
" Status: " & Plan1.Cells(linha, 15) & vbCrLf & _
" Data de Finalização: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _
"Atenciosamente,"
End If
With OutMail
.To = Plan1.Cells(linha, 19)
.CC = ""
.BCC = ""
.Subject = "Título do email"
.Body = texto
.Display '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
