使用 OTA API 通过电子邮件发送图

此部分提供有关如何使用 OTA API 通过电子邮件从分析视图中发送选定图的示例。

备注: 为了帮助确保最佳的系统性能，建议您一次触发不超过 10 封电子邮件。

'Connect to OTA

Set tdc = CreateObject("TDAPIOLE80.TDConnection")

tdc.InitConnectionEx "server url"

'Connect to project

tdc.ConnectProjectEx "domain name","project name","user name","password"

'Get analysis item

set oFactory = tdc.AnalysisItemFactory

SET obj = oFactory("item id") // analysis item id

'Send email

obj.mail "to email address", "cc to email address-optional", 0, "Email Subject", "Email contents"

'Logout and disconnect from server

tdc.logout

tdc.Disconnect

返回页首