Al final el error se encontraba en el diseño de mi base de datos y se soluciono con un load convert.
%REM
Agente de Autorespuesta
Octubre 2010/LESS
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
On Error GoTo errores
'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: 'xxxxxxxxx@compañia.com' 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 salva el mensaje en elementos enviados
memo.SaveMessageOnSend = True
'Se envia el mensaje
Call memo.Send(False, CStr(sub2(0)) )
salimos:
Exit Sub
'Se declara el metodo errores para enviar en un message box la linea con error y el error.
errores:
MsgBox Erl
MsgBox Error
Resume salimos
End Sub
Gracias a Daniel, Miguel Angel, Albert y Marcelo Elgueta de IBM.