envio de email 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
