Call rtitem.AppendStyle(richStyle)
Call rtitem.Appendtext(Chr$(13)+"Viva el NotesRing : "+Chr$(13)+Chr$(13)+"Nombre/Usuario : "+nombre+Chr$(13)+Chr$(13)+"Contraseña/Password : "+contrasena+Chr$(13))
Call rtitem.Appendtext(Chr$(13)+"Para acceder a la nueva webt pulse en --> http://www.notesring.com/"+Chr$(13))
Call memodoc.Send(True)
Set doc = view.GetNextDocument( doc )
Set nuevo=db.createdocument
nuevo.form="envioa"
nuevo.usuario=nombrecom
nuevo.Interusuario=nombre
nuevo.Passwords=contrasena
nuevo.correo=user
Call nuevo.save(True,True)
Wend
End Sub
|
Otros documentos de LotusScript
|