Sub attached_file_name1()
''ファイルダイアログを表示して添付するファイルを要求して、
'''本文に添付ファイル名リストを挿入します。
'''
'■1.Excelを呼び出す処理（ファイルダイアログを呼び出すため）
Dim excelObject As Excel.Application
Set excelObject = New Excel.Application
excelObject.Visible = False 'Excelは非表示にする
'■2.メールテンプレートを呼び出す処理
Dim objItem As MailItem
'下記にメールテンプレートのパスを入力してね。
Set objItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\注文書の送付2.oft")
'■3.ファイルダイアログを設定して表示する処理
Dim fdFolder As Office.FileDialog
Set fdFolder = excelObject.Application.FileDialog(msoFileDialogFilePicker)
With fdFolder
.InitialFileName = "%userprofile%\" '一番最初に開くフォルダのパスを記述します。
.AllowMultiSelect = True '複数ファイルの選択を許可する場合はTrue・しない場合はFalse
.Title = "メールに添付するファイルを選択してください（複数選択可）。"
'選択できるファイルを制限するには下記のようにフィルターを追加してください。
' .Filters.Add "Excels", "*.xls* ", 1
' .Filters.Add "Images", "*.png; *.jpg; *.jpeg", 2
' .Filters.Add "Documents", "*.doc*; *.pdf; *.txt ", 3
' .Filters.Add "csv", "*.csv", 4
' .Filters.Add "any", "*.*", 5
' .FilterIndex = 1 'デフォルトのフィルターをindexで指定します。
.Show 'ファイルダイアログを表示します。
End With
'■4.選択されたファイルをメールテンプレートに1個ずつ添付する
Dim SelectedItem
Dim str_attached_file_name As String
For Each SelectedItem In fdFolder.SelectedItems
objItem.Attachments.Add SelectedItem
Next
'■5.選択されたファイルをメールテンプレートに1個ずつ添付する
Dim SelectedItem
For Each SelectedItem In objItem.Attachments
str_attached_file_name = str_attached_file_name & "<li>" & SelectedItem & "</li>"
Next
str_attached_file_name = "<ol>" & str_attached_file_name & "</ol>"
objItem.HTMLBody = Replace(objItem.HTMLBody, "◆ここに添付ファイル名挿入◆", str_attached_file_name)
Set excelObject = Nothing
End Sub
▲Power Automate for Desktopの基本をしっかり学習するのにオススメです。この本の一番のメリットはデモWebシステム・デモ業務アプリを実際に使ってハンズオン形式で学習できる点です。本と同じシステム・アプリを使って学習できるので、本と自分の環境の違いによる「よく分からないエラー」で無駄に躓いて挫折してしまう可能性が低いです。この点でPower Automate for desktopの一冊目のテキストとしてオススメします。著者は日本屈指のRPAエンジニア集団である『ロボ研』さんです。
じょじお
ぽこがみさま
ポチップ
