常連

### 実現したいこと
Excel VBAを用いて、同じ文面のメールをリスト化された複数のアドレスと宛名を取得し送信したいです。
メール本文の中の、会社名や宛名を個別に置き換えたいです。
※ネットで拾ったコードを使わせてもらっています

### 発生している問題・分からないこと
マクロを実行すると、
「実行時エラー'62': ファイルにこれ以上データがありません。」
というエラー出て、一件しかメールを送信できません。

### エラーメッセージ
```error
実行時エラー'62': ファイルにこれ以上データがありません。
```

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

```
'プログラム0｜変数宣言の指定
Option Explicit
 
'プログラム1｜プログラム開始
Sub SendMails()
 
    'プログラム2｜変数設定
    Dim mailaddress As String
    Dim subject As String, mailbody As String
    Dim username As String, tsuchi As String
    Dim ws As Worksheet
    Dim cmax As Long
    Dim i As Long
    Dim txtfile As String, txtpath As String, attachedfile As String
    Dim txt As TextStream
    
    'プログラム3｜FileSystemObjectの設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject
      
    'プログラム4｜テキストファイルの情報の取得
    txtfile = "【パソコンスキルの教科書】登録ありがとうございます.txt"
    txtpath = ThisWorkbook.Path & "\" & txtfile
    Set txt = fs.OpenTextFile(Filename:=txtpath, IOMode:=ForReading)
      
    'プログラム5｜メール件名の取得
    subject = Split(txtfile, ".")(0)
      
    'プログラム6｜添付ファイルを取得
    attachedfile = ThisWorkbook.Path & "\添付ファイル.jpg"
      
    'プログラム7｜ワークシート設定
    Set ws = Worksheets("メールリスト")
 
    'プログラム8｜各シートの記載情報を取得
    cmax = ws.Range("A65536").End(xlUp).Row
              
    'プログラム9｜Outlookメール送信用の変数設定
    Dim OutlookObj As outlook.Application
    Dim myMail As outlook.MailItem
    Set OutlookObj = CreateObject("Outlook.Application")
 
    'プログラム10｜シート「メールリスト」の情報を取得
    For i = 2 To cmax
        
        'プログラム11｜F列のON/OFFでメール通知設定を決定
        tsuchi = ws.Range("E" & i).Value
        If tsuchi = "ON" Then
        
            'プログラム12｜メール本文とメールアドレスを取得
            username = ws.Range("C" & i).Value
            mailbody = Replace(txt.ReadAll, "{名前}", username)
            mailaddress = ws.Range("D" & i).Value
            
            'プログラム13｜Outlookメールを作成
            Set myMail = OutlookObj.CreateItem(olMailItem)
            
            'プログラム14｜メール内容を設定
            myMail.BodyFormat = 3
            myMail.To = mailaddress
            myMail.CC = "fastclassinfo@gmail.com"
            myMail.subject = subject
            myMail.Body = mailbody
    
            'プログラム15｜添付ファイルがあればメールに添付
            If attachedfile <> "" Then
                myMail.Attachments.Add (attachedfile)
            End If
            
            'プログラム16｜メール送信
            myMail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして､メール送信はしない)
            myMail.Send 'ここをコメントアウトすることでメール送信しないことも可能
            ws.Range("F" & i).Value = "送信完了：" & Now()
            
            'プログラム17｜オブジェクト解放
            Set myMail = Nothing
        End If
    Next
    Set OutlookObj = Nothing
 
'プログラム18｜プログラム終了
End Sub
```

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

##### 上記の詳細・結果
teratailで同様の質問を見つけましたが、回答を見てもどのように修正すればいいかわからず、再度質問を上げさせていただいています。

### 補足
https://teratail.com/questions/370887（過去の同様のご質問）

VBAで複数Outlookメールを個別作成し一斉送信

お世話になっております。

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ファイルのプレビューアーはどのようにしてインストールするのでしょうか？

### 実現したいこと
Excelのマクロ機能を使用し、outlookでメール送信したいです。

### 発生している問題・分からないこと
ツール→参照設定を開いても
「microsoft outlook ●　object library」がありません。

下記エラーが出るのは、上記設定ができていないためと思っております。

### エラーメッセージ
```error
マクロを実行すると、下記エラーが発生します。

-------------------------------------------------------------
実行時エラー　429

ActiveXコンポーネントはオブジェクトを作成できません
-------------------------------------------------------------
```

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

```
Sub SendEmailWithConfirmation()
    Dim OutApp As Object
    Dim OutMail As Object
    
    ' Outlookアプリケーションを取得
    Set OutApp = CreateObject("Outlook.Application")　←実行すると、ここが黄色くなります
    Set OutMail = OutApp.CreateItem(0)
    
```

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

##### 上記の詳細・結果
https://www.sejuku.net/blog/76520

こちらの「参照設定を追加する方法」項目で追加しようとしましたが、
そもそも「MSOUTL.OLB」ファイルがなかった為、断念しました。

### 補足
OS　　：Windows11
Excel　：2021
マクロのライブラリ：Microsoft Office 16.0 Object Library
Outlook：1.2025（新しいOutlook）

Excelのマクロを用いてoutlookでメール送信したい

エクセル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に下記の様に文字列を入れております。
<span style=”font-size:35pt”>担当者様<br><br>
お疲れさまです。<br><br>
お手数ですがよろしくお願い致します。<br><br>
</span>
```


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

### 実現したいこと

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

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