Hola tengo una pagina web en asp, y a la hora de enviar newsletters a los usuarios me da el siguiente error, y dada mi ignorancia no se resolverlo, UN AMIGO ME DICE QUE EL PROBLEMA ES DEFINIR CORRECTAMENTE EL COMPONENTE, PODEIS AYUDARME?
Smart Mailer 1.0.5
' Send on load
Server.ScriptTimeout = 1000
Set sm1 = new SmartMailer
sm1.checkVersion "1.05"
sm1.contentCharset = "us-ascii"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "", "", "", ""
sm1.pickup = ""
sm1.component = "SMARTMAILER"
sm1.tmpFolder = ""
sm1.embedImages = true
sm1.progressBar = ""
sm1.ignore_errors = true
sm1.useQueue = true
sm1.setFrom strPageTitle, strAdminEmail
Set sm1.toRecord = rsMembersEmails
sm1.toRecordName = "MEM_FIRST"
sm1.toRecordEmail = "MEM_EMAIL"
sm1.total_mail = sm1.getTotalRecords(rsMembersEmails)
while not sm1.toRecord.EOF
sm1.setTo sm1.toRecord.Fields.Item(sm1.toRecordName).Value, sm1.toRecord.Fields.Item(sm1.toRecordEmail).Value
sm1.Subject = "" & strSubject & ""
' using static for body
sm1.setBody_Static_html "" & "Dear " & sm1.toRecord.Fields.Item(sm1.toRecordName).Value & ", " & vbCLRF & strBody & ""
' Attachments none
sm1.sendMail "multiple"
rsMembersEmails.MoveNext()
Wend
sm1.done()
set cmdUpdateNewsLetter = Server.CreateObject("ADODB.Command")
cmdUpdateNewsLetter.ActiveConnection = MM_connDUportalPro_STRING
cmdUpdateNewsLetter.CommandText = "UPDATE LETTERS SET LET_SENT = LET_SENT + 1 WHERE LET_ID = " & Request.Form("iData")
cmdUpdateNewsLetter.CommandType = 1
cmdUpdateNewsLetter.CommandTimeout = 0
cmdUpdateNewsLetter.Prepared = true
cmdUpdateNewsLetter.Execute()
Response.Redirect "home_newsletter.asp"
rsMembersEmails.Close()
Set rsMembersEmails = Nothing
%>
