使用 Exchange 2013 创建纯文本邮件
Create a plain text message with Exchange 2013
我每次创建消息时都会尝试发送纯文本消息,但它会更改为 HTML 格式。
我正在使用 PowerShell v5 和 CDO 1.2.1 以及 Redemption v5.19 并连接到 Exchange 2013。
我正在创建一个 IPM.Note 并将 bodyformat 设置为 1(纯文本),但是只要我向正文添加任何文本,bodyformat 值就会更改为 2 (HTML)。一旦 bodyformat 设置为 2,我就无法将值改回。
$rs = New-Object -ComObject "Redemption.RDOSession"
$rsOutbox = $rs.GetDefaultFolder(4)
$msg = $rsOutbox.items.add("IPM.Note")
$msg.BodyFormat = 1
$msg.body = "Test"
您可以尝试将 RTFBody 设置为明确指定纯文本正文的字符串:
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set folder = Session.GetDefaultFolder(4)
set Msg = folder.Items.Add
Msg.To = "user@example.com.com"
Msg.Subject = "testing body format"
Msg.RTFBody = "{\rtf1\ansi\ansicpg1252\fromtext \fbidis \deff0{\fonttbl " & _
"{\f0\fswiss Arial;}" & _
"{\f1\fmodern Courier New;}" & _
"{\f2\fnil\fcharset2 Symbol;}" & _
"{\f3\fmodern\fcharset0 Courier New;}}" & _
"{\colortbl\red0\green0\blue0;\red0\green0\blue255;}" & _
"\uc1\pard\plain\deftab360 \f0\fs20 Test \par" & _
"}"
Msg.BodyFormat = 1
Msg.Save
我每次创建消息时都会尝试发送纯文本消息,但它会更改为 HTML 格式。
我正在使用 PowerShell v5 和 CDO 1.2.1 以及 Redemption v5.19 并连接到 Exchange 2013。
我正在创建一个 IPM.Note 并将 bodyformat 设置为 1(纯文本),但是只要我向正文添加任何文本,bodyformat 值就会更改为 2 (HTML)。一旦 bodyformat 设置为 2,我就无法将值改回。
$rs = New-Object -ComObject "Redemption.RDOSession"
$rsOutbox = $rs.GetDefaultFolder(4)
$msg = $rsOutbox.items.add("IPM.Note")
$msg.BodyFormat = 1
$msg.body = "Test"
您可以尝试将 RTFBody 设置为明确指定纯文本正文的字符串:
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set folder = Session.GetDefaultFolder(4)
set Msg = folder.Items.Add
Msg.To = "user@example.com.com"
Msg.Subject = "testing body format"
Msg.RTFBody = "{\rtf1\ansi\ansicpg1252\fromtext \fbidis \deff0{\fonttbl " & _
"{\f0\fswiss Arial;}" & _
"{\f1\fmodern Courier New;}" & _
"{\f2\fnil\fcharset2 Symbol;}" & _
"{\f3\fmodern\fcharset0 Courier New;}}" & _
"{\colortbl\red0\green0\blue0;\red0\green0\blue255;}" & _
"\uc1\pard\plain\deftab360 \f0\fs20 Test \par" & _
"}"
Msg.BodyFormat = 1
Msg.Save