Qtp代码：从eml文件下载附件

下面是一个使用QTP代码从eml文件下载附件的示例：

'打开eml文件
Set objMail = CreateObject("CDO.Message")
objMail.DataSource.Open "C:\path\to\email.eml", 0 '将路径更改为实际的eml文件路径

'遍历附件
For Each objAttachment In objMail.Attachments
    '保存附件到本地
    objAttachment.SaveToFile "C:\path\to\save\attachment\" & objAttachment.FileName '将路径更改为保存附件的目标文件夹路径
Next

'关闭eml文件
objMail.DataSource.Close
Set objMail = Nothing

请注意，这段代码使用CDO.Message对象来打开和读取eml文件，并使用Attachments集合来获取附件。然后，使用SaveToFile方法将附件保存到本地文件夹中。在代码中，需要将实际的eml文件路径和保存附件的目标文件夹路径进行替换。

另外，为了运行这段代码，需要确保计算机上已经安装了Microsoft CDO for Windows 2000 Library。可以在QTP中的“工具”>“引用”对话框中将“Microsoft CDO for Windows 2000 Library”选项勾选上。

希望这个示例能帮到你！