使用TCL在电子邮件中编写彩色字体

Question

我使用Tcl和expect脚本自动化Fedora 12上的网络交换机。测试日志和附件结果发送到电子邮件收件箱（Office 365）-浏览器和Outlook模式。我想知道是否有一种方法可以使用TCL或shell脚本使彩色字体在我的电子邮件中出现。例如，在发送到电子邮件中的报告中，“通过”文本应以绿色粗体显示，而“失败”字体必须以红色粗体显示。tput是否有用？请帮忙解决。谢谢。

- code_trot

---

有关htmlgen、exmh或xmlgen可能如何有用的任何评论？不过我没有使用Tk。 - code_trot

Answer 1

只需使用HTML电子邮件（带有content-type：text/html标头）和内联CSS对其进行着色。

Passed 应该是

<span style="color:green"><font color="green"></font></span>

这里的span提供了样式。font则作为备用，如果无法生效。有些电子邮件客户端可能会删除这些内联样式。

- Shiplu Mokaddim

---

请注意，仅发送HTML邮件是不被赞同的。如果您不将邮件发送给自己，则应发送一个multipart/alternative，其中包含文本/ HTML和纯文本版本。Tcllib的mime包可以帮助您完成此操作。 - Johannes Kuhn

@johannes，请告诉我这是否正确。<pre> <code> set mime_msg [mime::initialize -canonical "text/html" "multipart/alternative eml" -encoding "US-ASCII" -string $body] <p><span style="color:green">通过</span><span style="color:red">失败</span></p> - code_trot

Answer 2

你需要两种不同的东西：邮件中的彩色文本和shell中的彩色文本。其他人已经回答了邮件部分，所以我想解决shell部分。对于终端输出，我使用term::ansi::send包。下面是一个示例：

package require cmdline
package require term::ansi::send

proc color_puts {args} {
    # Parse the command line args
    set options {
        {bg.arg default "The background color"}
        {fg.arg default "The foreground color"}
        {nonewline "" "no ending new line"}
        {channel.arg stdout "Which channel to write to"}
    }
    array set opt [cmdline::getoptions args $options]

    # Set the foreground/background colors
    ::term::ansi::send::sda_fg$opt(fg)
    ::term::ansi::send::sda_bg$opt(bg)

    # puts
    if {$opt(nonewline)} {
        puts -nonewline $opt(channel) [lindex $args end]
    } else {
        puts $opt(channel) [lindex $args end]
    }

    # Reset the foreground/background colors to default
    ::term::ansi::send::sda_fgdefault
    ::term::ansi::send::sda_bgdefault
}

#
# Test
#

puts "\n"
color_puts -nonewline -fg magenta "TEST"
color_puts -nonewline -fg blue    " RESULTS"
puts "\n"

color_puts -fg green "test_001 Up/down direction movements passed"
color_puts -fg red "test_002 Left/right direction movements failed"

讨论

• color_puts 可用的标志包括 -bg 表示背景颜色，-fg 表示前景颜色，-nonewline 表示抑制新行字符输出，-channel 表示将输出定向到文件。
• 可用的颜色包括黑色、蓝色、红色、绿色、黄色、洋红色、青色、白色和默认色。要获取更多信息，请查阅 term::ansi::send 包。

- Hai Vu

---

我正在检查是否有一种使用Shell编码的方法，如果我的句子有误导之处，我很抱歉。谢谢。 - code_trot

Answer 3

这里有一个我用来发送邮件的简单脚本（你可能需要为smtp::sendmessage提供用户名/密码）

set textpart [::mime::initialize -canonical text/plain -string {Hello World}]
set htmlpart [::mime::initialize -canonical text/html -string  {<font color="green">Hello World</font>}]
set tok [::mime::initialize -canonical multipart/alternative -parts [list $textpart $htmlpart] -header {From [e-mail]}]
::mime::setheader $tok Subject {Hello World}
::smtp::sendmessage $tok -servers smtp.example.com -recipients [e-mail] -originator [e-mail]
::mime::finalize $tok -subordinates all

一些注意事项：

• 您可以为HTML和纯文本使用不同的消息，但是应在两者中都包含所有信息。客户端通常选择它可以显示的更好的格式。
• 如果您想发送附件，则必须添加另一个multipart/mixed（构建方式与multipart/alternative相似），其中的第一部分应该是消息（您的multipart/alternative），其他部分是附件。
• 根据某些更或更少晦涩的情况，SMTP和MIME软件包使用一些无效的系统默认值（例如带有空格的用户名）。如果发生这种情况，则必须向其中一个或多个命令提供额外的信息。

- Johannes Kuhn

---

mime::initialize -canonical text/html multipart/mixed -encoding base64 -string $body] set body "<font size=12><font face=Arial><b><font color=green>Passed</b></font>" 在附件发送方面运作良好。 - code_trot