J
jayakumar
cdoMail.MimeFormatted = True
cdoMail.CC = strCCmail
cdoMail.Subject = strsubject
cdoMail.From = strFromEmail
cdoMail.HTMLBody = strBody
cdoMail.Send()
' Set the configuration for Network Send
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSMTPServer) = SMTP_SERVER_NAME
Flds(cdoSMTPServerPort) = SMTP_PORT
Flds(cdoSendUserName) = SMTP_USER_NAME
Flds(cdoSendPassword) = SMTP_PASSWORD
Flds.Update
cdoMail.CC = strCCmail
cdoMail.Subject = strsubject
cdoMail.From = strFromEmail
cdoMail.HTMLBody = strBody
cdoMail.Send()
' Set the configuration for Network Send
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSMTPServer) = SMTP_SERVER_NAME
Flds(cdoSMTPServerPort) = SMTP_PORT
Flds(cdoSendUserName) = SMTP_USER_NAME
Flds(cdoSendPassword) = SMTP_PASSWORD
Flds.Update