sendemail with template

I am newbie in the Hub. I need help from you guys.

I have created macro to send the mail draft along with attachment from mentioned location. I know only small changes in macro. Not a expect.

Please help to resolve the below mentioned qurey in the Macro.

1. My outlook format is HTML. when i run the macro it automatically change plain text and not included my signature. I need HTML format and signature in my query.

2. I have given the files / person name in excel file. If the file name not in the location it is not working. I need to use if condiction in codeing.

Query is given below - using Excel 2000

Sub Mail()

Worksheets("Draft Mail").Select
Range("b16").Select

Do Until ActiveCell = "Finish"


Dim objOutlook As Object
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Dim emlHTMLBody, sendTo As String
Dim wkbook As String
Application.ScreenUpdating = False
Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)






With objMailMessage
.To = ActiveCell
.CC = ActiveCell.Offset(0, 1)
.Subject = ActiveCell.Offset(0, 2)
.body = ActiveCell.Offset(0, 3)

.Attachments.Add "C:\Documents and Settings\Username\Desktop\Process\Remainder Mail\Mail\" & ActiveCell.Offset(0, -1) & ".xls"


End With


ActiveCell.Offset(1, 0).Select

Loop


End Sub