submit a helpdesk ticket. I wanted to copy myself on the emails, but
when I enter myMail.BCC or myMail.CC, it fails to send. If I comment
out these lines, the message sends successfully. I've made sure the
bcc or cc addresses are valid. I changed the names in my code to
protect the innocent.
Any thoughts? Thanks.
Expand|Select|Wrap|Line Numbers
- Set myMail=CreateObject("CDO.Message")
- myMail.Subject="Helpdesk Ticket Resolution"
- myMail.From="he******@helpdesk.com"
- myMail.To=rsEmail("email")
- myMail.BCC="we*******@helpdesk.com"
- myMail.HTMLBody=body
- myMail.Configuration.Fields.Item _
- ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
- 'Name or IP of remote SMTP server
- myMail.Configuration.Fields.Item _
- ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
- ="mail.server.com"
- 'Server port
- myMail.Configuration.Fields.Item _
- ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
- =25
- myMail.Configuration.Fields.Update
- myMail.Send