Email error -- CDO.Message Object, could not access

  • Thread starter Thread starter Charles
  • Start date Start date
C

Charles

Can anyone help me with this error.
"Could not access 'CDO.Message' object."

This is from the: "SmtpMail.Send(mailMsg)" command.
 
ok,

Dim mailMsg As New MailMessage()
With mailMsg
.From = txtFrom.Text.Trim
.To = txtTo.Text.Trim
.Cc = txtCC.Text.Trim
.Bcc = txtBCC.Text.Trim
.Subject = txtSubject.Text.Trim
.Body = sb.ToString
.Priority = CType(cboPriority.SelectedIndex, MailPriority)

If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Object
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
End If
End With

SmtpMail.SmtpServer = "127.0.0.1"
' " I have tried SmtpMail.SmtpServer = weiserver, localhost, smarthost,
and 127.0.0.1 "
SmtpMail.Send(mailMsg)

always the same error and my default SMTP virtual server is running.
 
Agusitn,

You are the best.
Thank you. How did you come up with this?
What is the reasoning behind it working.
Is this a SmtpServer Collection that the system will try until it finds a
good one??

Thanks
 
How did you come up with this? & What is the reasoning behind it working.
- Well the way I figure is that since insert is an inherited method from
string class it would be like accessing and updating the property value from
within

Is this a SmtpServer Collection that the system will try until it finds a
good one??
No, But but you can handle exceptions and have the property updated to the
next server on a list and retry.
 
Back
Top