CDO Emails not sent till application is exited

[merziyah]

I'm new to posting issues online, so bare with me...
Does anyone have any clues on this:
I have an application that is set to run as a service and it sends an
email if an error is encountered. The emailing part seems to work fine
- no errors, except that the emails don't get sent until the
application/service is exited. As soon as I quite the application, the
emails are sent and arrive in my inbox. I need the emails to be sent
without having to shutdown the application. Any clues? Could I be
missing something? Some object that needs to be destroyed?

I'm using the CDO object to generate emails.

[Charlie Brown]

On Mar 23, 10:59 am, merzi...@gmail. com wrote:

I'm new to posting issues online, so bare with me...
Does anyone have any clues on this:
I have an application that is set to run as a service and it sends an
email if an error is encountered. The emailing part seems to work fine
- no errors, except that the emails don't get sent until the
application/service is exited. As soon as I quite the application, the
emails are sent and arrive in my inbox. I need the emails to be sent
without having to shutdown the application. Any clues? Could I be
missing something? Some object that needs to be destroyed?

I'm using the CDO object to generate emails.

Could you please post some of your sending code?

[merziyah]

- The strToList is an array of email addresses.

Public Shared Sub SendMail_CDO(By Val strFrom As String, ByVal
strToList() As String, ByVal subject As String, ByVal body As String)
Const Source As String = "Config.SendMai l_CDO"
Dim iConf As New CDO.Configurati on
Dim Flds As ADODB.Fields

Flds = iConf.Fields
Flds(CDO.CdoCon figuration.cdoS endUsingMethod) .Value =
CDO.CdoSendUsin g.cdoSendUsingP ort
Flds(CDO.CdoCon figuration.cdoS MTPServer).Valu e =
Config.SmtpServ er
Flds(CDO.CdoCon figuration.cdoS MTPServerPort). Value = 25
Flds(CDO.CdoCon figuration.cdoS MTPAuthenticate ).Value =
CDO.CdoProtocol sAuthentication .cdoAnonymous.c doAnonymous
Flds.Update()

Dim strTo As String

Try
For i As Int32 = 0 To strToList.Lengt h - 1
Dim iMsg As New CDO.Message
iMsg.Configurat ion = iConf
strTo = strToList(i).Tr im

iMsg.From = strFrom
iMsg.To = strTo
iMsg.Subject = subject
iMsg.TextBody = body

Trace.WriteTrac e("Sending Email to " + strToList(i))
iMsg.Send()
Trace.WriteTrac e("Sent Email to " + strToList(i))
Next

Catch ex As Exception

End Try
End Sub

Does this help, or do you you need some more context?

[Rad [Visual C# MVP]]

On 23 Mar 2007 08:31:15 -0700, me******@gmail. com wrote:

iMsg.

Try adding

iMsg.Dispose();

after you send and see if that helps.
--
Bits.Bytes
http://bytes.thinkersroom.com

[RobinS]

Is there any particular reason you're not using CDONTS? Is that old school?
That's what I used in VB6 and it worked like a charm. If you're interested,
post back and I'll post my code.

Robin S.
-----------------------------
<me******@gmail .comwrote in message
news:11******** *************@e 1g2000hsg.googl egroups.com...

>- The strToList is an array of email addresses.

Public Shared Sub SendMail_CDO(By Val strFrom As String, ByVal
strToList() As String, ByVal subject As String, ByVal body As String)
Const Source As String = "Config.SendMai l_CDO"
Dim iConf As New CDO.Configurati on
Dim Flds As ADODB.Fields

Flds = iConf.Fields
Flds(CDO.CdoCon figuration.cdoS endUsingMethod) .Value =
CDO.CdoSendUsin g.cdoSendUsingP ort
Flds(CDO.CdoCon figuration.cdoS MTPServer).Valu e =
Config.SmtpServ er
Flds(CDO.CdoCon figuration.cdoS MTPServerPort). Value = 25
Flds(CDO.CdoCon figuration.cdoS MTPAuthenticate ).Value =
CDO.CdoProtocol sAuthentication .cdoAnonymous.c doAnonymous
Flds.Update()

Dim strTo As String

Try
For i As Int32 = 0 To strToList.Lengt h - 1
Dim iMsg As New CDO.Message
iMsg.Configurat ion = iConf
strTo = strToList(i).Tr im

iMsg.From = strFrom
iMsg.To = strTo
iMsg.Subject = subject
iMsg.TextBody = body

Trace.WriteTrac e("Sending Email to " + strToList(i))
iMsg.Send()
Trace.WriteTrac e("Sent Email to " + strToList(i))
Next

Catch ex As Exception

End Try
End Sub

Does this help, or do you you need some more context?

[Michael D. Ober]

Better yet, is there any reason you're not using the framework's SMTP mail
classes. There is one mail class in the web section and a newer one in the
general system namespace in .NET 2.0. Both these classes use CDO
underneath.

Mike Ober.

"RobinS" <Ro****@NoSpam. yah.nonewrote in message
news:OI******** *************** *******@comcast .com...

Is there any particular reason you're not using CDONTS? Is that old
school? That's what I used in VB6 and it worked like a charm. If you're
interested, post back and I'll post my code.

Robin S.
-----------------------------
<me******@gmail .comwrote in message
news:11******** *************@e 1g2000hsg.googl egroups.com...

>>- The strToList is an array of email addresses.

Public Shared Sub SendMail_CDO(By Val strFrom As String, ByVal
strToList() As String, ByVal subject As String, ByVal body As String)
Const Source As String = "Config.SendMai l_CDO"
Dim iConf As New CDO.Configurati on
Dim Flds As ADODB.Fields

Flds = iConf.Fields
Flds(CDO.CdoCon figuration.cdoS endUsingMethod) .Value =
CDO.CdoSendUsi ng.cdoSendUsing Port
Flds(CDO.CdoCon figuration.cdoS MTPServer).Valu e =
Config.SmtpSer ver
Flds(CDO.CdoCon figuration.cdoS MTPServerPort). Value = 25
Flds(CDO.CdoCon figuration.cdoS MTPAuthenticate ).Value =
CDO.CdoProtoco lsAuthenticatio n.cdoAnonymous. cdoAnonymous
Flds.Update()

Dim strTo As String

Try
For i As Int32 = 0 To strToList.Lengt h - 1
Dim iMsg As New CDO.Message
iMsg.Configurat ion = iConf
strTo = strToList(i).Tr im

iMsg.From = strFrom
iMsg.To = strTo
iMsg.Subject = subject
iMsg.TextBody = body

Trace.WriteTrac e("Sending Email to " + strToList(i))
iMsg.Send()
Trace.WriteTrac e("Sent Email to " + strToList(i))
Next

Catch ex As Exception

End Try
End Sub

Does this help, or do you you need some more context?

[sloan]

You need to rewrite your email sending library.

You can get some ideas here.

(1.1 and 2.0 downloadable code)
2/8/2006
Smarter Email/Smtp setup with DotNet Configuration Sections (1.1 and 2.0)
http://sholliday.spaces.live.com/blog/
<me******@gmail .comwrote in message
news:11******** **************@ e65g2000hsc.goo glegroups.com.. .

I'm new to posting issues online, so bare with me...
Does anyone have any clues on this:
I have an application that is set to run as a service and it sends an
email if an error is encountered. The emailing part seems to work fine
- no errors, except that the emails don't get sent until the
application/service is exited. As soon as I quite the application, the
emails are sent and arrive in my inbox. I need the emails to be sent
without having to shutdown the application. Any clues? Could I be
missing something? Some object that needs to be destroyed?

I'm using the CDO object to generate emails.

[Jay Parzych]

Frequently Asked Questions for System.Net.Mail

2.0 - http://www.systemnetmail.com/
Frequently Asked Questions for System.Web.Mail

1.1 - http://www.systemwebmail.com/

I'm new to posting issues online, so bare with me...
Does anyone have any clues on this:
I have an application that is set to run as a service and it sends an
email if an error is encountered. The emailing part seems to work fine
- no errors, except that the emails don't get sent until the
application/service is exited. As soon as I quite the application, the
emails are sent and arrive in my inbox. I need the emails to be sent
without having to shutdown the application. Any clues? Could I be
missing something? Some object that needs to be destroyed?
I'm using the CDO object to generate emails.