VBA Business Cards in Outlook Signatures

With omail
    .To = "[EMAIL="doris.kalio@jubailibros.com"]doris.kalio@jubailibros.com[/EMAIL]"
    .cc = "[EMAIL="imad.elhage@jubailibros.com;mohammed.abuhawash@jubailibros.com;mohammed.moussa@jubailibros.com"]imad.elhage@jubailibros.com;mohammed.abuhawash@jubailibros.com;mohammed.moussa@jubailibros.com[/EMAIL]"
    .Subject = "Your Update Maintenance Contract In PHC" & " " & Format$(Date, "dd ,mmmm,yyyy")
    .attachments.Add wbn.FullName
    Msg = "Dear" & " " & "Doris" & "<br><br>"
    Msg = Msg & "Please find attched file ,"
    Msg = Msg & " If you have any Comment don't Hesitate to reply  me."
    Msg = Msg & "<br><br>"
    .htmlbody = Msg & "<br><br>" & Signature
   .send
   End With

Sub Mail_Outlook_With_Signature_Html()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    strbody = "Top of the mornin' to ya!" & _
              "<br><br>Attached is a copy of the New Release Tracker. Please  inform me if anything needs to be adjusted.<br>" & _
              "<br><br>Have a marvelous day!"
              
           
    SigString = "C:\Documents and Settings\JMalkus\Application Data\Microsoft\Signatures\Best Regards.htm"
    
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
    On Error Resume Next
    With OutMail
        'To: "Name"
        .To = "[EMAIL="JMalkus@oakley.com"]Name[/EMAIL]"
        'CC: "Name"
        .CC = ""
        'BCC: "[EMAIL="JMalkus@oakley.com"]Name[/EMAIL]"
        .BCC = ""
        .Subject = "New Release Tracker " & Format(Date, "m.dd.yy")
        .HTMLBody = strbody & "<br><br>" & Signature
        .Attachments.Add ("G:\Materials\Planning\Trackers\All New Release Tracker\New Release Tracker " & Format(Date, "m.dd.yy") & ".xlsx")
        
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        '.Send   'or use
        .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Function GetBoiler(ByVal sFile As String) As String
        Dim fso As Object
        Dim ts As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
        GetBoiler = ts.readall
        ts.Close
End Function