いつもお世話になっております。
当方、DOCOMOユーザーでして、
マイドコモを利用しているのですが、それをＶＢＡで操作したいです。
ログインする分には問題はないのですが、
既にログイン済みならログアウトしたいのですがそれがうまく行きません。
ログイン状態で下記マクロを実行すると、
*****************************************************************
Sub ログアウト()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
'ログアウトボタンを押す
objIE.Navigate "https://www.mydocomo.com/dcm/dfw/web/portal/pub3/parts/MYDPS-simpleheaderwide.do#"
Set objIE = Nothing
End Sub
*****************************************************************
エラーにはならないのですが、ログアウトされません。
「ログアウトボタンを押す」のURLは「ログアウト」ボタンにカーソルをあてた時
表示されるＵＲＬのシュートカットをコピーしたもので、
ボタンをクリックしたわけではないからログアウトできないのでしょうか？
手動でログアウトする際は、
*******************************************
「Webぺージからのメッセージ」
「ログアウトしますか？、」ＯＫ、キャンセル
*******************************************
というメッセージボックスが表示されて、ＯＫボタンを押すと、ログアウトされます。
画像を参照してください。
これがＶＢＡではうまく出来ません。
このメッセージボックスの表示ができません。
この部分のソースは、
*****************************************************************
～省略～
![ログアウト]( "ログアウト")
*****************************************************************
となっております。
この状況でログアウトする方法、わかる方いらっしゃいますか？
アドバイスよろしくお願いします。
