Vbscript 如何通过testcomplete在新outlook邮件中添加默认签名和新表

我正在尝试使用vb脚本语言通过testcomplete发送新的outlook邮件。在新邮件中，我希望通过testcomplete添加新表并在邮件底部保留默认签名。使用此代码时，我遇到VB脚本运行时错误。请检查代码，并建议我添加新表和签名时必须使用的正确方法

Function SendMail()
Dim objOutLook, NamespaceMAPI,objNewMail, fso, SendReceiveControls
Dim strTo,strCc ,strBcc ,strSubject, AccountName,strAttachmentPath

strSubject="test"
strTo=yyy@yy.com
strCc=XXX@XX.com
strBcc =zzz@zzz.com
strAttachmentPath="c:\text.txt"

Set objOutLook = CreateObject("Outlook.Application")    
Set NamespaceMAPI = objOutLook.GetNamespace("MAPI")
Set objNewMail = objOutLook.CreateItem(olMailItem)  
objOutLook.DisplayAlerts =True  
objNewMail.TO = strTo
objNewMail.CC = strCc
objNewMail.BCC=strBcc
objNewMail.Subject = strSubject
objNewMail.Body = strMsg

If strAttachmentPath <> "" Then 
Set fso =CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strAttachmentPath) Then
    objNewMail.Attachments.Add(strAttachmentPath)
    objNewMail.GetDefaultsignature()               'script run time error occured here

    objNewMail.addtable(4,3)
    objNewMail.display

Else 
    msgbox "Attachment File Does not exists"
End If  
End If


objOutLook.Quit

''''''' Releasing objects '''''''
Set objOutLook =Nothing 
Set objNewMail = Nothing
Set fso = Nothing

End Function

函数SendMail（） Dim objOutLook、名称空间MAPI、objNewMail、fso、SendReceiveControls Dim strTo、strCc、strBcc、strSubject、AccountName、strAttachmentPath strSubject=“测试” 斯特托=yyy@yy.com strc=XXX@XX.com strBcc=zzz@zzz.com strAttachmentPath=“c:\text.txt” 设置objOutLook=CreateObject（“Outlook.Application”） Set NamespaceMAPI=objOutLook.GetNamespace（“MAPI”） 设置objNewMail=objOutLook.CreateItem（olMailItem） objOutLook.DisplayAlerts=True objNewMail.TO=strTo objNewMail.CC=strCc objNewMail.BCC=strBcc objNewMail.Subject=strSubject objNewMail.Body=strMsg 如果是strAttachmentPath“”，则 设置fso=CreateObject（“Scripting.FileSystemObject”） 如果存在fso.files（strAttachmentPath），则 objNewMail.Attachments.Add（strAttachmentPath） objNewMail.GetDefaultsignature（）'此处发生脚本运行时错误 objNewMail.addtable（4,3） objNewMail.display 其他的 msgbox“附件文件不存在” 如果结束 如果结束 objOutLook，退出 释放物体 设置objOutLook=Nothing Set objNewMail=Nothing 设置fso=无 端函数 请帮帮我。。提前感谢……

看看是否有帮助。它们是你的替代方法。

---

我更喜欢使用第二种方法，即CDO方法，您只需注意这封电子邮件通常会进入垃圾邮件收件箱，您需要手动将其添加到您的安全联系人中

您的代码显示您遇到运行时错误。由于我们不是通灵者，您需要向我们展示它。我只能使用outlook通过testcomplete发送outlook邮件，所以我不会使用CDO方法，我的outlook邮件将只发送到收件箱。我们可以向新邮件添加表和签名吗？请建议将html写入“mMessage.HTMLBody”->检查html语法：