Mail Sending Error

  • Thread starter Thread starter mburkett
  • Start date Start date
M

mburkett

We are using the script below to send an email upon closing a
workbook. Some users are having issues on the .Send line and the email
never gets sent. All users are on the same exchange server with the
same domain with the same email program (Outlook 2003). Can anyone
think of settings or issues that may prevent this from sending?

With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = activepmeml
.BCC = ""
.From = activepmeml
.Subject = trdcheck & " trade(s) ready for execution in " +
activepm + "'s Equity Queue"
.TextBody = ""
On Error GoTo m:
.Send
End With
 
You use CDO I see and MS not support CDO for win 2000.http://www.rondebruin.nl/cdo.htm

Btw: CDO is not using Outlook

Do you have the same problem if you use Outlook object model code ???http://www.rondebruin.nl/cdo.htm
Click to expand...

I haven't tried the Outlook model code. Do you have a link with some
sample code? If the code I pasted has an error I use the code below
which works on everyone's machine though I suspect this is pretty
inefficient as I have to create a dummy Excel file to send.

Application.Dialogs(xlDialogSendMail).Show Arg1:="(e-mail address removed)",
Arg2:=trdcheck & " EQ trades ready for execution in " + activepm + "'s
queue."
Workbooks("tempfisend.xls").Close SaveChanges:=False
 
See the second link that I posted

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


You use CDO I see and MS not support CDO for win 2000.http://www.rondebruin.nl/cdo.htm

Btw: CDO is not using Outlook

Do you have the same problem if you use Outlook object model code ???http://www.rondebruin.nl/cdo.htm
Click to expand...

I haven't tried the Outlook model code. Do you have a link with some
sample code? If the code I pasted has an error I use the code below
which works on everyone's machine though I suspect this is pretty
inefficient as I have to create a dummy Excel file to send.

Application.Dialogs(xlDialogSendMail).Show Arg1:="(e-mail address removed)",
Arg2:=trdcheck & " EQ trades ready for execution in " + activepm + "'s
queue."
Workbooks("tempfisend.xls").Close SaveChanges:=False
 
Back
Top