建议使用VBA向每个学生发送电子邮件

Sub SendEmailToStudents()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim rng As Range
    Dim cell As Range
    
    ' 创建Outlook应用程序对象
    Set OutApp = CreateObject("Outlook.Application")
    
    ' 遍历学生信息表格中的每个学生
    Set rng = Sheets("学生信息").Range("A2:B10") ' 假设学生信息表格在名为“学生信息”的工作表中，数据从A2开始，B列为邮箱地址
    For Each cell In rng
        ' 创建邮件对象
        Set OutMail = OutApp.CreateItem(0)
        
        ' 设置邮件的收件人、主题和正文内容
        With OutMail
            .To = cell.Value ' 邮件收件人为当前行的邮箱地址
            .Subject = "关于XXX课程的通知" ' 邮件主题
            .Body = "尊敬的" & cell.Offset(0, -1).Value & "同学，您好！本邮件是关于XXX课程的通知内容。" ' 邮件正文内容，可以根据需要进行修改
            ' 可以添加附件等其他操作
            
            ' 发送邮件
            .Send
        End With
        
        ' 释放邮件对象
        Set OutMail = Nothing
    Next cell
    
    ' 释放Outlook应用程序对象
    Set OutApp = Nothing
    
    ' 提示发送完成
    MsgBox "邮件发送完成！"
End Sub