By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,347 Members | 2,113 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,347 IT Pros & Developers. It's quick & easy.

Access2003 VBA code to e-mail being blocked to port 25

P: n/a
Jim
Tried a search, but didn't find quite what I was looking for.

Situation:
Have a VBA code process, tapping CDOSYS to send e-mail from Access,
attaching an Excel spreadsheet, to a given list of e-mail addresses.
Process used to work flawlessly. Now, corporate IT has upgraded the
desktop anti-virus engines to McAfee 8.0i, which is blocking attempts
at Port 25.

If I turn off the port blocking, the process works as expected. IT is
not going to allow me to turn off the port blocking each time, however.
There is, however, a section for listed excpetions, using executable
names.

Question: Using CDOSYS from A2003, what would be the EXECUTABLE name
that I could provide to the exception list. I've tried MSACCESS.EXE,
and our e-mail client (GRPWISE.EXE) to no avail.

Any suggestions would be greatly appreciated!

Code snippet responsible for sending message:

Dim iMsg As Object
Dim iConf As Object

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With iMsg
Set .configuration = iConf
.To = rs.Fields(2).Value
.CC = ""
.BCC = ""
.From = "SE****@CORP.com"
.Subject = "Late DSD Issues"
.TextBody = strMsg 'supplied elsewhere
.addattachment strWkbName 'supplied elsewhere
.send <-- ERROR
End With

Jan 23 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
Jim wrote:
Tried a search, but didn't find quite what I was looking for.

Situation:
Have a VBA code process, tapping CDOSYS to send e-mail from Access,
attaching an Excel spreadsheet, to a given list of e-mail addresses.
Process used to work flawlessly. Now, corporate IT has upgraded the
desktop anti-virus engines to McAfee 8.0i, which is blocking attempts
at Port 25.

If I turn off the port blocking, the process works as expected. IT is
not going to allow me to turn off the port blocking each time, however.
There is, however, a section for listed excpetions, using executable
names.

Question: Using CDOSYS from A2003, what would be the EXECUTABLE name
that I could provide to the exception list. I've tried MSACCESS.EXE,
and our e-mail client (GRPWISE.EXE) to no avail.

Any suggestions would be greatly appreciated!
I don't have McAfee, nor do I use CDosys, but I do use
GroupWiseCommander for sending my emails via Groupwise. I can send
attachments etc and it basically uses code similar to yours below and
acts like SendObject.

Is there any difference between your code working with Groupwise open
and groupwise closed at the workstation?


Code snippet responsible for sending message:

Dim iMsg As Object
Dim iConf As Object

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With iMsg
Set .configuration = iConf
.To = rs.Fields(2).Value
.CC = ""
.BCC = ""
.From = "SE****@CORP.com"
.Subject = "Late DSD Issues"
.TextBody = strMsg 'supplied elsewhere
.addattachment strWkbName 'supplied elsewhere
.send <-- ERROR
End With

Jan 24 '06 #2

P: n/a
Jim
Salad,

Makes no difference if GroupWise is open or closed. It's not
GroupWise that's the issue, though. I was just wondering if somebody
had found a way through this issue. Would you tell me more about
GroupWiseCommander? Send via e-mail, so we won't clutter the list.

Also, I've tried excluding MAPISP32.EXE, and that does not work
either.

Thanks for all the eyes on this. I do appreciate it!
-J

Jan 24 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.