常連

お世話になっております。

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にインポートする方法

### 実現したいこと
EXCEL VBAでコードを書いています。
Outlookで受信したメール本文をExcelに張り付ける際に、一つのセルにメール本文全てが張り付いてしまう。メール本文で改行されていたら下のセルに本文を貼り付けたい。
追加部分のコードを書かずに、複数行のセルにまたがって本文を貼り付けたい。

### 発生している問題・分からないこと
このようになってしまう
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-01-13/b3f990e2-951a-4a31-8d9b-f83445298531.jpeg)

このようにしたい
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-01-13/15167f29-66f1-43a6-ab8e-60f8308b16ea.jpeg)

### エラーメッセージ
```error
エラーメッセージはないです。
```

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

```VBA
Sub Test1()

’Microsoft Outlook 16.0 Object Library　と　Microsoft Scripting Runtimeは参照設定されている。

Dim appOL As Outlook.Application

Set appOL = New Outlook.Application

Dim objExplorers As Explorers

Set objExplorers = appOL.Explorers

'Debug.Print objExplorers.Item(1).Selection.Item(1).Subject

Worksheets(1).Range("B2").Value = objExplorers.Item(1).Selection.Item(1).Subject
'
'Debug.Print objExplorers.Item(1).Selection.Item(1).Body

Worksheets(1).Range("B4").Value = objExplorers.Item(1).Selection.Item(1).Body

’----この部分を追加し、作成された123.txtを開いて「全て選択」→任意のセルにコピーペーストすると複数行のセルに跨ってペーストされる。----

Dim str1 As String

str1 = objExplorers.Item(1).Selection.Item(1).Body

Dim myFSO As FileSystemObject
Set myFSO = New FileSystemObject
Dim myText As TextStream
Set myText = myFSO.CreateTextFile("C:\123.txt")
E:
myText.WriteLine str1


myText.Close
Set myText = Nothing
Set myFSO = Nothing

’----この部分を追加し、作成された123.txtを開いて「全て選択」→任意のセルにコピーペーストすると複数行のセルに跨ってペーストされる。　終わり----

End Sub
```

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

##### 上記の詳細・結果
単にメモ帳に書いたテキスト文をエクセルにコピーペーストしても、一つのセルにまとまらずに複数行のセルにペーストされる。　一つのセルにペーストされる場合と複数行にペーストされる場合と違いが分からない。

### 補足
単にメモ帳に書いたテキスト文をエクセルにコピーペーストしても、一つのセルにまとまらずに複数行のセルにペーストされる。　一つのセルにペーストされる場合と複数行にペーストされる場合と違いが分からない。

Outlookメール本文を抽出することについて

■のように、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コンポーネントはオブジェクトを作成できません」のエラー

### 実現したいこと

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/ツールのバージョンなど）

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


PowerAutomate メールの件名の一部を抽出したい

### 実現したいこと
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
```