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

[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("C DO.Message")
Set iConf = CreateObject("C DO.Configuratio n")
Set Flds = iConf.Fields

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

[salad]

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
GroupWiseComman der 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("C DO.Message")
Set iConf = CreateObject("C DO.Configuratio n")
Set Flds = iConf.Fields

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

[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
GroupWiseComman der? 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