Problema em enviar email a partir do excel, erro no código
Enviado: 07 Mar 2017 às 09:18
Bom dia,
estou com problemas nesse código, o endereço e o título estão saindo da forma esperada, mas o corpo do email não, alguém me ajuda? Obrigado desde já
estou com problemas nesse código, o endereço e o título estão saindo da forma esperada, mas o corpo do email não, alguém me ajuda? Obrigado desde já
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
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 = "$W$" & linha Then
End If
If Plan1.Cells(linha, 24) = "X" Then
texto = "Prezado " & Plan1.Cells(linha, 13) & "," & vbCrLf & vbCrLf & _
"Segue reclamação referente ao bairro " & Plan1.Cells(linha, 4) & " aberta em " & _
Plan1.Cells(linha, 7) & " com prazo de " & _
Plan1.Cells(linha, 16) & vbCrLf & vbCrLf & _
" Mutuário: " & Plan1.Cells(linha, 9) & vbCrLf & _
" Endereço: " & Plan1.Cells(linha, 10) & vbCrLf & _
" Telefone: " & Plan1.Cells(linha, 11) & vbCrLf & _
" Reclamação: " & Plan1.Cells(linha, 6) & vbCrLf & _
" Bairro: " & Plan1.Cells(linha, 4) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"Help Desk"
End If
With OutMail
.To = Plan1.Cells(linha, 25)
.CC = ""
.BCC = ""
.Subject = "Reclamação " & Plan1.Cells(linha, 4)
.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
