Add an On Error Resume Next statement in the declarations section of your procedure, so that if GetObject() can't return it, the code can execute CreateObject.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"muyBN" wrote in message
...
I'm trying to send a message in Outlook that originates from a Word file
but
I get the message that "ActiveX component can't create object" on the
first
line of code from the following macro. (I am running Office 2003 and have
the
most recent Outlook, Office and ActiveX object library references
checked.)
Any suggestions would be greatly appreciated as I am using this as a job
search tool.

Sub SendFile()
.

Dim OLI As Outlook.Inspector, strAccountBtnName As String, intLoc As
Integer, blnStarted As Boolean
Dim CBs As Office.CommandBars, CBP As Office.CommandBarPopup, MC As
Office.CommandBarControl
Const ID_ACCOUNTS = 31224
Dim objOutlookApp As Outlook.Application, objItem As Outlook.MailItem

.

Set objOutlookApp = GetObject(, "Outlook.Application")
If Err 0 Then
Set objOutlookApp = CreateObject("Outlook.Application")
blnStarted = True
End If

Thanks, I followed your suggestion and it worked, but only when Outlook is
already open. Is that the way it should go? I thought that CreateObject was
supposed to open Outlook so the object could be created.
--
Bryan


"Sue Mosher [MVP-Outlook]" wrote:

Add an On Error Resume Next statement in the declarations section of your procedure, so that if GetObject() can't return it, the code can execute CreateObject.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"muyBN" wrote in message
...
I'm trying to send a message in Outlook that originates from a Word file
but
I get the message that "ActiveX component can't create object" on the
first
line of code from the following macro. (I am running Office 2003 and have
the
most recent Outlook, Office and ActiveX object library references
checked.)
Any suggestions would be greatly appreciated as I am using this as a job
search tool.

Sub SendFile()
.

Dim OLI As Outlook.Inspector, strAccountBtnName As String, intLoc As
Integer, blnStarted As Boolean
Dim CBs As Office.CommandBars, CBP As Office.CommandBarPopup, MC As
Office.CommandBarControl
Const ID_ACCOUNTS = 31224
Dim objOutlookApp As Outlook.Application, objItem As Outlook.MailItem

.

Set objOutlookApp = GetObject(, "Outlook.Application")
If Err 0 Then
Set objOutlookApp = CreateObject("Outlook.Application")
blnStarted = True
End If

It won't if an anti-virus program is blocking Outlook scripting.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"muyBN" wrote in message ...
Thanks, I followed your suggestion and it worked, but only when Outlook is
already open. Is that the way it should go? I thought that CreateObject was
supposed to open Outlook so the object could be created.
--
Bryan


"Sue Mosher [MVP-Outlook]" wrote:

Add an On Error Resume Next statement in the declarations section of your procedure, so that if GetObject() can't return it, the code can execute CreateObject.


"muyBN" wrote in message
...
I'm trying to send a message in Outlook that originates from a Word file
but
I get the message that "ActiveX component can't create object" on the
first
line of code from the following macro. (I am running Office 2003 and have
the
most recent Outlook, Office and ActiveX object library references
checked.)
Any suggestions would be greatly appreciated as I am using this as a job
search tool.

Sub SendFile()
.

Dim OLI As Outlook.Inspector, strAccountBtnName As String, intLoc As
Integer, blnStarted As Boolean
Dim CBs As Office.CommandBars, CBP As Office.CommandBarPopup, MC As
Office.CommandBarControl
Const ID_ACCOUNTS = 31224
Dim objOutlookApp As Outlook.Application, objItem As Outlook.MailItem

.

Set objOutlookApp = GetObject(, "Outlook.Application")
If Err 0 Then
Set objOutlookApp = CreateObject("Outlook.Application")
blnStarted = True
End If