Lotus Notes - Enviar correos desde web

   
Vista:

Enviar correos desde web

Publicado por Angel (1 intervención) el 07/12/2007 10:33:27
Hola, tengo un código en LotusScript en un agente, al que se le llama al pulsar un botón, para enviar correos (enviar el documento actual que antes guardo), pero me da problemas en web, ya que ejecuta el agente de enviar sólo hasta la línea
"Dim workspace As New NotesUIWorkspace"
¿Porqué pasa esto con el workspace? ¿Cómo puedo sino enviar correos por web?

El código del agente es el siguiente:

Sub EnviarMail()
Dim session As New notessession
Dim mail As NotesDocument
Dim db As notesdatabase
Set db=session.currentdatabase

Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace 'da error aquí
Dim uidoc As NotesUIDocument
Dim docactual As NotesDocument
Set uidoc = workspace.CurrentDocument
Set docactual=uidoc.Document

Call uidoc.Save

Set mail=New notesdocument(db)
mail.form="Memo"
mail.Subject = "asunto"
mail.Body=men
mail.SendTo = "direccion@dddd.es"
mail.Principal ="nombre@NotesDomain"

Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem( mail, "Body" )
Call rtitem.AppendDocLink ( docactual, "enlace a doc" )

Set item = docactual.GetFirstItem( "Miembros" )
Forall v In item.Values
Call mail.send(True) 'Call mail.Send( False, v )
End Forall


End Sub

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder