Did you look if VBA is deactivated? You can see that via
Help/Info/Deactivated Items.

--
Best regards
Michael Bauer - MVP Outlook
Use Outlook Categories? This is Your Tool:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Thu, 6 Mar 2008 23:18:01 -0800 schrieb sean00:

This might help anyone that is helping.

The problem started when I entered the code below into my existing code.


Const cdoSendUsingPickup = 1 'Send message using the local SMTP service
pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over
the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = """Sean"" "
objMessage.To = "something@thencom"
objMessage.TextBody = "New Case created. Case # " + caseName

'==This section provides the configuration information for the remote SMTP
server.

objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"RTPEXMV01.hq.netapp.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seanr"

'Your password on the SMTP server
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"

'Server port (typically 25)
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish
a
connection to the SMTP server)
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =
60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

When I tested and noticed the script was not kicking off, I removed the
above and recompiled but still with no luck. Maybe the code below changed
a
setting ?

Thanks,