Aspmail

Saludos Expertos:
Tengo el siguiente código que me envía mails a través de asp con CDONTS y en el servidor que tengo alojada la Web solo permite USAR ASPMAIL.
Podríais indicarme que tengo que modificar para que funcione con ASPMAIL.
Gracias..
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "orders@your_address.com"
objNewMail.To = email
objNewMail.Subject = "Your order from your_address.com"
strBody = "Dear "&firstname&","&Vbcrlf&Vbcrlf
strBody=strBody&"Thank you for placing your order with your_address.com. We will process it as soon as possible." & vbcrlf& vbcrlf
strBody=strBody&"Items in stock will be delivered the next working day. We aim to deliver all orders within 7 working days." & vbcrlf& vbcrlf
strBody=strBody&"We will email when your order is about to be delivered." & vbcrlf & vbcrlf
strBody=strBody& "If you have any questions about your order, please the use the following contact details. "& vbcrlf& vbcrlf
strBody=strBody&" Your order reference is : x000-"&order_id&"-111"&vbcrlf&Vbcrlf
strBody=strBody& " your_address "& vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf & vbcrlf
strBody=strBody& "Phone: your_phone" & vbcrlf
strBody=strBody& "Fax: your fax " & vbcrlf
strBody=strBody& "Email: your email" & vbcrlf & vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody&"your_address.com"&vbcrlf
strBody=strBody&"http://www.your_address.com/"
objNewMail.Body=strBody
objNewMail.Send
Set objNewMail = Nothing
end if
Response.Redirect "thanks.asp"
%><!-- #include file="inc/cleanupinc.asp" -->

1 Respuesta

Respuesta
1
Básicamente tenés que invocar o mejor dicho, crear el objeto de otra manera y las propiedades son distintas, te mando el código con aspemail; te muestro donde poner el destinatario, remitente, asunto, mensaje, etc. Vos ponelo después.
Set ObjNewMail = Server.CreateObject ("SMTPsvg.Mailer")
propiedades basicas...
ObjNewMail.FromName = "Nombre del remitente"
ObjNewMail.FromAddress = "[email protected]"
ObjNewMail.Subject = "Asunto del mail que enviamos"
ObjNewMail.BodyText = "Cuerpo o mensaje del mail"
ObjNewMail. AddRecipient "Mario"
ObjNewMail. AddRecipient "Juan"
ObjNewMail. AddBCC "Pedro"
ObjNewMail.RemoteHost = "localhost"
ObjNewMail. SendMail
Ponelo así que va a funcionar.
Antentamente. Manuel Fernández.
He modificado el codigo y no me funciona haber si me puedes corregir este codigo.Te lo agradeceria un monton.
Gracias.
if send_emails=true then
Set ObjNewMail = Server.CreateObject ("SMTPsvg.Mailer")
ObjNewMail.FromName = "www.pc21.es"
ObjNewMail.FromAddress = "[email protected]"
ObjNewMail.Subject = "Confirmacion pedido"
ObjNewMail.BodyText = "Cuerpo o mensaje del mail"
ObjNewMail.AddRecipient "Mario"
ObjNewMail.AddRecipient "Juan"
ObjNewMail.AddBCC "Pedro"
ObjNewMail.RemoteHost = "smtp.pc21.es"
ObjNewMail.SendMail
strBody = "WEB SITE ORDER,"&Vbcrlf&Vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
sql="select * from basket_products a, products b, orders d " & _
"where a.product_id=b.product_id " & _
" and d.basket_id=a.basket_id " &_
" and a.basket_id="&basket_id
set objrs=objconn.execute(sql)
if objrs.eof then
Response.Write "Error"
esponse.end
end if
while not objrs.eof
strBody=strBody&objrs("product_name")&" £"&objrs("product_price")&" ("&objrs("catalogue_id")&") " & objrs("publisher_name")&vbcrlf
order_id=objrs("order_id")
objrs.movenext
wend
select case(cardtype)
case 0:
cardtype="Visa"
case 1:
cardtype="Master Card"
case 1:
cardtype="American Express"
end select
strBody=strBody&"Total : £"&formatnumber(total,2)&vbcrlf
strBody=strBody&"First Name : " & firstname & vbcrlf
strBody=strBody&"Email : " & email & vbcrlf
strBody=strBody&"Surname : " & surname & vbcrlf
strBody=strBody&"Address1 : " & address1 & vbcrlf
strBody=strBody&"Address2 : " & Address2 & vbcrlf
strBody=strBody&"City: " & city & vbcrlf
strBody=strBody&"County : " & county & vbcrlf
strBody=strBody&"Country : " & country & vbcrlf
strBody=strBody&"postcode : " & postcode & vbcrlf
strBody=strBody&"phone : " & phone & vbcrlf
strBody=strBody&"Email : " & email & vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody&"cardtype : " & cardtype & vbcrlf
strBody=strBody&"card Number : " & cardnum & vbcrlf
strBody=strBody&"card expirey : " & cardmonth&"\"&cardyear & vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody&"Shipping First Name : " & sfirstname & vbcrlf
strBody=strBody&"Shipping Surname : " & ssurname & vbcrlf
strBody=strBody&"Shipping Address1 : " & saddress1 & vbcrlf
strBody=strBody&"Shipping Address2 : " & sAddress2 & vbcrlf
strBody=strBody&"Shipping City: " & scity & vbcrlf
strBody=strBody&"Shipping County : " & scounty & vbcrlf
strBody=strBody&"Shipping Country : " & scountry & vbcrlf
strBody=strBody&"Shipping postcode : " & spostcode & vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody&"Order Reference : x000-"&order_id&"-000"&vbcrlf&Vbcrlf
strBody=strBody&"your_address.com"&vbcrlf
strBody=strBody&"http://www.your_address.com"
objNewMail.Body=strBody
ObjNewMail.SendMail
Set objNewMail = Nothing
Set ObjNewMail = Server.CreateObject ("SMTPsvg.Mailer")
ObjNewMail.FromName = "www.pc21.es"
ObjNewMail.FromAddress = "[email protected]"
ObjNewMail.Subject = "Confirmacion pedido"
ObjNewMail.ToAddress = "[email protected]"
strBody = "Dear "&firstname&","&Vbcrlf&Vbcrlf
strBody=strBody&"Thank you for placing your order with your_address.com. We will process it as soon as possible." & vbcrlf& vbcrlf
strBody=strBody&"Items in stock will be delivered the next working day. We aim to deliver all orders within 7 working days." & vbcrlf& vbcrlf
strBody=strBody&"We will email when your order is about to be delivered." & vbcrlf & vbcrlf
strBody=strBody& "If you have any questions about your order, please the use the following contact details. "& vbcrlf& vbcrlf
strBody=strBody&" Your order reference is : x000-"&order_id&"-111"&vbcrlf&Vbcrlf
strBody=strBody& " your_address "& vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf
strBody=strBody& " your_address " & vbcrlf & vbcrlf
strBody=strBody& "Phone: your_phone" & vbcrlf
strBody=strBody& "Fax: your fax " & vbcrlf
strBody=strBody& "Email: your email" & vbcrlf & vbcrlf
strBody=strBody&"__________________________________________"&vbcrlf&Vbcrlf
strBody=strBody&"your_address.com"&vbcrlf
strBody=strBody&"http://www.your_address.com"
objNewMail.Body=strBody
ObjNewMail.SendMail
Set objNewMail = Nothing
end if
Response.Redirect "thanks.asp"
Probá con el siguiente código, este debería funcionar:
Dim Mail
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tuservidor.com"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = From
Mail.FromName = Mail.EncodeHeader(FromName)
Mail.AddAddress Address, Mail.EncodeHeader(AddressName)
Mail.Subject = Mail.EncodeHeader(Subject)
Mail.Body = Body
Mail.SendToQueue
If Err <> 0 Then
Correo = Err.Description
Else
Correo = ""
End If
Atentamente. Manuel Fernandez.
PD: Perdón por la demora.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ventajas o Desventajas de ASP.NET sobre PHP

Me gustaría saber cuales son las ventajas de ASP.NET sobre PHP y por cual decidirme para crear un portal. También querría saber algunas direcciones de ASP.NET pero avanzado ya que ya lo controlo.
2 respuestas

Microsoft OLE DB Provider for ODBC Drivers error '80004005' en windows server

Me marca este error al tratar de trabajar en windows server 2008 r2 con paginas ASP, estas paginas las estuve trabajando en Windows 7 32 bits pero al tratar de cambiarla a windows server, ya investigando encontré que tiene que ver los driver de ODBC...
2 respuestas

Sumar registros hasta ASP clásico

Contar registros hasta ASP clásico Hace años que no toco esto y estoy haciendo pruebas de aquí y allá, pero no consigo hacerlo. Tengo una base de datos en access y tengo registros de llamadas de una centralita telefónica. La tabla tiene 5 columnas...
1 respuesta

Error Microsoft OLE DB Provider for ODBC Drivers error '80004005'

He estado trabajando en un equipo con w7, pero ahora voy trabajar con un equipo w10 todo iba bien hasta que me salio este error, estado buscando y lo que encontrado no me resulta, es obvio que no tiene nada que ver con el código por que si me...
1 respuesta

Como poner una condición if dentro de un select option o desplegable en asp

Estoy intentando poner la condición if en un desplegable para que cuando pulse sobra el botón aceptar y no tenga nada seleccionado dentro del desplegable me lleve a una página la cual me informe que no hay datos seleccionados. Por más que lo intento...
1 respuesta

Cómo diseñar una página para que se adapte a cualquier tamaño de pantalla

Como puedo hacer que el contenido se ajuste a cualquier tamaño de pantalla y zoom que se le pueda dar bueno básicamente tengo unos css que están en pixeles no se si es necesario cambiarlos a porcentajes pero se me dificulta saber que porcentaje es...
2 respuestas

Error en aplicación web al usar framework 4.5

Error de servidor en la aplicación '/asp.netwebadminfiles'. Error de compilaciónDescripción: Error durante la compilación de un recurso requerido para dar servicio a esta solicitud. Revise los detalles de error específicos siguientes y modifique el...
2 respuestas

Como puedo definir el zoom con css?

Como puedo definir para que el zoom que se cargue una página se ha el que yo defina con CSS, por ejemplo si el navegador del usuario actualmente tiene el 100%, yo con css decir que se cargue con 80%, ¿Se puede hacer esto?
2 respuestas

¿Qué Sistema operativo será mejor para un servidor?

Bueno claro que escuchado que linux es mejor para un servidor, pero quiero saber si seria una buena opción para mi ya que yo estoy trabajando con ASP, IIS 7.5 ACCESS bueno también podría ser SQL server, actualmente donde trabajó usa CENTOS 6.5, pero...
2 respuestas

ASP base de datos access y actualización en tiempo real

Hace tiempo realice una base de datos con access y los usuarios van metiendo sus datos desde unos formularios en ASP, los registros luego los visualizo en una pantalla en una pagina resultados de ASP. Hasta aquí todo bien, pero para ver los cambios...
1 respuesta