常連

お世話になっております。

emlファイルをOutlook2016にドラック&ドロップで持ってきても
プレビューウィンドウには
```Windows
このファイルのプレビューを表示出来ません。このファイル形式用のプレビューアーがインストールされていません。
```
と表示されてしまいます。

グーグル先生で調査してもemlファイルのプレビューアーを見つけられなかったので
お問い合わせいたします。


下記のように微妙に違うのは見つかったのですが……

拡張子が .eml のファイルを Outlook クライアントで開けるようにする方法 (Windows 7 環境)
https://support.microsoft.com/ja-jp/help/2875009

OUTLOOKにemlメールファイルをインポート表示できない時の解決方法
http://inoueani.com/outlook-emlmailfile-import/


二日前に
emlファイルをOutlook2016にインポートする方法
https://teratail.com/questions/72199
と投げたのですが今度はプレビューアーで解決してみようと思いましたので
新規質問失礼します。

もしかして誰も困っていないのでしょうか？
しっかりWindowsLiveメールを落とせる時に対処したのかな……

Windows10のOutlook2016でemlファイルのプレビューアーはどのようにしてインストールするのでしょうか？

エクセルVBAとOutlookを使って下図のようにエクセルのセル内の本文を参照してテンプレ文を表示するマクロを作成しています。
セル内にbrの改行タグは適用されるも、フォントサイズ、フォント体が上手く反映されません。メール作成マクロを実行した際、本来は游ゴシック・11ptで出力されてほしいのですが、デフォルトのMPゴシック体・10ptに出力されてしまいます。

ご教示お願いいたします。

```エクセルVBA
コード

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("テンプレ文")
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)



With objMail
 .To = "MailAddress@xx.xx" 'メール宛先
 .Subject = "メールの件名" 'メール件名
 .body = "メール本文" 'メール本文
 .BodyFormat = olFormatPlain 'メールの形式
 .HTMLBody = "<div style=""font-family:游ゴシック;font-size:22pt;""> </div>"
End With


Dim oApp As New Outlook.Application
Dim oItem As Outlook.MailItem
Set oItem = oApp.CreateItem(olMailItem) 'メールを作成します
oItem.To = ws.Range("D7") '宛先を入力します
oItem.CC = ws.Range("D8") 'CCを入力します
oItem.Subject = ws.Range("D9") & ws.Range("B3") '件名を入力します
oItem.HTMLBody = ws.Range("D10")

またエクセル内にはD10に下記の様に文字列を入れております。
担当者様 
お疲れさまです。 
お手数ですがよろしくお願い致します。 

```

OutlookとVBAにて、フォントサイズ、フォント体の反映について

お世話になっております。

Outlook2013を使用しております。

中央のメールメッセージの部分で
一週間前ぐらいのメールが 9/1（金）受信となっており
9/1以前のメール受信時間が一覧に表示されません。

メール受信時間を表示される方法を伺ってよろしいでしょうか？

お忙しいところ大変申し訳ないのですが
上記お問い合わせいたします。

過去のメールで受信した詳細の時間を知りたい

お世話になっております。

件名の通り
emlファイルをOutlook2016に読み込ませたいと思っております。

Googleで調査すると
Outlook でフォルダーに含まれる多数の EML ファイルを一括インポートする方法
https://outlooklab.wordpress.com/2014/12/27/outlook-%E3%81%A7%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E3%83%BC%E3%81%AB%E5%90%AB%E3%81%BE%E3%82%8C%E3%82%8B%E5%A4%9A%E6%95%B0%E3%81%AE-eml-%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E4%B8%80/

が引っかかったのでこちらでやってみようとしたが
フォルダにインポートではなく
Outlookの保存先にインポートって出来ないのかな？？？

まぁやってみるとエラー：パスが見つかりません。
うーんローカルにコピーしないとイケナイのかな……

思考メモ失礼しました。

emlファイルを保存先に保存できる形式に変換する方法をご存じな方は
ご教授頂けないでしょうか？

emlファイルをOutlook2016にインポートする方法

■のように、IEオブジェクトやOutlookオブジェクト作成時、
レイトバインディング(?)した場合のみ、下記のエラーが出ます。

どのようなロジックでこのエラーが起きてしまうのでしょうか。
回避方法を教えてください。
（検索してもよくわかりませんでした...)

実行時エラー'429'
ActiveX コンポーネントはオブジェクトを作成できません。

###IEオブジェクトの作成時
```
'エラーが出る
Dim objIE As InternetExplorerMedium
Set objIE = CreateObject("InternetExplorer.ApplicationMedium")
```
```
'エラーが出ない
Dim objIE As InternetExplorerMedium
Set objIE = New InternetExplorerMedium
```
###Outlookオブジェクトの作成時
```
'エラーが出る
Dim OLobj As Outlook.Application
Set OLobj = GetObject(, "Outlook.Application")
```
```
'エラーが出ない
Dim OLobj As Outlook.Application
Set OLobj = New Outlook.Application
```

VBA - 「ActiveXコンポーネントはオブジェクトを作成できません」のエラー

### 実現したいこと
Excel VBAから、Outlookのメールを作成する際、
改段落の行間サイズをデフォルトの「0行」にしたいです。



### 発生している問題・分からないこと
メールを作成し、
　[書式設定]タブ　→　[段落]　→　[間隔]　→　[段落後]　を確認すると、
普段はこれが「**0行**」になっているのですが、
VBA経由で作成したときだけ、「**12pt**」になってしまいます。

これを、VBA側の記述で「0行」にしたいです。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-02-14/e7649a83-854f-43b5-96d3-401061c5597a.png)
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-02-14/70d06814-12fc-4ea0-b671-c7f6aaa8f06d.png)



### 該当のソースコード

```VBA
Sub Trial_Mail()

Dim toaddress As String
Dim subject, mailBody As String
Dim outlookObj As Outlook.Application
Dim mailItemObj As Outlook.mailItem
Dim WEObj As Object

Application.ScreenUpdating = False

'To宛先
toaddress = "aaa@gmail.com"
'件名
subject = "件名"

'メール作成
mailBody = "" _
　　　　　　& "本文"

Set outlookObj = CreateObject("Outlook.Application")
Set mailItemObj = outlookObj.CreateItem(olMailItem)

With mailItemObj

 .To = toaddress 'To宛先をセット
 .subject = subject '件名をセット
 .HTMLBody = mailBody　'本文をセット

'メール表示
 .display

End With

'オブジェクトの解放
Set outlookObj = Nothing
Set mailItemObj = Nothing

End Sub

```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

Outlookの書式は`WordEditor`で変更するとのことだったので、
Word VBAと見比べながら、下記コードを挿入してみましたが、

①：実行時エラー438（オブジェクトはこのプロパティまたはメソッドをサポートしていません）
②：エラーは出ないが。段落後の行間サイズに変化なし
という結果でした。

```VBA
 Set WEObj = mailItemObj.GetInspector().WordEditor
 
 With WEObj

'方法① 全選択して選択範囲の段落改行サイズを変更　→エラー
 .Content.Select

 With Selection.Paragraphs.Format

 .LineUnitAfter = 0

 End With

'方法②　各段落をループして改行サイズを変更　→エラーは出ないが変化なし
 For i = 1 To .Paragraphs.Count

 .Paragraphs(i).LineUnitAfter = 0

 Next i
 
 End With
```

【Excel VBA】Outlookメール本文の改段落の行間サイズを設定したい【Outlook】

### 実現したいこと
最終的に実現したいことはoutlookで、複数のメールの添付ファイルを一括で保存することです。
その前段階として、まずは1通メールを開封してみようと思いました。

### 発生している問題・分からないこと
AppleScriptでoutlookを操作する方法を調べてもほとんど何も出てこず、、、
スクリプトエディタでoutlookの用語説明を見て開封にはopenというコマンとを使うのかな？と思ったんですが、これはファイルを開くコマンドですかね？メールを開くにはどのコマンドを使えばいいのでしょう、、、
引数に何を入れればいいのかもわかりませんでした。

GPTに出力させたものを勘で修正してみたんですが、

error "Microsoft Outlookでエラーが起きました: message 1を取り出すことはできません。正しくないインデックスです。" number -1719 from message 1

と出てきます。




### 該当のソースコード

```errorの出た記述
tell application "Microsoft Outlook"
	activate
	-- 受信トレイの一番新しいメールを取得
	set Mail to message 1
	-- メールを開く
	open Mail
end tell
```

```outlookの用語説明
open v : Open an object.
open specifier, file, or list of file : The object or file(s) to be opened.

```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
チャットGPTで出力させてみたりしました。

```
tell application "Microsoft Outlook"
-- 指定した件名のメールを検索
set theMessages to messages of inbox whose subject is "指定した件名"

-- メールが見つかった場合、最初のメールを開く
if (count of theMessages) > 0 then
set theMessage to item 1 of theMessages
open theMessage
else
display alert "指定した件名のメールが見つかりませんでした"
end if
end tell
```

該当するメールが存在しても「指定した件名のメールが見つかりませんでした」と出ます。

### 補足
特になし

AppleScriptでoutlookを操作し、メールの添付ファイルを開きたい

### 実現したいこと

powerautomateにて、outlookで取得したメールの件名の一部を抽出したいです。

件名は必ず「○○さんが"ファイル名"をあなたと共有しました。」となっていて、"ファイル名"の部分のみを抽出したいです。


### 発生している問題・エラーメッセージ

```
フローの保存がコード 'InvalidVariableInitialization' およびメッセージ 'The variable action '変数を初期化する' of type 'InitializeVariable' cannot be nested in an action of type 'Apply_to_each_2'.' で失敗しました。

```

### 該当のフローと説明
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-18/4b93b41a-0cb5-4354-8791-7cd16922a152.png)

取得した件名を一度変数に設定し、それに対して""で分割をするという方法です。
作成の箇所の記述は次のようになっています。
```
split(variables('件名抽出'),'"')
```

これにより件名を「○○さんが」と「ファイル名」と「をあなたと共有しました。」に３分割し、後に
```
outputs('作成')?[1]
```
とすることで””の中の部分を取り出そうとしています。



### 補足情報（FW/ツールのバージョンなど）

他に必要な情報がありましたら教えていただけると幸いです。
