Hi

i want to send a mail from excel and i am able to do it successfuly, but when i add any thing in the body the default signature is not visible how do i get the signature when i add text to the body..

this is the code that i use...

Private Sub SendMail(mail As String)

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Workbooks

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set rng = Nothing
Set rng = ActiveSheet.UsedRange

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Range(mail).Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

am = Target.Address

Select Case am
Case "$B$3"
ans = MsgBox("do You want to send a mail to " & Range("B3"), vbYesNo, "Send Mail..")
If ans = 6 Then SendMail (am)
End Select

End Sub