VBA：使用本地Outlook从远程Excel发送电子邮件

Question

The problem I am trying to solve is that I want Excel to send an email through Outlook. This is worked fine when I am using a local installation of Excel. However I need to be able to do the same using an installation of Excel on a server. The debugger points to this line in the code:

Set OutApp = CreateObject("Outlook.Application", "localcomputername")

At first I tried without reference to local computer this gave me error:

Runtime Error 429 - ActiveX Component Can't Create Object

With the line above I get the following errormessage:

Runtime error 463 - class not registered on local machine

Hope someone can help me

Answer 1

When you use the New operator or the CreateObject function in Microsoft Visual Basic to create an instance of a Microsoft Office application, you may receive the following error message:

Run-time error '429': ActiveX component can't create object

This error occurs when the Component Object Model (COM) cannot create the requested Automation object, and the Automation object is therefore unavailable to Visual Basic. This error does not occur on all computers.

View this for More information - https://support.microsoft.com/en-in/kb/828550