ActiveX component can‘t create object

VB 6.0 ActiveX component can’t create object

使用vbs实现outlook邮件自动发送。

 Dim OutApp As Object
            Dim OutMail As Object
        
            Dim Receiver, CReceiver, filepath, titl As String
            
            With Application
                .EnableEvents = False
                .ScreenUpdating =