案例说明

       读取Excel表中的邮件信息， 进行消息发送， 状态更新

效果展示

案例实现

/*
需求: 读取Excel表中的所有邮箱, 批量发送,并更新状态
思路:
1, 打开Excel
2, 读取内容
3, 遍历内容
4, 批量发送
5, 更新表格
*/
// 1, 打开Excel
dim objExcelWorkBook
Try
    objExcelWorkBook = Excel.BindBook("邮件列表.xlsx")
Catch 变量名
    objExcelWorkBook = Excel.OpenExcel("C:\\Users\\LaiYe\\Desktop\\源码讲解\\邮件批量发送\\邮件列表.xlsx",true,"Excel","","")    
End Try

// 2, 读取内容
dim iRet = Excel.GetRowsCount(objExcelWorkBook,"Sheet1")

// 3, 遍历内容
For i=2 To iRet
    // 3,1 读取行
    dim arrayRet = Excel.ReadRow(objExcelWorkBook,"Sheet1","A"&i)
    dim name = arrayRet[0]
    dim email = arrayRet[1]
    dim title = arrayRet[2]
    dim content = arrayRet[3]

    // 4, 批量发送
    dim send_msg = "发送成功"
    Try
        Mail.Send("smtp.qq.com","417240658@qq.com","miuatpfqqwptcajc",email,name&"你好,"&title,content,"",25,false,"")    
    Catch 变量名
        send_msg = "发送失败"
    End Try

    // 5, 更新表格
    dim dTime = Time.Now()
    dim sRet = Time.Format(dTime,"yyyy-mm-dd hh:mm:ss")
    Excel.WriteRow(objExcelWorkBook,"Sheet1","E"&i,[sRet,send_msg],false)
Next