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

时间:2014-04-01 08:15:15

标签: vbscript outlook testcomplete

我正在尝试使用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

请帮帮我..谢谢你......

1 个答案:

答案 0 :(得分:0)

查看thisthis是否有帮助。它们是您的替代方法。 我更喜欢使用第二种选择,CDO方法,您只需要注意这个电子邮件通常会发送到垃圾邮件收件箱的事实,您需要手动将其添加到您的安全联系人