いつもお世話になっております。

表題通りPB2017でメール送信を行いたいのですが、Sendでエラーが出て困っています。

ソースを下記に記載します（最低限です）

------------------------------------------------------------------------------------
OleObject lole_Msg

long rtn
any aaa
lole_Msg=create oleobject

if lole_Msg.ConnectToNewObject("CDO.Message")<0 then
messagebox('OBI','CDO.Message')
destroy lole_msg
return
else

lole_Msg.Configuration.Fields.Item('cdoSMTPServer').Value = "SMTPサーバー"
lole_Msg.Configuration.Fields.Item('cdoSendUsingMethod').Value = "cdoSendUsingPort" //外部SMTP指定
lole_Msg.Configuration.Fields.Item('cdoSMTPServerPort').Value = 465 //ポート№
lole_Msg.Configuration.Fields.Item('cdoSMTPConnectionTimeout').Value = 60 //タイムアウト
lole_Msg.Configuration.Fields.Item('cdoSMTPAuthenticate').Value = "cdoBasic" //SMTP認証
lole_Msg.Configuration.Fields.Item('cdoSMTPUseSSL').Value = True //SSL
lole_Msg.Configuration.Fields.Item('cdoSendUserName').Value = "SMTPユーザー" //送信ユーザー
lole_Msg.Configuration.Fields.Item('cdoSendPassword').Value = "SMTPパスワード" //送信ユーザー
//lole_Msg.Configuration.Fields.Item('cdoLanguageCode').Value = 'CdoCharset.cdoShift_JIS' //送信ユーザー
lole_Msg.Configuration.Fields.Update()
lole_Msg.Fields.Update()

lole_Msg.MimeFormatted = True //MIMEを使って書式設定
lole_Msg.From = "送信メールアドレス" //差出人
lole_Msg.To = "宛先メールアドレス" //宛先
lole_Msg.Subject = "メールタイトル" //メールタイトル
lole_Msg.TextBody = "メール本文" //本文

lole_msg.Send

--------------------------------------------------------------------------------
最後のSendのタイミングで

アプリケーションの実行エラー(R0039)
アプリケーションは中断されました。
エラー 外部オブジェクトプロパティ sendのアクセスエラーです。

というエラーが出てきます。
VBAではエラーは出ずメール送信が可能です。

あと、Configuration.Fields.Itemの項目に関しましては
lole_Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value = "SMTPサーバー"

上記の書き方でもダメでした。

もしこのエラーについてわかる方がいらっしゃいましたら、ご指導お願いいたします。