Automatic E-mail - include signature including formatting and Image

Right,

Stupid mistake, This now gives me my signature looking as it should but the text from 'msg' is all wrong. it doesn't put in any returns. Any ideas?

                    .To = Dist
                    .CC = Orig
                    .SentOnBehalfOfName = "PPU Document Control"
                    .Subject = SubJ
                    .ReadReceiptRequested = False
                    .Display
                    .HTMLBody = Msg & .HTMLBody
                    .Attachments.Add (Ease)

Msg = "Good " & g01 & "," & vbCrLf & vbCrLf _
          & "Please find attached the above document, issued for " & TSht.Cells(39, "R") & " as advised by " & Orig & "." & vbCrLf & vbCrLf _
          & Msg2

okay, almost there.

I've managed to use html instead of coding to put in the line breaks, but after the 'Good Afternoon' it changes the font. Anyone know how to stop the text changing from Times New Roman to Calibri (Body)? Or if I can change it all to Tahoma?

            Msg = "Good " & g01 & ",<br><br>" _
            & "Please find attached the above document, issued for " & TSht.Cells(39, "R") & " as advised by " & Orig & ".<br/><br/>" _
            & Msg2
    
        On Error Resume Next
        Set OutApp = CreateObject("Outlook.Application")
            On Error GoTo 0
                If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
                Do: Loop Until Not OutApp Is Nothing
        Set OutMail = OutApp.CreateItem(olMailItem)
        With OutMail
    

                    
                    .To = Dist
                    .CC = Orig
                    .SentOnBehalfOfName = "PPU Document Control"
                    .Subject = SubJ
                    .ReadReceiptRequested = False
                    .Display
                    .HTMLBody = Msg & .HTMLBody
                    .Attachments.Add (Ease)
                    
    End With
        Set OutApp = Nothing
        Set OutMail = Nothing
End Sub

Finished

Msg = "<font face=Tahoma>Good " & g01 & ",<br><br>" _
            & "Please find attached the above document, issued for " & TSht.Cells(39, "R") & " as advised by " & Orig & ".<br/><br/>" _
            & Msg2
    
        On Error Resume Next
        Set OutApp = CreateObject("Outlook.Application")
            On Error GoTo 0
                If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
                Do: Loop Until Not OutApp Is Nothing
        Set OutMail = OutApp.CreateItem(olMailItem)
        With OutMail
    

                    
                    .To = Dist
                    .CC = Orig
                    .SentOnBehalfOfName = "PPU Document Control"
                    .Subject = SubJ
                    .ReadReceiptRequested = False
                    .Display
                    .HTMLBody = Msg & .HTMLBody
                    .Attachments.Add (Ease)
                    
    End With
        Set OutApp = Nothing
        Set OutMail = Nothing