保存 Outlook 项目 VBA 问题答案

【问题标题】：Saving an Outlook Item VBA issue保存 Outlook 项目 VBA 问题
【发布时间】：2016-02-10 19:29:34
【问题描述】：

我无法保存 Outlook 项目。（嗯，我刚刚意识到我正在与 Word 女士一起工作 - 这有关系吗？我还能在这里发帖吗？）无论如何，问题是，Word 正在创建消息并很好地发送它（带有附件、主题和所有内容），但它没有将文件正确保存在指定位置。它保存为 1 KB 且未打开。下面是错误的代码和图像。非常感谢您的帮助！

代码：

Private Sub CommandButton1_Click()


Dim myString As String
Dim myString2 As String


Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)

' Doing some texts replacements here.
myString = Label9
myString = Replace(myString, "[Name of Person]", TextBoxNoP.Value)
myString = Replace(myString, "[Name of Establishment]", TextBoxNoE.Value)
myString = Replace(myString, "[Date Received]", TextBoxDR.Value)


myString2 = Label10
myString2 = Replace(myString2, "[Name of Establishment]", TextBoxNoE.Value)
myString2 = Replace(myString2, "[Date Received]", TextBoxDR.Value)

' Done with texts replacements here. Setting up, saving and sending messages.
Set myAttachments = myItem.Attachments

myItem.To = TextBoxTo.Value
myItem.CC = TextBoxCC.Value
myItem.Subject = myString2
myAttachments.Add "\\di-afs.doi-ad.state.nv.us\LifeHealth\Charitable Gift Annuities\Charitable Gift Annuities 2016\Pending Charitable Gift Annunites\" & TextBoxAtt.Value & ".pdf"
myItem.Body = myString
myItem.SaveAs "\\di-afs.doi-ad.state.nv.us\LifeHealth\Charitable Gift Annuities\Charitable Gift Annuities 2016\E-mails sent by Nanci\" & myString2 & ".msg", olMsg
myItem.Send




Unload Me


End Sub

非常感谢您的帮助！

【问题讨论】：

标签： excel vba ms-word outlook save

【解决方案1】：

在调用 SaveAs 之前尝试调用 myItem.Save。

【讨论】：

【解决方案2】：

我想通了。

我需要从 SaveAs 行的末尾删除“，olMsg”部分。还是谢谢！

【讨论】：