Mail a defect

Private Function MailADefect(MailTo As String, MailCC As String, _
    MailSubject As String, MailComment As String) _
    As Boolean
' Mail a defect
    
    Dim BugFact As BugFactory
    Dim theBug As Bug
    Dim bugList As List
    

On Error GoTo FUNC_ERR
    'tdc is the global TDConnection object.
    Set BugFact = tdc.BugFactory
    Set bugList = BugFact.NewList("")
    Debug.Print bugList.Count
    
    Set theBug = BugFact.Item(1)

    theBug.Mail MailTo, MailCC, TDMAIL_TEXT, MailSubject, MailComment
    
Exit Function


    MailADefect = SUCCESS
Exit Function
FUNC_ERR:
    MailADefect = FAILURE
End Function