批量发送个性化邮件的VBA代码实现

Public Function SendMail(strFrom As String, strTo As String, _
                                                strCC As String, _
                                                strBCC As String, _
                                                  strSubject As String, _
                                                  strBody As String, _
                                                  strFilename As String _
                                                  ) As Boolean
          Dim oOutlookApp     As New Outlook.Application
          Dim oItemMail     As Outlook.MailItem
          Set oItemMail = oOutlookApp.CreateItem(olMailItem)
        
          On Error GoTo errHandle
          If Len(Trim(strFilename)) = 0 Then
            With oItemMail
                    '.Recipients
                    .SentOnBehalfOfName = strFrom
                    .To = strTo
                    .CC = strCC
                    .BCC = strBCC
                    .Subject = strSubject
                    .Body = strBody
                    '.Attachments.Add (strFilename)
                    .Importance = olImportanceHigh
                    .Sensitivity = olPersonal
                    .Send
            End With
          Else
            With oItemMail
                  '.Recipients
                  .SentOnBehalfOfName = strFrom