diseo2mx
26 de Febrero del 2004

Hola tengo un problema con el error es el siguiente:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'retVal.RemoteHost'

C:DOMAINSMIDOMINIO.ORGWWWROOT../WA_Universal_Email/AspMail_VB.asp, line 92

El codigo es el siguiente:

<%
dim gBodyFormat

function WAUE_AddAttachment(mailObj,attPath)
if (attPath <> "") then
mailObj.AddAttachment attPath
end if
set WAUE_AddAttachment = mailObj
end function

function WAUE_AddBCC(mailObj,bccEmail)
if (bccEmail <> "") then
emailArr = Split(cStr(bccEmail), ";")
for bcc=0 to UBound(emailArr)
if (InStr(cStr(emailArr(bcc)), "@")) then
emailArr2 = Split(cStr(emailArr(bcc)), "|WA|")
if (UBound(emailArr2) = 0) then
mailObj.AddBCC "", WA_StripSpaces(cStr(emailArr(bcc)))
else
if (InStr(emailArr2(1), "@")) then
mailObj.AddBCC WA_TrimLeadingSpaces(emailArr2(0)), WA_StripSpaces(emailArr2(1))
else
mailObj.AddBCC WA_TrimLeadingSpaces(emailArr2(1)), WA_StripSpaces(emailArr2(0))
end if
end if
end if
next
end if

set WAUE_AddBCC = mailObj
end function

function WAUE_AddCC(mailObj,ccEmail)
if (ccEmail <> "") then
emailArr = Split(cStr(ccEmail), ";")
for cc=0 to UBound(emailArr)
if (InStr(cStr(emailArr(cc)), "@")) then
emailArr2 = Split(cStr(emailArr(cc)), "|WA|")
if (UBound(emailArr2) = 0) then
mailObj.AddCC "", WA_StripSpaces(cStr(emailArr(cc)))
else
if (InStr(emailArr2(1), "@")) then
mailObj.AddCC WA_TrimLeadingSpaces(emailArr2(0)), WA_StripSpaces(emailArr2(1))
else
mailObj.AddCC WA_TrimLeadingSpaces(emailArr2(1)), WA_StripSpaces(emailArr2(0))
end if
end if
end if
next
end if

set WAUE_AddCC = mailObj
end function

function WAUE_AddRecipient(mailObj,recEmail)
if (recEmail <> "") then
emailArr = Split(cStr(recEmail), ";")
for rec=0 to UBound(emailArr)
if (InStr(cStr(emailArr(rec)), "@")) then
emailArr2 = Split(cStr(emailArr(rec)), "|WA|")
if (UBound(emailArr2) = 0) then
mailObj.AddRecipient "", WA_StripSpaces(cStr(emailArr(rec)))
else
if (InStr(emailArr2(1), "@")) then
mailObj.AddRecipient WA_TrimLeadingSpaces(emailArr2(0)), WA_StripSpaces(emailArr2(1))
else
mailObj.AddRecipient WA_TrimLeadingSpaces(emailArr2(1)), WA_StripSpaces(emailArr2(0))
end if
end if
end if
next
end if

set WAUE_AddRecipient = mailObj
end function

function WAUE_BodyFormat(mailObj,bodyFormat)
if (bodyFormat = 0) then
mailObj.ContentType = "text/html"
else
mailObj.ContentType = "text/plain"
end if
gBodyFormat = bodyFormat

set WAUE_BodyFormat = mailObj
end function

function WAUE_Definition(remHost)
set retVal = Server.CreateObject("Persits.MailSender")

if (remHost <> "") then
retVal.RemoteHost = remHost
end if

set WAUE_Definition = retVal
end function

function WAUE_SendMail(mailObj,mailAttachments,mailBCC,mailCC,mailTo,mailImportance,mailFrom,mailSubject,mailBody)
if (InStr(mailFrom, "|WA|")) then
dim mailFromArr
mailFromArr = Split(mailFrom, "|WA|")
for f=0 to UBound(mailFromArr)
if (InStr(cStr(mailFromArr(f)), "@")) then
mailObj.FromAddress = mailFromArr(f)
else
mailObj.FromName = mailFromArr(f)
end if
next
else
mailObj.FromAddress = mailFrom
end if

mailObj.BodyText = mailBody

mailObj.Subject = mailSubject

mailObj.SendMail()

set WAUE_SendMail = mailObj
end function

function WAUE_SetImportance(mailObj,Importance)
dim newPriority
newPriority = 3
if (NOT IsNumeric(Importance)) then
if (UCase(Importance) = "HIGH") then
newPriority = 1
end if
if (UCase(Importance) = "LOW") then
newPriority = 5
end if
else
newPriority = cInt(Importance)
end if

mailObj.Priority = newPriority
set WAUE_SetImportance = mailObj
end function
%>