PowerASP Code Help Area: CDOSYS

Home | Advertising Info

3 USERS CURRENTLY ONLINE

Site Search Contact Us

Friday, May 17, 2024

CODE SNIPPETS
HINTS & TIPS
CODE WIZARDS
GUESTBOOK
NEWSLETTER
FORUMS
LINKS

DISCUSSION ARCHIVES

We didn't realize
the site was so popular.

Other Stuff

Active Info

Memberlist

Help

Classic ASP - General
PowerASP Code Help Area : Classic ASP - General

Info: CDOSYS

Author

Message

<< Prev Info | Next Info >>

Tons
Newbie
Newbie

Joined: April/29/2005
Location: United States
Online Status: Offline
Info: 4

Added: April/29/2005 at 3:52pm \| IP Logged

Thanks CWilliams for the explanation. I got it. It works now.

Thanks
Tony

__________________
As life is to live
So love is to give...

Tons
Newbie
Newbie

Joined: April/29/2005
Location: United States
Online Status: Offline
Info: 4

Added: May/03/2005 at 10:36am \| IP Logged

Hi
It's me again. I have another issue now. I can send may be up to 5-10 emails using CDO object but when I try to send bulkmails, arround 70 (35 in .TO and 35 in .CC), it gives me following error.

I am using this code to send Severity1 Alert when there is a critical outage. And I need to send this to 35 people (total of 70 emails and pagers). The Server is going live tomorrow and I am still stuck with this error. I will really appreciate if someone can help.
--------------------ERROR-------------
CDO.Message.1 error '80040212'

The transport lost its connection to the server.

/ops/SeverityMessageSend.asp, line 169
---------------------------------------

Here is my Code
*************************
'First Group of 35 emails
PrimaryEmail = "Tons@hotmail.com"
PrimaryEmail = PrimaryEmail & ", " & "ABCD.EFG@notes.Meradyne.com"
PrimaryEmail = PrimaryEmail & ", " & "8668455636@skytel.com"
PrimaryEmail = PrimaryEmail & ", " & "CIT-DATA-OPS@notes.Meradyne.com"
PrimaryEmail = PrimaryEmail & ", " & "4234427717@Ykytel.com"
.
.
.

'Second Group of 35 emails
SecondEmail = "Tons@hotmail.com"
SecondEmail = SecondEmail & ", " & "Mieal.Schmidt@notes.Mradyne.com"
SecondEmail = SecondEmail & ", " & "Dog.Woods@notes.Meradyne.com"
SecondEmail = SecondEmail & ", " & "Ros.Coderre@notes.Meradyne.com"
.
.
.
'SET EMAIL PARAMETERS:
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnecti ontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenti cate"
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername "
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword "
Const cdoSSLConnection = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
     .Item(cdoSendUsingMethod) ;      = 2
     .Item(cdoSMTPServer) &nbs p;         &nbs p;= "smtphost.Meradyne.com"
     .Item(cdoSMTPServerPort)        = 25
     .Item(cdoSMTPConnectionTimeout ) = 60
     .Item(cdoSMTPAuthenticate)&nbs p;     = 1
     .Item(cdoSendUserName) &n bsp;      = "Tons@Meradyne.Com"
     .Item(cdoSendPassword) &n bsp;      = "********"
     .Item(cdoSSLConnection) & nbsp;        = False 'Use SSL for the connection (True or False)
     .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
                .From = "BPIT Ops DC <EIT-DATA-OPS@Meradyne.Com>"
             .To = Primaryemail 'Selected Notes and pager emails first Group of 35 emails
             .cc = SecondEmail 'Selected Notes and pager emails Second Group of 35 emails
             .ReplyTo = RespondTo
             .Subject = TheSubject 'SUBJECT
             .TextBody = TheMessage 'MessageBody
             '.AddAttachment "\\Lucille-Big\ops-web$\ops\Bkp_re1.jpg" 'Test failed
             .Send
End With

Set Fields = Nothing
*************************

Can someone please help me with this error. May be CWilliams can. I think he is master in ASP.

Thanks
Tons

__________________
As life is to live
So love is to give...

tboroff
Newbie
Newbie

Joined: June/14/2005
Online Status: Offline
Info: 1

Added: June/14/2005 at 10:26am \| IP Logged

I have been following this and trying to use the code supplied. Here is my question though. I have an ASP page that I want to send to a database and to email when the user submits it. The database works fine but the email isn't. Is there anyone out there who has successfully done both and if so did you use the code supplied here and where (I figured it should go after the confirmation section for the database but that isn't happening)?

Thanks for any help

Tina

cwilliams
Admin Group

Joined: April/26/2004
Location: United States
Online Status: Offline
Info: 137

Added: June/14/2005 at 2:44pm \| IP Logged

tons.. dont send the emails individually like that in a loop

build the CC list in the loop and send it to all those people as cc's

Edited by cwilliams on June/14/2005 at 2:44pm

__________________

Chris Williams
http://www.PowerASP.com

JingleRock
Newbie
Newbie

Joined: July/29/2005
Location: United States
Online Status: Offline
Info: 1

Added: July/30/2005 at 7:02pm \| IP Logged

I am trying to use Method 3 as well.

I have a fair amount of experience with Excel VBA 6.3; I have zero experience with VBScript. Can you indicate, or at least describe, modifications to convert Method 3 code to VBA 6.3?

Also, two other questions:

- for specifying the smtpserver name, you are using "mail.yoursite.com"; will an IP address for our e-mail server work here?

- for specifying the sendusername, you are using somemail@yourserver.com; in Outlook, my user name is like "Rock, Jingle" -- is this what I should use?

Thanks for a response,

JingleRock

Edited by cwilliams on July/30/2005 at 10:11pm

__________________
JingleRock

If you wish to make a comment to this info you must first login
If you are not already registered you must first register

<< Prev Page of 2

Printable version

Info Jump

You cannot add new info in this area
You cannot add to info in this area
You cannot delete your info in this area
You cannot edit your info in this area
You cannot create polls in this area
You cannot vote in polls in this area

Active Server Pages Rule The World

Contact Us

All artwork, design & content contained in this site are Copyright � 1998 - 2024 PowerASP.com and Christopher J. Williams
Banner ads ,other site logos, etc are copyright of their respective companies.
STATS Unless otherwise noted - All Rights Reserved.

Active Server Pages ASP ASP.NET .aspx .ascx Web HTML Developer Internet Microsoft Web Services Visual Studio .NET CJWSoft ASPProtect ASPBanner ASPClassifieds www.aspprotect.com, www.cjwsoft.com,www.aspclassifieds.com,www.aspphotogallery.com