Inserting Signature.

Dear Friends,
can anyone help me with a code line that automatically inserts my signature when i m sending the mail.
Note: the mail is generated with the help of macro only so i would like to generate the signature with the help of code only.

Function GetBoiler(ByVal sFile As String) As String
'**** Kusleika
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


Sub test1()


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)



SigString = Environ("appdata") & _
"\Microsoft\Signatures\Mysig.htm"

If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

End Sub