Hi all,
May I know that why i got this error(CDO.Message.1 error '80040213' )? Sometimes the coding can work, but sometime can not. The coding are below:
receiptTo = "someone@email.com"
Set cdoConfig = CreateObject("CDO.Configuration")
Set cdoMessage = CreateObject("CDO.Message")

With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.email.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "someone@email.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "try123"
.Update
End With

With cdoMessage
.Fields(cdoDispositionNotificationTo) = receiptTo
.Fields(cdoReturnReceiptTo) = receiptTo
.Fields.Update

Set .Configuration = cdoConfig

.From = receiptTo
.To = receiptTo
.Subject = "Order"
.HTMLBody = "Thank you" & vbCrLf
.Send
Please help me...
Thank you.