如何打开eM Client并使用VBA发送电子邮件？

Question

使用Excel，我需要创建一个宏，该宏本质上是向定期发送电子邮件的特定人员，其信息仅供他们查看。

我已经使用Outlook完成了此操作，但是现在我需要对其进行调整以与eM Client一起使用，不知道如何操作。

这是我用来启动Outlook，创建带有签名的新电子邮件并在正文中添加相关信息的代码的一部分：

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .Display
End With
signature = OutMail.htmlbody

On Error Resume Next
With OutMail
    .To = Cells(i + 3, 1).Range("A1").Value
    .CC = ""
    .BCC = ""
    .Subject = ActiveSheet.Name
    .htmlbody = RangetoHTML(rng1) & _
            RangetoHTML(rng2) & _
            RangetoHTML(rng3) & signature
    .Send
End With
On Error GoTo 0

With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With

有人知道如何在eM Client中执行此操作吗？