Connecting Tech Pros Worldwide Help | Site Map

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

Jim
Guest
 
Posts: n/a
#1: Jan 23 '06
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 = "SENDER@CORP.com"
.Subject = "Late DSD Issues"
.TextBody = strMsg 'supplied elsewhere
.addattachment strWkbName 'supplied elsewhere
.send <-- ERROR
End With

salad
Guest
 
Posts: n/a
#2: Jan 24 '06

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


Jim wrote:
[color=blue]
> 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![/color]

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?

[color=blue]
>
> 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 = "SENDER@CORP.com"
> .Subject = "Late DSD Issues"
> .TextBody = strMsg 'supplied elsewhere
> .addattachment strWkbName 'supplied elsewhere
> .send <-- ERROR
> End With
>[/color]
Jim
Guest
 
Posts: n/a
#3: Jan 24 '06

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


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

Closed Thread