use QC API, pass appropriate parameters..

Set QCConnection = CreateObject(''TDApiOle80.TDConnection'')
QCConnection.InitConnectionEx QCServer
QCConnection.login CONST_QC_LoginName, CONST_QC_Password
QCConnection.Connect CONST_QC_Domain, CONST_QC_Project
Set ConnectToQC = QCConnection
then use sendemail method...

QCConnection.SendMail ''yourmailsid@mycompany.com''

Try using this function:

'=================================================================
' Function SendCDOMessage
'=================================================================
' Description:
'   Sends an email message using Microsoft's CDO.Message object
' Parameters:
'   
' Return value:
'   True if succeeded, False otherwise
Public Function SendCDOMessage(EmailTo, EmailFrom, EmailSubject, MessageBody)
    Set oMessage = CreateObject(''CDO.Message'')
    ' Set message details
    oMessage.Subject = EmailSubject
    oMessage.Sender = EmailFrom
    oMessage.From = EmailFrom
    oMessage.To = EmailTo
    oMessage.AutoGenerateTextBody = True
    oMessage.HTMLBody = MessageBody
    ' Set configuration
    oMessage.Configuration.Fields(''http://schemas.microsoft.com/cdo/configuration/smtpserver'') =  ''YOUR_SMTP_SERVER_ADDRESS''
    oMessage.Configuration.Fields(''http://schemas.microsoft.com/cdo/configuration/sendusing'') = 2
    oMessage.Configuration.Fields.Update
    ' Send the message
    oMessage.Send
    If Err.Number <> 0 Then
        SendCDOMessage = False
    Else
        SendCDOMessage = True
    End If
    Set oMessage = Nothing
End Function
'=================================================================

If you have outlook on your machine you can access its object from QTP and send mails