HTML Editor? - Forum

Forum Navigation
You need to log in to create posts and topics.

HTML Editor?

Page 1 of 2Next

What happened to the WYSIWYG HTML page editor plugin? I can't seem to find it anywhere? Or perhaps there's another way to implement HTML editing?

Anyone?

Good afternoon! I don't quite understand the question. Which plugin do you have in mind? EditorsToolbox 1.75 (C. Giebel) ?

There was a NeoBook plugin called NeoWebEdit which had full WYSIWYG HTML editing ability. But I seem to have lost it.

I only actually need an HTML editor, perhaps with colour-coding etc.

 

Uploaded files:
  • You need to login to have access to uploads.

@glyn

I wrote below the nickname of the manager of this project so that he would notice your message.

@rcohen

luishp and Glyn have reacted to this post.
luishpGlyn

Thanks @vadim,

Hi @glyn,  the plugin you refer to was coded by an Elliott Stevens and he left the scene years ago and took his project with him.   I don't have  away to generate a key for the plugin and even if I did, I'm sure it's long been outdated....  outdate browser components at the very least.

With that said, there is a good chance we might have a brand new one before the end of the year.   I'm "in negotiations" for one ;-)

Sorry I wish I had better, or at least, more immediate news.

 

luishp has reacted to this post.
luishp

Aha! I look forward to the success of your negotiations!

Outdated, though, can be good. A lot of web stuff is just trying to be too clever. Neo works 'cos its simple

luishp and Vadim have reacted to this post.
luishpVadim

Hi @glyn,

Take a look of this link:

https://aplicaciones.xp3.biz/neobook/

and check the "Text / Texto" Frame link

You could see the NeoHTMLEditor plugin.

Runs on winXP under VM Oracle VirtualBox

 

My 0.01

David de Argentina

Glyn has reacted to this post.
Glyn

That's the one! A splendid piece of work. I don't see how I can download it though?

Hi @glyn,

If you email me at:

aplicaciones (at) rocketmail (dot) com

I will resend you the sample of the plugin.

Remember:

Plugin works fine under Win XP over Oracle VM VirtualBox.

Plugin does not works under Win 10 or newer.

Greetings from Buenos Aires,

David de Argentina

Ah! I only have Win 10, 11, and Linux. All the same, is it worth a try? It was a a very good plugin.

I'm using Win10 Pro (21H2)

(I7 / 12GB / 1TB)

Running Oracle VM VirtualBox in order to run WinXP at the same time

You can see the Logos ov WinXP and VirtualBox 6.1, running NeoHTMLEditor sample

 

Uploaded files:
  • You need to login to have access to uploads.

1.- Download Oracle VM VirtualBox:

https://www.virtualbox.org/wiki/Downloads

 

2.- Download Virtual ISO Clone:

https://virtualclonedrive.informer.com/download/

 

3.- Download WinXP SP3 (I found it as ISO File):

https://archive.org/download/WIndows-XP-Professional-SP3

 

After download this files, runs each installer in this order.

My 0.01

David de Argentina

Yes, Sadly Elliott Stevens had abandoned the project when the (expensive) component we had wasn't compatible with the newer OS and they wanted an entirely new license to upgrade.  We didn't have enough business to warrant the additional expenditure and so we cancelled the project.

Perhaps one day, we'll have a new one ;-)

@daviddeargentina

Queria consultarte si el plug neohtml que tu hiciste si o si debe correr bajo esos parametros que indicas en tus post.

Esto es para saber si sigue desactualizado o ya se puede usar directamente con windows 10 y aplicar en una aplicacion directa sin instalaciones paralelas

Desde ya te agradezco tu respuesta

Saludos

Hola @roxana6218

Las versiones alternativas del IE, a saber Chrome (chromiun y todas sus variantes) , mozilla, Gecko, etc) ya no permite el uso de ese tipo de componentes.
Es por eso es que ir a buscar otro camino, ya sea sobre la base de alternativas de sistemas operativos (virtualbox) o desde algun componente que funcione dentro de algún navegador web que puede ser usado como plugin para visualneowin /  neobook
Saludos desde Buenos Aires

Estuve investigando si ahora existe algún servicio que se pueda incrustar dentro de algún navegador web.

Encontré varios, pero ninguno resuelve el "Abrir" y "Guardar Como", para que quede realmente util.

Este es la mejor alternativa que encontré, que -aparentemente- resuelve todos los tags de una manera correcta BASADO EN TEXTO PLANO. Cuando abre un archivo html parece perder algunos formatos y tags previamente definidos.

 

Si a alguien le interesa ver el contenido del PUB, se los puedo proveer por u$s 10.-

 

I was investigating if there is now a service that can be embedded within a web browser.

I found several, but none of them solve the "Open" and "Save As", so that it is really useful.

This is the best alternative I found, which -apparently- resolves all tags in a correct way BASED ON PLAIN TEXT. When you open an html file it seems to lose some previously defined formats and tags.

 

If anyone is interested in seeing the content of the PUB, I can provide it for $10.-

 

Uploaded files:
  • You need to login to have access to uploads.

El ejemplo fue hecho usando el plugin ezEdge.

Tal vez sea necesario que lo tengan instalado para que les funcione

 

The example was made using the ezEdge plugin.

You may need to have it installed for it to work.

 

@daviddeargentina

Muchas gracias por tu respuesta.
Aprovecho tu generosidad para ver si me puedes dar una mano porque creo que esta función es de tu autoría, me la paso una amiga hace mucho
tiempo. ahora la quiero usar y me encuentro que cuando le digo que quiero enviar el archivo dato.html al ejecutar la función me salta un error
que dice que se esperaba una instrucción

yo configure todos los datos de la función y el archivo que debe enviar es dato.html

te transcribo la función a ver si me pues ayudar a encontrar en donde le estoy errando y porque me dice que espera instrucciones y no lo envía..

 

Setvar "[file]" "[pubdir]dato.html"
SetVar "[ServerPort]" "465"

FUNCION DE ENVIO

{NeoBook Function}
Version=5,80
Language=VBScript
Param=[%1]|Text|De:
Param=[%2]|Text|Para:
Param=[%3]|Text|Servidor SMTP:
Param=[%4]|Text|Usuario:
Param=[%5]|Text|Contraseña:
Param=[%6]|Text|Mensaje:
Param=[%7]|Text|Asunto
Param=[%8]|Text|Usar SSL ? ( SI / NO )
Param=[%9]|Text|Adjuntos
{End}
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

'Como NeoBook sólo soporta 9 parametros, el port hay que entrarlo asi:
'----------------------------------------------------------------------
dim port
port = publication.nbGetVar( "[ServerPort]" )
' es super importante que uses en Neo esta variable [ServerPort], o vas a hacer lio con el puerto
'----------------------------------------------------------------------
dim ReplyTo
ReplyTo = publication.nbGetVar( "[ReplyTo]" )
'----------------------------------------------------------------------
dim Nombre_From
Nombre_From = publication.nbGetVar( "[Nombre_From]" )
'----------------------------------------------------------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "[%7]"
objMessage.From = Nombre_From + "<" + "[%1]" + ">"
'objMessage.From = "[%1]"
objMessage.To = "[%2]"
objMessage.ReplyTo = ReplyTo
'objMessage.TextBody = "[%6]"
'objMessage.HTMLBody = "[%6]"

'aca vienen los cambios para que cree un Body HTML
'----------------------------------------------------------------------
objMessage.CreateMHTMLBody [%6]
'----------------------------------------------------------------------

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[%3]"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[%4]"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[%5]"

'Use SSL for the connection (False or True)

if "[%8]" = "NO" Then
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'11/12/2013: borré la configuración automática del SMTP port. se pasa por variable
else
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'11/12/2013: borré la configuración automática del SMTP port. se pasa por variable
end if

' 11/12/2013: setup the SMTP port
'----------------------------------------------------------------------
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = port
'----------------------------------------------------------------------

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

If "[%9]" <> "" Then
objMessage.AddAttachment ("[%9]")
End If

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==
Sub CopyText(text)
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.SetData("text", text)
End Sub

On Error Resume Next

objMessage.Send

dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dir = fso.GetAbsolutePathName(".")

If Err Then
' agregué variable de vuelta a NeoBook: [SendMail.Status]
'----------------------------------------------------------------------
publication.nbSetVar "[SendMail.Status]", "Error"
'----------------------------------------------------------------------
msg = "[%2]"&" - No enviado (fallo!)"
outFile = fso.BuildPath(dir, "error.dat")
Set objFile = fso.OpenTextFile(outFile, 8, True, 0)
objFile.WriteLine "[%2]"
objFile.Close
copytext(msg)
Err.Clear()
Else
' agregué variable de vuelta a NeoBook: [SendMail.Status]
'----------------------------------------------------------------------
publication.nbSetVar "[SendMail.Status]", "Ok"
'----------------------------------------------------------------------
msg = "[%2]"&" - Enviado Ok!"
outFile = fso.BuildPath(dir, "exito.dat")
Set objFile = fso.OpenTextFile(outFile, 8, True, 0)
objFile.WriteLine "[%2]"
objFile.Close
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd /C echo " & msg & " | CLIP", 2
copytext(msg)
End If
Set objMessage = Nothing

Un par de observaciones:
* Al no tener información de cual es tu servidor de correos, no puedo tracear si hubiera algún problema.
* Si tu intención es enviar correos usando alguna cuenta de Gmail u otros servidores de correo gratuitos, lo mas probable es que no te funcione mas. Esto ya lo he mencionado en varias ocasiones de los permanentes cambios de seguridad que plantea Gmail  y los correos gratuitos que arrastra junto con el.
* Si tu cuenta de correo está definido en un servidor de pago, lo mas probable es que funcione sin dificultad.
Bienvenida a las pesadillas de Google.

@roxana6218, @daviddeargentina

aca tienes la solucion y funciona perfectamente, claro no se con correos gratuitos pero con un servidor smtp pago te aseguro que te va a funcionar perfectamente.

Para enviar un archivo HTML como mensaje en el código proporcionado, necesitas modificar la línea que establece el cuerpo del mensaje (objMessage.CreateMHTMLBody). En lugar de pasar directamente [%6] como el cuerpo HTML, deberías leer el contenido del archivo HTML y pasarlo como argumento. Aquí hay un ejemplo de cómo hacerlo:

' Obtener el contenido del archivo HTML
dim htmlFilePath
htmlFilePath = "Ruta_Del_Archivo.html" ' Reemplaza con la ruta correcta de tu archivo HTML
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim htmlFile: set htmlFile = fso.OpenTextFile(htmlFilePath)
dim htmlContent
htmlContent = htmlFile.ReadAll()
htmlFile.Close()

' Crear el mensaje
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "[%7]"
objMessage.From = Nombre_From + "<" + "[%1]" + ">"
objMessage.To = "[%2]"
objMessage.ReplyTo = ReplyTo

' Establecer el cuerpo HTML del mensaje
objMessage.CreateMHTMLBody "text/html", htmlContent

' Resto del código...

En este código, he añadido las líneas necesarias para leer el contenido del archivo HTML y almacenarlo en la variable htmlContent. Luego, he modificado la línea objMessage.CreateMHTMLBody para usar htmlContent como el cuerpo HTML del mensaje.

Asegúrate de reemplazar "Ruta_Del_Archivo.html" con la ruta correcta de tu archivo HTML. Además, ten en cuenta que este código asume que el contenido del archivo HTML es válido y no tiene errores.

Saludos

Roxana6218 has reacted to this post.
Roxana6218
Page 1 of 2Next
Open chat
1
Do you need more info?
Hi, do you have any doubt?