% 'funcion para enviar correos con EasyMail Function EnviarCorreo() Archivo = correo_plantilla Plantilla = Server.MapPath(".") & "\" & Archivo Set SMTP = CreateObject("EasyMail.SMTP.6") With SMTP .LicenseKey = correo_LICENCIA .MailServer = SERVIDOR_SMTP .MailPort = 25 .From = correo_From .FromAddr = correo_FromAddr .Subject = correo_Subject .ESMTP_AuthMode = 1 .ESMTP_Account = correo_Usuario .ESMTP_Password = correo_Clave .OptionFlags = 256 .BodyFormat = 1 .ImportBodyTextEx Plantilla, 2 .AddRecipient correo_NombreCliente, correo_cliente, 1 .AddRecipient correo_NombreAdministrativo, correo_administrativo, 3 For Each Campo In Request.Form .ReplaceBodyTextToken Campo, MemoAHTML(Request.Form(Campo)), 0 Next EnviarCorreo = Not (.Send > 0) End With End Function var_ok=2 if request.QueryString("mail")="si" then if EnviarCorreo then var_ok = 1 else var_ok = 0 end if end if %>
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||
|