Trying to add my signature into the Macro

[PatrickWW]

Here is what I have so far. This is for Outlook

Don't laugh at my code

Sub Email()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
  
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    
    
    Addresses = ActiveWorkbook.ActiveSheet.Range("B14").Value   ''Reference the email address in the workbook
    
    WorkPlease = Split(Range("B12").Value, " ")(0)  
    
    Filename = Split(ActiveWorkbook.Name, ".")(0)  
    

    On Error Resume Next
    With OutMail
        .Display
        .to = Addresses
        .CC = ""
        .BCC = ""
        .Subject = Filename & " " & "Pricing"
        .HTMLBody "<FONT color=#000000 face=Calibri size=3.5>" & WorkPlease & "," & "</td>"  
         .Attachments.Add ActiveWorkbook.FullName  '' The attachments it pulls in
         .Display
    End With
    
    On Error GoTo 0
     Set OutMail = Nothing
    Set OutApp = Nothing


End Sub

 

[PatrickWW]

The answer is

.myItem.HTMLBody

 

[bradhog]

Keep trying bro ........one day you eill definitely successful........