Excel VBA群发邮件，运行成功但Outlook未调用，邮件未发送

#各位大佬好，我在Excel的客户邮件表里使用VBA做了一个群发邮件的按钮，按照指定的列和行分别读取邮箱，标题，正文，附件辣椒自动发邮件，运行时，网上复制下来的代码没出现问题，但邮箱Outlook并未调用，邮件也没发送，哪位大佬能否帮忙看看是否是coding问题，多谢啦，代码如下：

#Private Sub CommandButton1_Click()
 
     '要能正确发送并需要对Microseft　Outlook进行有效配置
     On Error Resume Next
     Dim rowCount, endRowNo
     Dim objOutlook As New Outlook.Application
     Dim objMail As MailItem
     Dim SigString As String
     Dim Signature As String
 
     '取得当前工作表与Cells(1,1)相连的数据区行数
     endRowNo = Application.WorksheetFunction.CountIfs(Range("A:A"), "<>")
 
     '创建objOutlook为Outlook应用程序对象
     Set objOutlook = New Outlook.Application
 
     '开始循环发送电子邮件，比如从第二行开始，第一行是标题
     For rowCount = 2 To endRowNo
 
         Set objMail = objOutlook.CreateItem(olMailItem)  '创建objMail为一个邮件对象
               
            '提取邮件签名
             SigString = Worksheets("Sheet1").Cells(2, 5)
                If Dir(SigString) <> "" Then
                   Signature = GetBoiler(SigString)
                Else
                   Signature = ""
                End If
 
           With objMail
 
              .To = Cells(rowCount, 1).Value  '设置收件人地址（从Excel表的第一列"邮件地址"字段中获得）
              .Subject = Cells(rowCount, 2).Value   '设置邮件主题（从Excel表的第二列"邮件主题"字段中获得）
              .HTMLBody = Cells(rowCount, 3).Value & Signature  '设置邮件内容（从Excel表的第三列"邮件内容"字段中获得）
              .Attachments.Add Cells(rowCount, 4).Value  '设置附件（从Excel表的第四列"附件"字段中获得）
              .Send
 
          End With
 
              Set objMail = Nothing     '销毁objMail对象
 
       Next
 
          MsgBox ("邮件全部发送完成！")
          Set objOutlook = Nothing    '销毁objOutlook对象
End Sub
 
 
'提取邮件签名子函数
Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function