Hello SHINELOG,
I dont have any code that is specific to your needs but I do have sample code for sending email. You will also need to make use of the OTA reference guide.

Sub SendDefect (iObjectId, strTo, strCc, strSubject, strComment)
On Error Resume Next
Dim objBugFactory, objBug

Set objBugFactory = TDConnection.BugFactory
Set objBug = objBugFactory.Item(iObjectId)

objBug.Mail strTo, strCc, 2, strSubject, strComment

Set objBug = Nothing
Set objBugFactory = Nothing

PrintError ''SendDefect''
On Error GoTo 0
End Sub