我正在尝试使用 Microsoft Word 文档作为 Microsoft Outlook 电子邮件的正文。到目前为止，我已经能够使用以下代码将 Word .docx 中的文本包含到电子邮件正文中：
if (File.Exists(fileName.ToString()))
{
DateTime today = DateTime.Now;
object readOnly = false;
object isVisible = false;
//Set Word to invisible
wordApp.Visible = false;
//Open the word document
aDoc = wordApp.Documents.Open(ref fileName, ref missing, ref readOnly, ref missing,
ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing, ref isVisible, ref missing, ref missing, ref missing, ref missing);
try
{
//Activate Document
aDoc.Activate();
//Find Place Holders and replace them with values
this.FindAndReplace(wordApp, "<NameAddressed>", NameAddressed);
this.FindAndReplace(wordApp, "<SessionInfo>", SessionInfo);
this.FindAndReplace(wordApp, "<NumberGuests>", GuestNumber);
this.FindAndReplace(wordApp, "<Balance>", Balance);
//Postal
this.FindAndReplace(wordApp, "<FullName>", FullName);
this.FindAndReplace(wordApp, "<Address1>", Address1);
if (Address2 != " " && Address2 != "" && Address2 != " ")
this.FindAndReplace(wordApp, "<Address1>", Address1 + "\n\r" + Address2);
else
this.FindAndReplace(wordApp, "<Address1>", Address1);
this.FindAndReplace(wordApp, "<City>", City);
this.FindAndReplace(wordApp, "<State>", State);
this.FindAndReplace(wordApp, "<Zip>", Zip);
}
catch (Exception ex)
{
aDoc.Close(ref missing, ref missing, ref missing);
ClientScript.RegisterStartupScript(this.GetType(), "error", "javascript:;alert('" + ex.Message + "')");
return false;
}
aDoc.SaveAs(ref saveAs);
//Save the file as the correct file name
if (DataType.Text == "Email")
{
Outlook.Application oApp = new Outlook.Application();
// Create a new mail item.
Outlook.MailItem eMail = (Outlook.MailItem)oApp.CreateItem(Outlook.OlItemType.olMailItem);
Word.Range r = aDoc.Content;
r.Select();
string s = r.Text;
eMail.Subject = "Confirmation Email";
eMail.To = "[email protected]";
eMail.Body = s;
((Outlook._MailItem)eMail).Send();
//Close the document - you have to do this
aDoc.Close(ref missing, ref missing, ref missing);
}
litError.Text = "File Created. ";
return true;
}
else
{
litError.Visible = true;
litError.Text = "File Does Not Exist";
return false;
}
但此代码不会包含电子邮件中 Word 文档中的图像。有什么方法可以让 .docx 也可以将其图像发送到 Outlook 并保持其原始格式吗？
提前致谢
