【VBA】Selenium basicでラジオボタンを押したい

Question

VBAでchromeを操作し、メール送信サービスの自動化を行っております。
※Selenium Basicを使用しています。

以下のラジオボタンの選択ができず困っております。

あらかじめ、「Aメール」が選択されていますが、「Bメール」を選択したいです。
該当のソースコードは以下です。

該当のソースコード

試したこと

Driver.FindElementById("取得したID").click
Driver.FindElementByName("取得したName").click
Driver.FindElementByCss("取得したCss").click
Driver.FindElementByXPath("取得したXPath").click

上記のコードそれぞれで試してみましたが、Bメールを選択することができませんでした。
Bメールを選択できる方法がありましたら、ご教授いただければ幸いです。

知識不足のため、至らぬ点が多々あるかと思います。
足りない情報など御座いましたらお申し付けください。
何卒宜しくお願い致します。

Answer 1

dim ks as Object 'これを追加

Set ks = CreateObject("Selenium.Keys")
Driver.FindElementById("mail_type1").SendKeys ks.Enter

クリックと言うよりエンターキー押下
こんな感じじゃだめでしょうか?

Comments

[pay_]

ご回答頂きありがとうございます。
ご提案頂いた方法で試してみましたが、選択されませんでした．．．

FindElementByNameなどでエンターキー押下も試しましたが、動かずといった状況です。

[hodagiri]

Driver.FindElementById("mail_type1").SendKeys " "
エンターではなくスペースキーでもだめだったでしょうか?

Answer 2

これはいかがですか？

Comments

[pay_]

ご回答いただきありがとうございます。
私自身もそうしたく思っているのですが、とあるメールサービスを使用しており、そちらのソースコードなので、こちらでは編集できないのです。。。

[nonoshu]

なるほど、そういうことですね。
Selenium Basic は今日初めて知ったので全然詳しくありませんが
jQueryあるあるですが
以下はどうでしょうか？
```vba
Driver.FindElementById("取得したID").click
↓
Driver.FindElementById("取得したID")(0).click
```

[pay_]

提案頂いたものを試してみましたが、反応ありませんでした。
ちなみに、(0)の数字も(1)など試してみましたが、ダメでした…！

[nonoshu]

GitHubのソースを見てみてみると
AsSelect()というメソッドがありました。
私の方では環境がないため動作確認出来ないままの提案で申し訳有りませんが
Driver.FindElementById("Bメールの取得したID").AsSelect()
としてみたらBメールが選択されるようになりませんかね・・・？

[nonoshu]

もう少しソースを読み進めていたら下記の方が良いかも知れません。

Driver.FindElementByName("mail_type").AsSelect().SelectByValue(1)

name属性 ”mail_type” でラジオボタングループを選択した状態にしてから
BメールのValue=1をSelectする

[pay_]

ご回答頂きありがとうございます。
Driver.FindElementById("Bメールの取得したID").AsSelect()
Driver.FindElementByName("mail_type").AsSelect().SelectByValue(1)

上記2つ試してみましたが、Bメールは選択されませんでした。。。

[nonoshu]

的はずれな提案で申し訳ありませんでした。

こちらが参考になりませんか？
https://teratail.com/questions/279217?link=qa_related_pc
言語はPythonですが同様かと感じました。
今回のケースで当てはめると
driver.ExecuteScript('viewUseEditorMode(true)') ←BメールのラジオボタンのClickイベントに設定されているJSメソッド