Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Pregunta: | 42223 - MAIL AUTOMÁTICO |
| Autor: | Vicente Bautista Laguna |
| Hola a todos, Tengo un programa que envía automáticamente un correo por medio de Lotus Notes, todo funciona bien ejecutandolo en local, el problema es cuando desde Terminal Server quiero ejecutar este programa, mis dudas son las siguientes: 1. ¿Puedo recuperar de alguna manera la cuenta de Lotus que tiene el usuario en local?, quisiera que el programa gestionara estos envíos desde la cuenta de correo de cada usuario. 2. He podido ver en preguntas respuestas anteriores que en los ejemplos que se dan de envíos automáticos no se está utilizando el OpenMail(), si yo no lo utilizo me dice que la base de datos no está aún abierta, ¿que estoy haciendo mal? Os envío mi programa para que veais sis está bien. createobject class("Notes.NotesSession") Target(Lnotes) db = Lnotes.GETDATABASE("", "") db.openmail() //open mail for current user doc= db.createdocument() doc.form="Memo" doc.SendTo=IoDirMail.Text doc.subject = gFunciones.fConcat('Notificación modificación de Campaña :', %SUBST($comunicado(LvComunicado), 4), '', 1) doc.SaveMessageOnSend=1 doc.logo="StdNotesLtr16" // Logo. rti=doc.CreateRichtextitem("Body") rti.embedobject(1454, "", pdestination)// tu fichero doc.send(1) //limpiar objetos Lnotes=*nothing db=*nothing doc=*nothing rti=*nothing msgbox Msg('Informe enviado por Lotus Notes') Title(*ThisForm.Caption) icon(*Information) Muchas gracias. Un saludo. Vicente. | |