[求助]为何插入附件却只插入其快捷键方式？

rabbit

各位好！

我使用 MS Office Outlook 作为电子邮件的默认收发程序，编辑邮件默认使用Word来处理，使用HTML格式，为何我在VBA中用以下代码插入附件时，却只插入其快捷键方式而非整个文档？如何做才可解决这个问题？谢谢！！

MyNewMail.Attachments.Add "C:\pmp.xls", olByValue, 1

aaaaabbbbb

帮助里有一段文字供参考。

对于 Microsoft Outlook RTF 格式的电子邮件，Position 参数的值为 1 表示附件应位于邮件正文的开头。如果值为大于电子邮件项目正文字符数的值 n，则表示应将附件放在结尾。值为 0 表示隐藏附件。

以下 Microsoft Visual Basic/Visual Basic for Applications (VBA) 示例创建一个邮件项目、添加一个附件并显示它。若要运行该示例，请确保在 C:\ 文件夹中存在名为 Test.Doc 的文件。

Sub AddAttachment()
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Set myItem = myOlApp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
    myAttachments.Add "C:\Test.doc", _
        olByValue, 1, "Test"
    myItem.Display
End Sub
	

我测试过是可以的。

rabbit

谢谢aaaaabbbbb!!

已查出原因, 是因为没有在工程的设定引用项目中选取 MSOUTL.OLB 造成.