BASP21をつかってアクセスからメールを送信

質問

BASP21をつかってアクセスからメールを送信したいと思っています。

固定のメールアドレスの場合はうまくいくのですが、
フォームの値（メールアドレス）を代入しようとすると、invariant　のエラーがでてしまいます。

（固定メールアドレスの記載）
　Dim MailTo As String

　'宛先
　MailTo = "xxx@xx.ne.jp"

（フォームの値の記載）
　Dim MailTo As String

　'宛先
　MailTo = "<" & Forms![F_業務管理簿_詳細]![紹介者・担当者_メール１] & ">"

フォームの値（メールアドレス）に送信できるようにするにはどのようにすればよいのかご教示くだいさい。
よろしくお願い致します。

回答No.1

NotFound404 · ベストアンサー

前略～

　'宛先
　MailTo = "<" & Forms![F_業務管理簿_詳細]![紹介者・担当者_メール１] & ">"
'確認用に追加
DoCmd.RunCommand acCmdDebugWindow
debug.print mailto

～後略

とした場合に、イミディエイトウィンドウには何と入っていますか？
MailTo = "<" & Forms![F_業務管理簿_詳細]![紹介者・担当者_メール１].TextToDisplay & ">"
で良いかも？

ダメだったらイミディエイトウィンドウの 値を適当に変えて
載せてください。
※但し、半角＠マークは、あ に必ず変えてください。
でないとサイトの個人情報チェッカー？が作動して
『現在、サポートで内容を確認中です。』
となって暫く見られなくなります。

回答No.2

noname#258293

実際に試したわけではないですが、“<”と“>”をつけなければいいのではないでしょうか。

MailTo = Forms![F_業務管理簿_詳細]![紹介者・担当者_メール１]

固定文字列との違いは、“<”と“>”の有無だけだと思います。