Add signature to Outlook email

Asked

Viewed 101 times

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?

  • 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.

No answers

Browser other questions tagged

You are not signed in. Login or sign up in order to post.