email using cdo and vbscript

Sounds not like an cobol problem!

More infos would be nice... CC and BCC with CDO should work, but without infos about the vbscript help isn't possible.

Are you using the VBScript previously posted in this forum?  If so, can you post a copy of your parameter file?

Below is a portion of the VB script that was generated.

This used to work then all of a sudden it quit working.

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = EmailSubject

objMessage.From = EmailFrom

objMessage.To = EmailTo

objMessage.Cc = "sdperry1@comcast.net"

objMessage.TextBody = EmailBody

objMessage.AddAttachment EmailAtt1

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../sendusing") = 2

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpserver") = SMTPServer

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../sendusername") = SMTPLogon

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../sendpassword") = SMTPPassword

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpserverport") = SMTPPort

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpusessl") = SMTPSSL

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

Thanks,

David

Tested only with a little part if CC works... and works without problems

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "Testmail"

objMessage.From = "noreply@muffenrohr.de"

objMessage.To = "edv@muffenrohr.de"

objMessage.Cc = "d.neidinger@muffenrohr.de"

objMessage.TextBody = "I am a test"

'==This section provides the configuration information for the remote SMTP server.

'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../sendusing") = 2

'Name or IP of Remote SMTP Server

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpserver") = "smtp.mail.saint-gobain.net"

'Server port (typically 25)

objMessage.Configuration.Fields.Item _

("schemas.microsoft.com/.../smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

There is an example of a fully working VBScript CDO at:

community.microfocus.com/.../11213.aspx

If you are continuing to have problems, please zip the script and the calling COBOL program and attach the file to your reply.  (Use the "Use rich formatting" link, then click on the Options tab to find the ability to add a file.)

Thanks!

I think I figured out what is going on. It seems to be only sending to the last CC line.

.

Can you have more than 1 CC line such as

objMessage.Cc = "anna.canterberry@glazers.com"

objMessage.Cc = "sdperry1@comcast.net"

or

Do they need to be strung together like

"anna.canterberry@glazers.com; sdperry1@comcast.net"?

Also can you send the email to yourself and also to yourself as a CC

such as

objMessage.Cc = "anna.canterberry@glazers.com"

objMessage.Cc = "sdperry1@comcast.net"

objMessage.Cc = "sdperry1@comcast.net"?

Thanks,

David

Thanks!

I think I figured out what is going on. It seems to be only sending to the last CC line.

.

Can you have more than 1 CC line such as

objMessage.Cc = "anna.canterberry@glazers.com"

objMessage.Cc = "sdperry1@comcast.net"

or

Do they need to be strung together like

"anna.canterberry@glazers.com; sdperry1@comcast.net"?

Also can you send the email to yourself and also to yourself as a CC

such as

objMessage.Cc = "anna.canterberry@glazers.com"

objMessage.Cc = "sdperry1@comcast.net"

objMessage.Cc = "sdperry1@comcast.net"?

Thanks,

David

Semicolon separated is correct.

Thanks! Can you send to the same email twice in a CC line?

Example: objMessage.Cc = "sdperry1@comcast.net; sdperry1@comcast.net"

Should it send 2 emails in this example?

David

That would probably depend on the mail agent.  My guess is that CDO merely connects to the mail transfer agent and sends the information you have provided.  The mail transfer agent then can decide to eliminate duplicate addresses, etc, in order to minimize transmit time.

Thanks Tom. That worked.