uibot群发邮件

Dim arrRet = ""
Dim arrElement = ""
Dim objExcelWorkBook = ""
Dim objDatatable = ""
Dim hWeb = ""
Dim bRet = ""
Dim arr=[]
Dim body = []

// 构建数据表，表头和数据
For i = 1 To 3 Step 1 
	push(body,["123@163.com","UiBot 初级实践题 "&i,"RPA 实施测试 "&i])
Next
TracePrint(body)
// 将数据表转化为数组

objDatatable = Datatable.BuildDataTable(body,["收件人","邮件主题","邮件内容"])
objDatatable = Datatable.GetDataTableByArray(objDatatable,True)
// 打开excel
objExcelWorkBook = Excel.OpenExcel('''C:\Users\CURRY30\Desktop\邮件.xls''',True,"Excel","","")
// 将数组中的数据写入excel表
Excel.WriteRange(objExcelWorkBook,"Sheet1","A1",objDatatable,False)
// 打开163网站
objDatatable = Datatable.BuildDataTable(body,["收件人","邮件主题","邮件内容"])
hWeb = WebBrowser.Create("chrome","https://mail.163.com/",30000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
// 获取输入框的特征固定祖宗元素，然后获取子元素


Keyboard.InputText(@ui"输入控件<input>7","123",True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
#icon("@res:763rspva-875m-e7t4-cm7j-g6l0kpen2p4h.png")
Keyboard.InputText(@ui"输入控件<input>6","456",True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
#icon("@res:n8uv090a-cuua-2lbg-18qr-iig9r849hbti.png")
// 点击登陆
Mouse.Action(@ui"链接<a>_登录1","left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
#icon("@res:1s6kin0v-4mqh-lv0i-r2un-ia4ghdpntiq8.png")
//点击写信
Mouse.Action(@ui"列表项<li>_写信1","left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})

// 遍历列
For i = 2 To Excel.GetRowsCount(objExcelWorkBook,"Sheet1") Step 1 
    // 遍历行
	For j = Asc("A") To Excel.GetColumsCount(objExcelWorkBook,"Sheet1")+Asc("A")-1 Step 1 
        // 读取每一个单元格
		info = Excel.ReadCell(objExcelWorkBook,"Sheet1",Chr(j)&i)	
		#icon("@res:mqns2b8n-m159-m622-g63c-60pt074n4avs.png")
        // 判断是否为收件人
		If j = Asc("A")
															#icon("@res:ul7n1caa-2pl9-casu-h2cd-2rrm19cfviiq.png")
			Keyboard.InputText(@ui"块级元素<div>_W1",info,True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
						#icon("@res:v625ofet-1jk6-5i45-crnh-74qa7afh5u7s.png")
		Else
            // 是否为邮件主题
			If j = Asc("B")
												#icon("@res:a0ofig9b-rgj6-5daf-6fpm-hng0mqfomomq.png")
				Keyboard.InputText(@ui"输入控件<input>5",info,True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
			Else
                // 邮件内容
                // 由于邮件内容的元素区域涉及跨域问题，所以通过js来抓取域中的元素
				js="
                function(){
                // 将信件内容写入邮件内容区域
                document.querySelector('iframe.APP-editor-iframe').contentWindow.document.querySelector('body.nui-scroll').innerHTML='"&info&"'
                return 123
                }"
                // 绑定当前浏览器
				hWeb = WebBrowser.BindBrowser("chrome",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
                // 运行js代码
				sRet = WebBrowser.RunJS(hWeb,js,True,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
				TracePrint(b)
			End If   
			#icon("@res:iuf51jis-afsm-pap3-0n4h-k8uhg84cm3t3.png")
			
		End If
		
	Next
    // 点击发送
    Mouse.Action(@ui"文本<span>_发送","left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
	// 刷新页面，跳转到写信页面
    WebBrowser.Refresh(hWeb,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
    // 进行下一封邮件的写和发送操作
Next