Outlook emailObj.Body没有在某些电子邮件上发送整个电子邮件

Question

我正在使用VBA脚本将电子邮件正文发送到另一个脚本。它发送整个电子邮件正文的一些电子邮件。但是在某些电子邮件上它会停止。

我什么时候都看不到任何模式，也不会发送整个身体。我用来发送数据的代码是：

Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
    Set emailObj = objApp.ActiveExplorer.Selection.Item(1)
 Case "Inspector"
    Set emailObj = objApp.ActiveInspector.CurrentItem
End Select
CurrItem = emailObj.Body
URLs = ShellRun("python useEmailData.py """ & CurrItem & """")

这确实有效，但有时CurrItem不是完整的电子邮件正文，有时则是整个电子邮件。

Answer 1

命令行的长度有限。如果存在特殊字符（例如引用），它也可以被截断。您必须正确编码字符串。