Outlook Object Send Method

My boss is attempting to create an Outlook Application object to send emails
via a script written in the Integration Manager associated with Great Plains.
It is on a server running Outlook 2007. What follows is the code. Any
input as to why the Send method is not working? Thank you.

ERROR: Error Executing Script 'After Integration' Line 76:
Application-defined or object-defined error



Here's the code:

Dim olapp
Dim olnamespace
Dim olMailItem
Dim olnewmail


' Create outlook application object.
Set olapp = CreateObject("outlook.application")
MsgBox (" passed by create Object - Outlook app")

' get name space object
Set olnamespace = olapp.getnamespace("MAPI")
MsgBox (" passed by created getnamespace ")

Set olnewmail = olapp.CreateItem(olMailItem)
MsgBox (" passed by create olapp.createItem")


' Create the body of the email
strmessage = "Your GL batch " & BatchID & " was loaded successfully.
" & VbCrLf & VbCrLf _
& "Date Loaded: " & Date() & Space(5) & "Time Loaded: " & Time()
& VbCrLf & VbCrLf _

' Create the Subject
strsubject = (" " & CO & " Using Outlook: Trial Balance Has Been Imported
& Posted to Great Plains Successfully")
MsgBox ("passed by mail message content ")

' Set the message and subject
olnewmail.body = strmessage
olnewmail.subject = strsubject
MsgBox ("passed the body and subject lines")


' Testing against my email address

olnewmail.to = "person@work.com"

MsgBox ("passed mail item to: ")


'Send the e-mail

olnewmail.send '<------ not working'

MsgBox ("passed by olnewmail.send line")

'Clean up

Set olapp = Nothing
Set olnamespace = Nothing
Set olnewmail = Nothing
Set olmailitem = Nothing

Dumb question, was an email account set up?

It's also possible that the code is running into the security. Standalone
code can now use restricted methods like Send() if up-to-date A-V is running
on the machine but the A-V has to follow certain guidelines. Server side A-V
might not. Use On Error Resume Next and test for Err.Number to see better
what error you're getting.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Rob" <Rob.RemoveThis@discussions.microsoft.com> wrote in message
news:ACF25B43-AC3F-4D6B-BBE4-C3F6D14300A7@microsoft.com...
> My boss is attempting to create an Outlook Application object to send
> emails
> via a script written in the Integration Manager associated with Great
> Plains.
> It is on a server running Outlook 2007. What follows is the code. Any
> input as to why the Send method is not working? Thank you.
>
> ERROR: Error Executing Script 'After Integration' Line 76:
> Application-defined or object-defined error
>
>
>
> Here's the code:
>
> Dim olapp
> Dim olnamespace
> Dim olMailItem
> Dim olnewmail
>
>
> ' Create outlook application object.
> Set olapp = CreateObject("outlook.application")
> MsgBox (" passed by create Object - Outlook app")
>
> ' get name space object
> Set olnamespace = olapp.getnamespace("MAPI")
> MsgBox (" passed by created getnamespace ")
>
> Set olnewmail = olapp.CreateItem(olMailItem)
> MsgBox (" passed by create olapp.createItem")
>
>
> ' Create the body of the email
> strmessage = "Your GL batch " & BatchID & " was loaded successfully.
> " & VbCrLf & VbCrLf _
> & "Date Loaded: " & Date() & Space(5) & "Time Loaded: " &
> Time()
> & VbCrLf & VbCrLf _
>
> ' Create the Subject
> strsubject = (" " & CO & " Using Outlook: Trial Balance Has Been Imported
> & Posted to Great Plains Successfully")
> MsgBox ("passed by mail message content ")
>
> ' Set the message and subject
> olnewmail.body = strmessage
> olnewmail.subject = strsubject
> MsgBox ("passed the body and subject lines")
>
>
> ' Testing against my email address
>
> olnewmail.to = "person@work.com"
>
> MsgBox ("passed mail item to: ")
>
>
> 'Send the e-mail
>
> olnewmail.send '<------ not working'
>
> MsgBox ("passed by olnewmail.send line")
>
> 'Clean up
>
> Set olapp = Nothing
> Set olnamespace = Nothing
> Set olnewmail = Nothing
> Set olmailitem = Nothing
>