【VBA Outlook】添付ファイル付きメールを自動で作成する方法

コメントありがとうございます。

添付ファイルはファイルへのフルパスを利用しますので、そのフルパスを取得する必要があります。
ファイル名は取得できているようですので、フォルダーのパスを結合させ、添付ファイルのパスとして利用します。

若干コードを作り替えていますが、下記でどうでしょう。

Sub mail_create()

‘— Outlook操作のオブジェクト —
Dim objOutlook As Object
Set objOutlook = New Outlook.Application

‘— メールオブジェクト —
Dim objMail As Object
Set objMail = objOutlook.CreateItem(olMailItem)

‘— メールの内容を格納する変数 —
Dim toStr As String ‘to（宛先）
Dim ccStr As String ‘cc（ccの宛先）
Dim bccStr As String ‘bcc（bccの宛先）
Dim subjectStr As String ‘メールの件名
Dim bodyStr As String ‘メールの本文
Dim attachmentPath As String ‘添付ファイルのパス

‘— ファイル取得の変数 —
Dim FileTime As Date
Dim MaxTime As Date
Dim FileName As String
Dim MaxFileName As String
Dim FolderPath As String ‘ フォルダのパスを格納する変数を追加

‘FolderPath = “D:\実績\” ‘ フォルダのパスを指定

FileName = Dir(FolderPath & “横もち依頼*.xlsx”) ‘ フルパスでのファイル取得

Do While FileName <> “” ‘ ファイルを取得できる間ループ

FileTime = FileDateTime(FolderPath & FileName) ‘ ファイルの日時を取得

If FileTime > MaxTime Then ‘ 時間を比較
MaxTime = FileTime ‘ 日付が大きい場合は格納
MaxFileName = FileName ‘ 日付が大きい場合はファイル名を格納
End If

FileName = Dir()

Loop

‘—Excelから情報取得—
‘セルは適当に入れています。Excel内にある場合は実際のセルに設定してください。
toStr = Range(“A1”).Value
ccStr = Range(“A2”).Value
bccStr = Range(“A3”).Value
subjectStr = Range(“A4”).Value
attachmentPath = FolderPath & MaxFileName　’ 取得したファイルパスを利用

‘— メールの内容をセット —
‘上のセルから取得もできますが、コードに書き込んでも可能です。
‘どちらか一方を使ってください。
‘to宛先をセット
toStr = “abc@gmail.com”

‘ccをセット
ccStr = “abc@gmail.com”

‘Bccをセット
‘bccStr = “abc@gmail.com”

‘— 件名の内容 —
subjectStr = “メールの件名を入力します。”

‘— 本文の内容 —
bodyStr = “本文を入力します。”

‘— メールを作成 —
objMail.To = toStr
objMail.CC = ccStr
objMail.BCC = bccStr
objMail.Subject = subjectStr
objMail.BodyFormat = olFormatPlain ‘メールをテキスト形式に設定
objMail.Body = bodyStr

‘添付ファイルパスが空白の場合にスルーする
If attachmentPath = “” Then

Else
objMail.Attachments.Add (attachmentPath)
End If

‘— メールを表示 —
objMail.Display

‘— メールを送付 —
‘objMail.Send

End Sub