I have an event management program which is installed on, soon to be, 100 computers. There are roughly 300 users total, each having a roaming profile, which must be configured individually to each computer they decide to log into. I have been asked to create an automated e-mail notification system for this software. Everything is using access 2010. The network is locked down pretty tight, you have to have admin rights to install a network printer, if that gives an idea of security.
As far as our e-mail system goes, we are all using outlook with of course an exchange server.
The basic idea of what I am wanting to accomplish is simple. If an event happens and it meets x, y and z critera a, b and c are notified. Here is my quandry. I have code using CDO method form VB for SMTP transfer. The issue, from what I have read and attempted in order to use this you must have the SMTP services running on each individual computer. This will not happen.
Are there any other alternatives to being able to genearte auto e-mail notifications through an exchange server without having to install extra software on 100 computers or alter 300 profiles that could be on as many as 10 computers each?
The research I have done hasn't shown to many more options through VBA so figured I'd post here and see what this great team could offer up.
I'm no expert, but I've used CDO a few times, and I don't recall ever having to install/run SMTP services. I just looked on a PC that does an automated email with CDO, and there doesn't appear to be anything related to SMTP in the processes running (we also use Outlook/Exchange). Have you tested it and had it fail? If so, what code are you using? I specify the exchange server in mine.
Dim iCfg As Object
Dim iMsg As Object
On Error GoTo ErrorHandler
Set iCfg = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.2.0.121"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "UserName"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"
.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "PaulB <Name@Domain.com>"
.Configuration = iCfg
.Subject = "Subject"
.To = "Name@Domain.com"
.TextBody = "Blah blah"
'.AddAttachment "Path to attachment if needed"
Set iMsg = Nothing
Set iCfg = Nothing