Excel 将Outlook项目保存为VBA问题

我在保存outlook项目时遇到问题。（嗯，我刚刚意识到我正在使用Ms Word-这有关系吗？我还能在这里发布吗？）无论如何，问题是，Word正在创建消息并发送它（带有附件、主题和所有内容），但它没有将文件正确地保存在指定的位置。它正在保存为1 KB且未打开。下面是错误代码和图像。谢谢你的帮助

代码：

---

谢谢你的帮助

尝试调用myItem.Save，然后再调用SaveAs。

尝试调用myItem.Save，然后再调用SaveAs。

我找到了答案

我需要从SaveAs行的末尾删除“、olMsg”部分。无论如何谢谢你

我明白了

我需要从SaveAs行的末尾删除“、olMsg”部分。无论如何谢谢你

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