Sub 批量发送对账单()    Dim olApp As Outlook.Application    Dim olMail As Outlook.MailItem    Dim ws As Worksheet    Dim lastRow As Long    Dim i As Long    Dim clientName As String, email As String, attachPath As String    Dim bodyText As String    ' 1. 绑定当前Excel工作表（假设数据在Sheet1）    Set ws = ThisWorkbook.Worksheets("Sheet1")    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取最后一行数据    ' 2. 创建Outlook应用实例（若Outlook已打开则直接绑定，否则新建）    On Error Resume Next    Set olApp = GetObject(, "Outlook.Application")    If olApp Is Nothing Then        Set olApp = CreateObject("Outlook.Application")    End If    On Error GoTo 0    ' 3. 循环处理每一行客户数据    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始        clientName = ws.Cells(i, 1).Value ' 客户名称（A列）        email = ws.Cells(i, 2).Value ' 邮箱地址（B列）        attachPath = ws.Cells(i, 6).Value ' 附件路径（F列）        ' 校验必填字段：邮箱和附件路径不能为空        If email = "" Or attachPath = "" Then            ws.Cells(i, 7).Value = "失败：邮箱或附件路径为空" ' 在第7列记录状态            GoTo NextRow ' 跳过当前循环        End If        ' 校验附件是否存在        If Dir(attachPath) = "" Then            ws.Cells(i, 7).Value = "失败：附件不存在"            GoTo NextRow        End If        ' 4. 创建邮件对象        Set olMail = olApp.CreateItem(olMailItem)        ' 5. 配置邮件内容（个性化正文）        With olMail            .To = email ' 收件人            .Subject = "2024年5月对账单 - " & clientName ' 主题含客户名称，避免被归为垃圾邮件            ' 正文用HTML格式，支持换行和简单样式（比纯文本更易读）            bodyText = "<p>尊敬的" & clientName & "：</p>"            bodyText = bodyText & "<p>您好！附件为贵司2024年5月对账单，请查收。</p>"            bodyText = bodyText & "<p>本月应收金额：" & Format(ws.Cells(i, 3).Value, "#,##0.00") & "元<br>"            bodyText = bodyText & "本月已付金额：" & Format(ws.Cells(i, 4).Value, "#,##0.00") & "元<br>"            bodyText = bodyText & "未付金额：<strong>" & Format(ws.Cells(i, 5).Value, "#,##0.00") & "元</strong></p>"            bodyText = bodyText & "<p>如有疑问，请联系财务小王：123-4567-8912。</p>"            bodyText = bodyText & "<p>此致<br>XX公司财务部</p>"            .HTMLBody = bodyText            ' 添加附件（注意路径必须是绝对路径）            .Attachments.Add attachPath            ' 发送方式：.Send直接发送；.Display显示邮件窗口（用于预览，适合首次测试）            .Display ' 测试时先用.Display，确认无误后改为.Send        End With        ' 6. 记录发送状态        ws.Cells(i, 7).Value = "已发送"        ws.Cells(i, 7).Interior.Color = RGB(198, 239, 206) ' 成功标绿NextRow:        Set olMail = Nothing ' 释放当前邮件对象，避免内存占用    Next i    ' 7. 清理对象    Set olApp = Nothing    MsgBox "批量发送完成！", vbInformationEnd Sub

import win32com.client as win32import pandas as pdimport osfrom datetime import datetimedef batch_send_outlook_emails(excel_path, sheet_name="Sheet1"):    """    批量通过Outlook发送个性化对账单邮件    :param excel_path: 客户清单Excel路径    :param sheet_name: 工作表名称    """    # 1. 读取Excel数据（用pandas处理，比VBA的单元格循环更高效）    try:        df = pd.read_excel(excel_path, sheet_name=sheet_name)        # 确保必要列存在        required_cols = ["客户名称", "邮箱地址", "应收金额", "已付金额", "未付金额", "附件路径"]        if not all(col in df.columns for col in required_cols):            raise ValueError(f"Excel缺少必要列，需包含：{required_cols}")    except Exception as e:        print(f"读取Excel失败：{e}")        return    # 2. 创建Outlook COM对象（和VBA的CreateObject对应）    try:        outlook = win32.Dispatch("Outlook.Application")        # 若需强制新建Outlook实例（避免复用现有窗口），用DispatchEx：        # outlook = win32.DispatchEx("Outlook.Application")    except Exception as e:        print(f"无法连接Outlook：{e}，请确保Outlook已安装并登录")        return    # 3. 新增“发送状态”列，记录结果    df["发送状态"] = ""    success_count = 0    fail_count = 0    # 4. 循环处理每一行数据    for idx, row in df.iterrows():        client_name = row["客户名称"]        email = row["邮箱地址"]        attach_path = row["附件路径"]        # 校验必填字段        if pd.isna(email) or pd.isna(attach_path):            df.at[idx, "发送状态"] = "失败：邮箱或附件路径为空"            fail_count += 1            continue        # 校验附件是否存在        if not os.path.exists(attach_path):            df.at[idx, "发送状态"] = f"失败：附件不存在（{attach_path}）"            fail_count += 1            continue        try:            # 5. 创建邮件对象（对应VBA的CreateItem(olMailItem)）            mail = outlook.CreateItem(0)  # 0=olMailItem，和VBA的枚举值一致            # 6. 配置邮件内容（和VBA的With语句逻辑完全对应）            mail.To = email            mail.Subject = f"2024年5月对账单 - {client_name}"            # HTML正文（和VBA的HTMLBody语法完全一致）            body_html = f"""            <p>尊敬的{client_name}：</p>            <p>您好！附件为贵司2024年5月对账单，请查收。</p>            <p>本月应收金额：{row['应收金额']:,.2f}元<br>            本月已付金额：{row['已付金额']:,.2f}元<br>            未付金额：<strong>{row['未付金额']:,.2f}元</strong></p>            <p>如有疑问，请联系财务小王：123-4567-8912。</p>            <p>此致<br>XX公司财务部</p>            <p><small>本邮件由系统自动发送，请勿直接回复。</small></p>            """            mail.HTMLBody = body_html            # 添加附件（和VBA的.Attachments.Add对应）            mail.Attachments.Add(attach_path)            # 发送方式：.Send()直接发送；.Display()预览（测试用）            mail.Display()  # 测试时用，确认后改为 mail.Send()            # 记录成功状态            df.at[idx, "发送状态"] = f"已发送（{datetime.now().strftime('%Y-%m-%d %H:%M')}）"            success_count += 1            print(f"成功：{client_name}的邮件已准备就绪")        except Exception as e:            df.at[idx, "发送状态"] = f"失败：{str(e)}"            fail_count += 1            print(f"失败：{client_name}的邮件发送出错 - {e}")    # 7. 保存结果到新Excel（避免覆盖原数据）    output_path = os.path.splitext(excel_path)[0] + "_发送结果.xlsx"    df.to_excel(output_path, index=False)    print(f"\n批量发送完成！成功：{success_count}封，失败：{fail_count}封")    print(f"结果已保存至：{output_path}")if __name__ == "__main__":    # 替换为你的Excel路径（绝对路径）    excel_path = r"D:\客户对账单清单.xlsx"    batch_send_outlook_emails(excel_path)