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 = "[email protected]"
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
"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 = "[email protected]"
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


0