CDO 1.21 programming bug

J

James Toomey

Has anyone else encountered this? When I run this code,
Set objSession = New MAPI.Session
objSession.Logon profileName:="Outlook"
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "test"
objMessage.Text = "test"
Set objRecipient = objMessage.Recipients.Add
objRecipient.Name = "(e-mail address removed)"
objRecipient.Type = 1
objRecipient.Resolve
objMessage.Send

it runs fine and sends the email. However, if I change the last line to

objMessage.Send showDialog:=True

it *intermittently* gives the error "Object Could Not be Found."
The bizarre thing is, sometimes it works and sometimes doesn't. If the
user gets the error, I've tried checking/unchecking different options
such as, "Always check spelling before sending", and sometimes it'll
start working. I'm completely stumped about what causes it to start
working, though. It'd make my day if anyone else out there has
experienced this and/or knows of a way to consistently cure it.
 
W

Waldy

Are you doing this in VBA? The reason I ask is because you are using a
named parameter. If not, try:

objMessage.Send False, True
 
M

Matthew Gibson

If you are showing the dialog you cant set the recipient. Remove the
recipient code and try it.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top