SeleniumでOutlookの添付ファイルを追加する方法

Comments

1. 

   @yamaxzira

   Questioner

   more_horiz

   アドバイスありがとうございます。
   ご指摘の通り「ファイルを開くダイアログ」はWindowsのAPIだと思うのでSeleniumで操作するのは無理だと考えています。
   いくつかWebサイト等を調べると
   １．下記で添付ファイルのインプット要素を探す。
   　　Dim attachfile As WebElement
   　　Set attachfile = .FindElement(By.CssSelector, "input[type='file']")
   ２．その要素にsendkeysで添付ファイルのパスを設定する。
   　　attachfile.SendKeys "C:\Users\yoshi\Desktop\sample.txt"
   で添付ファイルをすることは可能と書いてあるのですが、txtファイルだとこれがうまくできない状態です。
   上記を実行すると
   「次のファイルは、サポートされている種類の画像ファイルではないため、挿入されませんでした。: sample.txt。サポートされている画像ファイルの種類は、.png、gif、.bmp、.jpg、.jpe、.jfif、.jpegです。」
   のエラーが出てしまいます。ただし、エラーメッセージにしたがってjpegファイルを添付した場合、添付はできるのですが下記のようにメール本文への添付となってしまいます。
   
   恐らく
   attachfile.SendKeys "C:\Users\yoshi\Desktop\sample.txt"
   だとメール本文へ添付しようとしてエラーになっていると思われます。
   
   のように添付ファイルができる方法を探しております。
   "input[type='file']"以外の要素があるのかなぁと。。。

2. 

   @nak435

   more_horiz

   OWAではなく、Desktop Outlook であれば、簡単に（添付ファイル付き）メール作成できますが・・・

   OWAにこだわる理由がなければ、例えば；

3. 

   @nak435

   more_horiz

   恐らく
   attachfile.SendKeys "C:\Users\yoshi\Desktop\sample.txt"
   だとメール本文へ添付しようとしてエラーになっていると思われます。

   ドラッグ＆ドロップすると、txtファイルでも添付できますね。
   これを Selenium でできるかどうかですが。。。➞ できるようです。

4. 

   @yamaxzira

   Questioner

   more_horiz

   ご意見ありがとうございます。
   Outlookクラシック(Desktop)であれば良いのですが、
   今回Outlookクラシックの保証期間が2029年までかもしれないという
   ことから来ている話なので、WEB版ではどうするかとい言われています。

   ドラッグ＆ドロップですか。。。
   デスクトップとかもしくは特定のフォルダからってできるんですかね。。
   ブラウザの制御からはずれるのと制御が不安定になる気がします。
   引き続き私のほうでも色々調査してみます。

   素直にPowerAutomate使わせてもらうのが一番いいとは思っているのですが、
   エンドユーザーの制約もあって色々可能性を探っています。

5. 

   @nak435

   more_horiz

   VBAによる送信メール作成は、Outlookのクラシック版かどうかは関係ありませんし、
   VBAスクリプト以外でも、PowerShellでも送信メール作成はできます。

6. 

   @yamaxzira

   Questioner

   more_horiz

   Outlookについてはクラシック版が2029年まではサポートされるのですが、
   その後どうなるかわからないので、今後はVBAでOutlookを操作する場合はWEB版を
   使わなければならないのではないかというところからこの話は来ていました。
   なのでクラシック版は使えないんですよね。

   新しい Outlook による従来の Outlook の置き換え時期 (2024 年 5 月現在)
   https://outlooklab.wordpress.com/2024/05/11/%E6%96%B0%E3%81%97%E3%81%84-outlook-%E3%81%AB%E3%82%88%E3%82%8B%E5%BE%93%E6%9D%A5%E3%81%AE-outlook-%E3%81%AE%E7%BD%AE%E3%81%8D%E6%8F%9B%E3%81%88%E6%99%82%E6%9C%9F-2024-%E5%B9%B4-5-%E6%9C%88%E7%8F%BE/

   PowerShellでメールを作成するのも恐らくOutlookのCOMオブジェクトを使用しなくてはならないと思うので、
   どうかなぁというところです。

   となると今のところ考えられるのは
   ・OutlookのWEB版を操作してメールを作成する。
   ・PowerAutomateを使う。
   2案かなぁと。

   PowerAutomateを使えば確実なのですが、お客様環境でまだPowerAutoamteを使えるかが
   微妙なのでSeleniumVBAでOutlookのWEB版を操作する案も調査しています。

   色々案をいただきありがとうございます。

7. 

   @yamaxzira

   Questioner

   more_horiz

   とりあえず、解決（？）したので自己レスします。
   結局Windowsのファイル選択ダイアログをVBAで操作することで他のファイルの添付ができました。
   下記のソースは
   １．挿入＞添付ファイル＞このコンピューターから選択をクリックして
   　　ダイアログを表示
   ２．ダイアログに添付ファイルのフルパスをセットして、Enterキーを押下
   しております。
   色々ありがとうございました。

   Set elm = Nothing
   Set elm = .FindElement(By.XPath, "//span[text()='挿入']")
   .Wait 2000
   elm.Click
   
   Set elm = Nothing
   Set elm = .FindElement(By.XPath, "//button[@aria-label='添付ファイル']")
   .Wait 2000
   elm.Click
   
   i = 0
   Set elm = Nothing
   Do Until i > 500
       If .IsPresent(By.Name, "このコンピューターから選択") = True And _
           .FindElement(By.Name, "このコンピューターから選択").IsDisplayed = True Then
           Exit Do
       End If
   .Wait 1000
   i = i + 1
   Loop
   Set elm = .FindElement(By.Name, "このコンピューターから選択")
   elm.Click
   

   ' --- WindowsAPIのダイアログボックスを操作 ------------------------
   Dim filePath As String
   Dim wsh As Object

   filePath = """C:\Users\yoshi\Desktop\sample1.txt"" " & _
       """C:\Users\yoshi\Desktop\sample2.txt"" " & _
       """C:\Users\yoshi\Desktop\sample3.zip"""
   
   Set wsh = CreateObject("WScript.Shell")
   wsh.AppActivate "開く"
   Application.Wait Now + TimeValue("0:00:05")
   wsh.SendKeys filePath
   Application.Wait Now + TimeValue("0:00:05")
   wsh.SendKeys "{ENTER}"
   Application.Wait Now + TimeValue("0:00:05")
   

   ' --------------------------------------------------------------