Hello,
I have a rule that no longer works. I am on a client computer off an
exchange server. I have a rule that searches the subject line for a word and
runs a script I created. This worked fine yesterday and now the rule no
longer works. The script never kicks off. Other rules work fine.

Any suggestions would be great.

I wanted to also mention that I have deleted the rule and code, restarted the
computer and then created the rule and put the vb code back into outlook.
Sent myself a test message and the rule still does not work.

Thanks!

Sean

What happens if you use only this:

Public Sub YourScript(Mail as Outlook.MailItem)
MsgBox "hallo"
End Sub

Does your rule call that?

--
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 01:04:02 -0800 schrieb sean00:

Hello,
I have a rule that no longer works. I am on a client computer off an
exchange server. I have a rule that searches the subject line for a word
and
runs a script I created. This worked fine yesterday and now the rule no
longer works. The script never kicks off. Other rules work fine.

Any suggestions would be great.

Thanks for the reply,

I actually tried something simliar to that. I put a breakpoint at the
beginning but the script never kicks off. I have tested with other simple
generic rules ie moving emails to folders like inbox and they work. The rules
that say "Run script", do not.


Any more suggestions would be appreciated.

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,

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,