envio de email

[banrey]

Hola amigos necesito una ayuda de ustedes por favor les explico brevemente que deseo hacer para que me ayuden:

Tengo una consulta en mi BD la cual me extre una serie de datos y yo quiero que esos datos me sean enviados a mi correo electronico una ves ejecutada la consulta lo estoy haciendo de la siguiente forma pero no me hace el llamado a la funsion que yo llame :escribeMailAdmin rutaRaiz

cn.Open "driver={SQL Server};server=" & strServer & ";uid=" & strLogin & ";pwd=" & strPwd & ";database=" & strBD
sSelect = "SELECT VW_CATALOGO.EANPROD, VW_CATALOGO.MARCA, VW_CATALOGO.TextoC From VW_CATALOGO, VW_Prodig, VW_ean Where VW_Prodig.eanprod = VW_ean.eanprod and VW_Prodig.codpro=VW_catalogo.codpro and VW_Prodig.eanprod in(select VW_ean.eanprod From VW_ean, VW_Prodig where VW_ean.num<>'1')"
rs.Open sSelect, cn, adOpenDynamic, adLockBatchOptimistic

'''''While Not rs.EOF

''''''''rs.MoveFirst
producto = Trim(rs.Fields("Eanprod"))
objeto1 = Trim(rs.Fields("Marca"))
objeto2 = Trim(rs.Fields("TextoC"))

If producto <> "" And objeto1 <> "" And objeto2 <> "" Then

escribeMailAdmin rutaRaiz, "Catalogo SINCRONET", "<font face='Arial, Helvetica, sans-serif'>SINCRONET" & _
".<br><br>-----------------------------------------------------------------------" & _
".<br><br>Atención:" & _
".<br><br>INFORMATION TECHNOLOGY SUPPORT" & _
".<br>Le informamos que el producto identifiado con el EAN (<strong>" + producto + objeto1 + objeto2 + " </strong>) no ha sido publicado en el Catálogo Electrónico SINCRONET por presentar Duplicidad en el EAN." & _
".<br><br><br>Cordialmente," & _
".<br>Catálogo Electrónico SINCRONET" & _
".<br>---------------------------------------------------------------------------" & _
".<br>Este es un sistema automático de aviso, por favor no responda este mensaje." & _
".<br>---------------------------------------------------------------------------" / Font > ""
''''''''rs.MoveNext
''''''Wend

rs.Close
cn.Close
Set cn = Nothing
Set FS = Nothing



Public Sub escribeMailAdmin(ppalPATH As String, SUBJECT As String, BODY As String, Optional sendTo As String = "")
Dim strServidor As String, strPath As String, strFrom As String, strFromname As String, strMailAdmin As String
Dim FS As Variant, archivo As Variant, getArch As Variant, salidaPATH As String, mail As Variant, a As Variant, ITEM As Variant


Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set FS = CreateObject("Scripting.FileSystemObject")


Set getArch = FS.GetFile(ppalPATH + "\conf\MAILconf.txt")
Set archivo = getArch.OpenAsTextStream(ForReading)
strServidor = archivo.ReadLine
strFrom = archivo.ReadLine
strFromname = archivo.ReadLine
strMailAdmin = archivo.ReadLine
archivo.Close
Set archivo = Nothing
Set getArch = Nothing
Set mail = CreateObject("Persits.MailSender")
mail.Host = strServidor
mail.From = strFrom
mail.FromName = strFromname

If sendTo <> "" Then
strMailAdmin = sendTo
End If

a = Split(strMailAdmin, ",")
For Each ITEM In a
mail.AddAddress ITEM
Next
mail.AddAddress strFrom
mail.SUBJECT = SUBJECT
mail.BODY = BODY
mail.IsHTML = True
mail.Send
Set mail = Nothing

espero sus respuesta gracias