Question

我使用Tcl自动化网络交换机并期望我的Fedora 12上的脚本。测试日志和附件结果被发送到电子邮件收件箱（办公室365） - 浏览器和Outlook模式。

我想知道是否有办法使用TCL或shell脚本在我的电子邮件中显示颜色字体。

例如，在发送到电子邮件的报告中，文本“Passed”应以绿色粗体显示，字体“failed”必须以红色粗体显示。 tput会有用吗？请帮忙。提前谢谢。

Answer 1

只需使用html电子邮件（带content-type: text/html标题）和内联css对其进行着色。

Passed应该是

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

此处span提供样式如果span不起作用，font会提供后备。某些电子邮件客户端可能会剥离这些内联样式。

Answer 2

您要求两个不同的东西：电子邮件中的彩色文本和外壳中的彩色文本。其他人已经回复了电子邮件部分，所以我想解决一下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包。

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 test@example.com}]
::mime::setheader $tok Subject {Hello World}
::smtp::sendmessage $tok -servers smtp.example.com -recipients recipient@example.com -originator test@example.com
::mime::finalize $tok -subordinates all

一些注意事项：

您可以为html和纯文本使用不同的消息，但是您应该在两者中包含所有信息。客户通常会选择可以显示的更好的格式。
如果您要发送附件，则必须添加其他multipart/mixed，（将其构建为multipart/alternative），其第一部分应为消息（您的multipart/alternative ）其他部分是附件。
取决于某些more or less obscure circumstances，smtp和mime包使用一些无效的系统默认值（例如带有空格的用户名）。如果发生这种情况，您必须为一个或多个此命令提供额外信息。

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

3 个答案:

讨论