HTML 文件内容到电子邮件正文进行中 4gl

HTML file contents to Email Body in Progress 4gl

我从包含 table 行和列的 Progress 程序创建了一个 .html 文件。

我想将 HTML 文件的内容添加到我在 Windows 上使用 "febooti" 电子邮件实用程序发送的电子邮件正文。

如何使用 "febooti" 从我的 Progress 程序发送此 HTML 文件?

febooti.com 网站在电子邮件正文中表示该工具支持 HTML:

https://www.febooti.com/products/command-line-email/commands/htmlfile/

有很多选项,但一个简单的 4gl 测试示例可能如下所示:

define variable smtpServer   as character no-undo.
define variable emailFrom    as character no-undo.
define variable emailTo      as character no-undo.
define variable emailSubject as character no-undo.
define variable altText      as character no-undo.
define variable htmlFileName as character no-undo.
define variable htmlContent  as character no-undo.

assign
  smtpServer   = "smtp.server.com"
  emailFrom    = "varun@email.com"
  emailTo      = "someone@email.com"
  emailSubject = "Test email!"
  altText      = "Sorry, your email app cannot display HTML"
  htmlFileName = "test.html"
.

/* this is obviously just an example, according to your question you
 * have already created the HTML and don't actually need to do this
 */

htmlContent = "<table> <tr><td>abc</td></tr> <tr><td>...</td></tr> <tr><td>xyz</td></tr> </table>".

output to value( htmlFileName ).
put unformatted htmlFile skip.
output close.

/* end of stub html file creation - use your real code */

/* this shells out and sends the email using whatever
 * is in htmlFileName as the content
 */

os-command value( substitute( "febootimail -SERVER &1 -FROM &2 -TO &3 -SUBJECT &4 -HTMLFILE &5 -TEXT &6", smtpServer, emailFrom, emailTo, emailSubject, htmlFileName, altText )).