Quote from Glyn on June 26, 2022, 6:48 pmWhat 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?
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?
Quote from Vadim on June 27, 2022, 6:28 amGood afternoon! I don't quite understand the question. Which plugin do you have in mind? EditorsToolbox 1.75 (C. Giebel) ?
Good afternoon! I don't quite understand the question. Which plugin do you have in mind? EditorsToolbox 1.75 (C. Giebel) ?
Quote from Glyn on June 27, 2022, 10:24 amThere 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.
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:
Quote from Vadim on June 27, 2022, 10:28 am@glyn
I wrote below the nickname of the manager of this project so that he would notice your message.
@rcohen
I wrote below the nickname of the manager of this project so that he would notice your message.
Quote from rcohen on June 27, 2022, 11:56 amThanks @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.
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.
Quote from Glyn on June 27, 2022, 11:59 amAha! 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
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
Quote from DaviddeArgentina on June 28, 2022, 10:14 pmHi @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
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
Quote from DaviddeArgentina on June 30, 2022, 6:39 pmHi @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
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
Quote from Glyn on June 30, 2022, 6:53 pmAh! I only have Win 10, 11, and Linux. All the same, is it worth a try? It was a a very good plugin.
Ah! I only have Win 10, 11, and Linux. All the same, is it worth a try? It was a a very good plugin.
Quote from DaviddeArgentina on June 30, 2022, 9:29 pmI'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
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:
Quote from DaviddeArgentina on June 30, 2022, 9:46 pm1.- 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
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
Quote from rcohen on July 7, 2022, 12:42 amYes, 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 ;-)
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 ;-)
Quote from Roxana6218 on December 12, 2023, 3:46 pm@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
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
Quote from DaviddeArgentina on December 12, 2023, 5:13 pmHola @roxana6218
Ya no es posible seguir actualizando el componente original DHTML que es un OCX, que supone severas fallas de seguridad y que fue deprecado hace muchos años mientras el Internet Explorer servía de componente contenedor para los objetos web.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 / neobookSaludos desde Buenos Aires
Hola @roxana6218
Quote from DaviddeArgentina on December 12, 2023, 7:25 pm@roxana6218Estuve 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.-
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.-
Quote from DaviddeArgentina on December 12, 2023, 7:28 pmEl 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.
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.
Quote from Roxana6218 on December 13, 2023, 2:39 am@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ónyo 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") = 60If "[%9]" <> "" Then
objMessage.AddAttachment ("[%9]")
End IfobjMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
Sub CopyText(text)
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.SetData("text", text)
End SubOn 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
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
Quote from DaviddeArgentina on December 13, 2023, 5:24 am@roxana6218Un 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.
Quote from joferar333 on December 13, 2023, 11:38 am@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, @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