用excel vba发送带有不同签名的工作表

Sub SendWorksheetWithDifferentSignatures()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Signature1 As String
    Dim Signature2 As String
    Dim Signature3 As String
    Dim WorksheetName As String
    
    ' 设置工作表名称
    WorksheetName = "Sheet1"
    
    ' 设置不同的签名
    Signature1 = "签名1"
    Signature2 = "签名2"
    Signature3 = "签名3"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件主题
    OutlookMail.Subject = "工作表发送测试"
    
    ' 设置邮件内容
    OutlookMail.Body = "这是一封带有不同签名的工作表的测试邮件。"
    
    ' 添加工作表作为附件
    ThisWorkbook.Sheets(WorksheetName).Copy
    ActiveWorkbook.SaveAs Environ("TEMP") & "\" & WorksheetName & ".xlsx"
    OutlookMail.Attachments.Add Environ("TEMP") & "\" & WorksheetName & ".xlsx"
    ActiveWorkbook.Close SaveChanges:=False
    
    ' 根据条件选择签名
    If WorksheetName = "Sheet1" Then
        OutlookMail.Body = OutlookMail.Body & vbCrLf & vbCrLf & Signature1
    ElseIf WorksheetName = "Sheet2" Then
        OutlookMail.Body = OutlookMail.Body & vbCrLf & vbCrLf & Signature2
    ElseIf WorksheetName = "Sheet3" Then
        OutlookMail.Body = OutlookMail.Body & vbCrLf & vbCrLf & Signature3
    End If
    
    ' 发送邮件
    OutlookMail.Display
    'OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub