【四二学堂】基于UiBot实现的RPA项目-群发邮件

流程：

Dim iRet = "打开表格错误"
Dim ExcelData = ""
Dim objExcelWorkBook = ""
Dim temp = ""
Try
	objExcelWorkBook = Excel.OpenExcel(@res"考题.xlsx",True,"WPS","","")
	ExcelData = Excel.ReadRange(objExcelWorkBook,"Sheet1","A2:C4")
Catch
	iRet = Dialog.MsgBox("","UiBot","0","1",0)
	exit()
Else
End Try
Return ExcelData

Dim ExcelData = self.Input
Dim hWeb = ""

ExcelData = self.Input
TracePrint(ExcelData[0][0])

Dim iRet = ""
Dim bRet = ""
Dim objMail = ""

objMail = Mail.Connect("pop.qq.com", "974250703", "kkwlnhgpwopkbcji", "POP3", 995, True)

For i = 0 To 2 Step 1 
	
	bRet = Mail.SendEx("smtp.qq.com",587,False,"974250703","kkwlnhgpwopkbcji",ExcelData[i][0],ExcelData[i][0],"",ExcelData[i][1],ExcelData[i][2],"")
	
Next