outlook.application

Please help, I have a script that will not work. It just stops with
"The specified module could ot be found" Error 8007007E. Is it
somthing to to with the reg file.

Any help received with thanks.


Dim EM
Dim MailItem

MsgBox "Creating Outlook object"
Set EM = CreateObject("Outlook.Application")
MsgBox "Creating e-mail item"
Set MailItem = EM.CreateItem(0)

MsgBox "Setting Email Parmeters"
MailItem.Subject = "A Test"
MailItem.Body = "This text is in the body"
MailItem.Recipients.Add "me@home.com"

MsgBox "Displaying Email Item"

'MailItem.Send
MailItem.Display(True)

Ato
Wed Jun 22 07:55:23 CDT 2005

Hello,

Unless you get a better answer from the NG, I think you'll need to re-install Outlook.

Regards,
Ato

<matthew@coxagri.com> wrote in message news:1119440296.551051.56520@z14g2000cwz.googlegroups.com...
> Please help, I have a script that will not work. It just stops with
> "The specified module could ot be found" Error 8007007E. Is it
> somthing to to with the reg file.
>
> Any help received with thanks.
>
>
> Dim EM
> Dim MailItem
>
> MsgBox "Creating Outlook object"
> Set EM = CreateObject("Outlook.Application")
> MsgBox "Creating e-mail item"
> Set MailItem = EM.CreateItem(0)
>
> MsgBox "Setting Email Parmeters"
> MailItem.Subject = "A Test"
> MailItem.Body = "This text is in the body"
> MailItem.Recipients.Add "me@home.com"
>
> MsgBox "Displaying Email Item"
>
> 'MailItem.Send
> MailItem.Display(True)
>

Michael
Sat Jun 25 18:16:51 CDT 2005

matthew@coxagri.com wrote:
> Please help, I have a script that will not work. It just stops with
> "The specified module could ot be found" Error 8007007E. Is it
> somthing to to with the reg file.
>
> Any help received with thanks.
>

What line of the script throws the error?

As posted, the script works fine for me (respondding OK to the security
popups). I'm running Outlook 2003 with a non-Exchange based email account
on xp pro sp2.



>
> Dim EM
> Dim MailItem
>
> MsgBox "Creating Outlook object"
> Set EM = CreateObject("Outlook.Application")
> MsgBox "Creating e-mail item"
> Set MailItem = EM.CreateItem(0)
>
> MsgBox "Setting Email Parmeters"
> MailItem.Subject = "A Test"
> MailItem.Body = "This text is in the body"
> MailItem.Recipients.Add "me@home.com"
>
> MsgBox "Displaying Email Item"
>
> 'MailItem.Send
> MailItem.Display(True)

--
Michael Harris
Microsoft MVP Scripting