Mail göndermede imza ekleme

[kemal turan]

Merhaba,
Forumumuzdan bulduğum kod ile mail gönderebiliyorum.
Normalde yeni bir mailde otomatik gelen "imza" yıda gönderebilmemiz için nasıl bir ekleme yapılması gerekir.
Çok teşekkür ederim.

Sub Secilen_Alani_Mesaj_Govdesine_Gonder()
'Office 2000-2010 sürümlerinde çalışır
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set rng = Nothing
On Error Resume Next
Set rng = Range("c1:d30").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected" & _
vbNewLine & "please correct and try again.", vbOKOnly
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = [b1] ' MAİL ADRESİ
.CC = [b2]
.BCC = ""
.Subject = "Sipariş Hk."
.HTMLBody = RangetoHTML(rng)
.Display
.Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Sipariş gönderildi"
End Sub