0
I created this code to send emails after selecting completed in Excel, unfortunately I can’t add the Outlook signature in the code. Can you help me?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oApp As Object
Dim oMail As Object
Dim text As String
Dim Sigsting As String
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
linha = ActiveCell.Row
text = "Presado " & Sheet1.Cells(linha, 2) & "," & vbNewLine & vbNewLine & _
" " & Sheet1.Cells(linha, 7) & " aberta em " & _
""
If Target.Address = "$F$" & linha Then
If Sheet1.Cells(linha) = "Concluido" Then
End If
With oMail
.To = Sheet1.Cells(linha, 1).text
.Subject = ""
.Body = text
.Display
End With
On Error GoTo 0
Set oMail = Nothing
Set oApp = Nothing
End If
End Sub
What exactly is your question? Could you add more details?
– Breno
I wanted to add the outlook signature in the code. I tried (.Htmlbody) but it doesn’t work. Maybe it’s because of late Binding.
– Jamim