「新しいoutlook」で、エクセルマクロをつかってメール送信したい

投稿者 : ぽち(ど素人)     投稿日時 : 2025/08/07(Thu) 23:11:53     OS : Windows 11     EXCEL : Office 365

---

会社のPCが変わりました。outlookをひらくと「新しいoutlook」になります。
いままで、エクセルのマクロをつかってメールを送信できていましたが、「新しいoutlook」では反応せず、
「新しいoutlook」をオフにしてoutlookが再び立ち上がるとその画面でメールが送信されます。
「新しいoutlook」でも機能するように修正したいのですが、知識が乏しく、できる・できない含めご教示いただけますと幸いです。

Option Explicit

Sub Outlookメール作成() 'メールリストでのメール作成
    
    Dim OutlookAP As Outlook.Application
    Dim MailOutlook As Outlook.MailItem
    Dim TempF As String
    
    Set OutlookAP = CreateObject("Outlook.Application")
    TempF = Range("C10").Value

    Set MailOutlook = OutlookAP.CreateItem(0) ' olMailItem = 0

            With MailOutlook
                .To = Range("c4") 'Toのメールを設定
                    If Trim(Range("C5").Value) <> "0" Then
                        .CC = Range("C5").Value
                    End If
                .Subject = Range("c7")   '件名を設定）
                .Body = Range("c8") & vbCr & Range("c9") '本文と署名を設定
                .Attachments.Add TempF
                   ' 添付ファイルの存在確認
                     If Dir(TempF) = "" Then
                      MsgBox "添付ファイルが見つかりません: " & TempF, vbExclamation
                        Exit Sub
                        End If
                .Display  'プレビュー表示
                '.Save    '下書きに保存
                '.Send    'メール送信
            End With
        
        Set MailOutlook = Nothing   '次のメールアイテムを作成するため破棄
    
    Set OutlookAP = Nothing
  
End Sub

投稿者 : higeru     投稿日時 : 2025/08/08(Fri) 12:08:41

---

Outlook (New) のままでは無理のようですね。

https://m32006400n.xsrv.jp/infrastructure/outlook-387/

投稿者 : ぽち(ど素人)     投稿日時 : 2025/08/08(Fri) 14:43:33

---

この記事は見ていたのですが、outlookのマクロ機能が使えないということで、エクセルのマクロもつかえない、
という意味なのかも理解できておりませんでした。
ご回答ありがとうございます。