Bueno pues aquí voy de nuevo con molestias....
Como bien saben, el código para enviar una autorespuesta que incruste la hora y la fecha y guarde el mensaje en loe elementos enviados, solo que ahora hay un problema mas grande.
Si por alguna razón la cuenta que envía el correo a la cuenta con el agente de autorespuesta configurado genera una autorespuesta se crea un loop infinito.
La pregunta es:
Que soluciones se les ocurren para poder solucionar este problema?
El código actual, es el siguiente:
%REM
Agente de Autorespuesta
Octubre 2010/Enrique Sanchez
Este script genera un mensaje de autorespuesta que contiene la fecha y hora de recepcion de un correo electronico.
%END REM
Option Public
Option Declare
'Se inicializa el agente
Sub Initialize()
'Se declaran variables
Dim Ses As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim body As NotesRichTextItem
Dim sub1 As Variant
Dim sub2 As Variant
Dim addsubject As Variant
Dim myvar As Integer
'Se establecen valores en orden jerarquico
Set db = Ses.CurrentDatabase
Set doc = Ses.DocumentContext
Set memo = db.CreateDocument
'Se obtiene el valor "Asunto" del documento que recibimos
addsubject = doc.GetItemValue("Subject")
'Se agrega el asunto a la respuesta hacia el remitente incluyendo el asunto con el que envio su correo
memo.Subject = "Re: " + CStr(addsubject(0)) + "Su mensaje ha sido recibido."
'Se asigna valor a la variable "body" como un elemento de texto enriquecido
Set Body = New NotesRichTextItem( memo, "Body" )
'Se genera el cuerpo del correo
Call Body.AppendText("Su mensaje enviado a la direccion: 'test@company.org' se ha recibido correctamente" + " el "+ Date$ + " a las " + Time$ +".")
'Se asignan valores a las variables que se usaran para enviar la respuesta
sub1 = doc.GetItemValue("SendTo")
sub2 = doc.GetItemValue("From")
'Se guarda el destinatario en la respuesta.
memo.SendTo = sub2
'Se indica que el mensaje que se enviara se salvara en elementos enviados
memo.SaveMessageOnSend = True
'Se envia el mensaje
Call memo.Send(False, CStr(sub2(0)) )
Exit Sub
End Sub