' Agent prueba autorespuesta
' Creado el 4 de Octubre de 2010 por Luis Enrique Sanchez Sanchez
' Este script genera un mensaje de autorespuesta que contiene la fecha y hora de recepcion de un correo electronico.
Option Public
Option Declare
'Se inicializa el agente
Sub Initialize()
'Se declaran variables
On Error GoTo errores
Dim Ses As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Memo As NotesDocument
Dim body As NotesRichTextItem
Dim sub1, sub2, addsubject As Variant
Dim myvar As Integer
'Se establecen valores en orden jerarquico
Set db = Ses.CurrentDatabase
Set doc = Ses.DocumentContext
'Se agrega la funcion para salvar el documento enviado
doc.SaveMessageOnSend = True
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
Memo.Subject = "Re: " + CStr(addsubject(0)) + "InfoDF. Su mensaje ha sido recibido."
'Se asigna valor a la variable "body"
Set Body = New NotesRichTextItem( Memo, "Body" )
'Se genera el cuerpo del correo
'Call Body.AppendText("Su mensaje enviado a la direccion: 'luisenrique.sanchez@infodf.org.mx' se ha recibido correctamente" + " el "+ Date$ + " a las " + Time$ + "hrs.")
Memo.body="Su mensaje enviado a la direccion: 'luisenrique.sanchez@infodf.org.mx' se ha recibido correctamente el"
sub1 = doc.GetItemValue("SendTo")
sub2 = doc.GetItemValue("From")
Call Memo.Send(False, CStr(sub2(0)) )
salimos:
Exit Sub
errores:
MsgBox Erl
MsgBox Error
Resume salimos
End Sub