Com + Email

I've created an com+ application for sending emails with multiple attachments.The component looks like this:

Public Function SendMail3(toAddr, whoAddr, docSubj, docMsg, ByVal docType As Integer, Optional cc = "", Optional bcc = "", Optional sFolder = "", Optional user = "")
On Error GoTo MailErr
Set oFlds = oConf.Fields
oFlds(cdoSendUsingMethod) = cdoSendUsingPort
oFlds(cdoSMTPServer) = SMTPSrvr
oFlds(cdoSMTPServerPort) = SMTPPrt
oFlds(cdoSMTPAuthenticate) = cdoBasic
oFlds.Update
Set oMail = New CDO.Message
oMail.From = whoAddr
oMail.To = toAddr
If (cc <> "") Then
oMail.cc = cc
If (bcc <> "") Then
oMail.bcc = bcc
If oFSO.FolderExists(sFolder) Then
Set oFolder = oFSO.GetFolder(sFolder)
For Each oFile In oFolder.Files
If InStr(oFile.Name, "_" & user) > 0 Then
oMail.AddAttachment oFile.Path
FileSize = Format((FileLen(oFile) / 1024) / 1024)
SumSize = SumSize + FileSize
oFSO.DeleteFile (oFile)
End If
Next
End If
End If
End If
If ((docType Mod 2) = 0) Then
oMail.TextBody = docMsg
Else:
oMail.HTMLBody = docMsg
End If
If (SumSize > 10) Then
ErrorStrMail = "Attachment size too large!"
GoTo MailFlee
End If
oMail.Subject = docSubj
Set oMail.Configuration = oConf
oMail.Send
MailFlee:
Exit Function
MailErr:
ErrorStrMail = Err.Number & ":" & Err.Description
Resume MailFlee
End Function

When I call this component from an asp page,I don't get any error,but the mail doesn't work.....did I do something wrong?