複数添付ファイルについて

投稿者 : miyuki     投稿日時 : 2024/08/17(Sat) 14:00:34     OS : Windows 11     EXCEL : Office 365

---

メール送信時に、複数のpdfファイルを添付したいのですが
１種類のファイルが２つ添付されてしまいます。
書き方が間違っているのでしょうか。
ご教授お願いいたします。

書いたコードは下記のとおりです。

Sub AddAttach(attachFile As Object, key As String)
        Dim filename As String
        Dim filename2 As String
        Dim 案内 As String
        Dim チラシ As String
                
        filename = Dir(ThisWorkbook.Path & "\pdf\" & 案内 & "*")
        attachFile.Add ThisWorkbook.Path & "\pdf\" & filename
        filename2 = Dir(ThisWorkbook.Path & "\pdf\" & チラシ & "*")
        attachFile.Add ThisWorkbook.Path & "\pdf\" & filename2
          
        Set attachFile = Nothing        
        
End Sub

よろしくお願いいたします。

投稿者 : さんこう     投稿日時 : 2024/08/17(Sat) 16:45:43

---

＞１種類のファイルが２つ添付されてしまいます。

この↓どちらも、同じファイルを指定しているからでしょう。

filename = Dir(ThisWorkbook.Path & "¥pdf¥" & 案内 & "*")

filename2 = Dir(ThisWorkbook.Path & "¥pdf¥" & チラシ & "*")

こんな↓コードを追加して、どんなファイルが指定されているか、確認してみるといいでしょう。

MsgBox filename & vbCrLf & filename2

投稿者 : miyuki     投稿日時 : 2024/08/17(Sat) 22:48:19

---

■[返信 1] さんこうさん（2024-08-17 16:45:43）の記事
＞ ＞１種類のファイルが２つ添付されてしまいます。
＞
＞ この↓どちらも、同じファイルを指定しているからでしょう。
＞
＞ filename = Dir(ThisWorkbook.Path & "¥pdf¥" & 案内 & "*")
＞
＞ filename2 = Dir(ThisWorkbook.Path & "¥pdf¥" & チラシ & "*")
＞
＞ こんな↓コードを追加して、どんなファイルが指定されているか、確認してみるといいでしょう。
＞
＞ MsgBox filename & vbCrLf & filename2
＞

案内のpdfが２つ添付されてしまいます。
変数名もファイル名も違うのになぜ、同じファイルが添付されてしまうのでしょうか？

投稿者 : さんこう     投稿日時 : 2024/08/17(Sat) 23:07:29

---

＞変数名もファイル名も違うのになぜ

「変数名」は違っていますが、変数の値は同じかと思います。

「ファイル名」が違うとのことですが、どのように確認されたのでしょうか？

投稿者 : miyuki     投稿日時 : 2024/08/18(Sun) 07:59:20

---

■[返信 3] さんこうさん（2024-08-17 23:07:29）の記事
＞ ＞変数名もファイル名も違うのになぜ
＞
＞ 「変数名」は違っていますが、変数の値は同じかと思います。
＞
＞ 「ファイル名」が違うとのことですが、どのように確認されたのでしょうか？
＞

¥pdf¥" & 案内 & で、pdfフォルダ内の案内という名のpdfファイルを指定して
¥pdf¥" & チラシ &で、pdfフォルダ内のチラシという名のpdfファイルを指定している
はずなんですが？
間違っていますか？

投稿者 : さんこう     投稿日時 : 2024/08/18(Sun) 09:41:02

---

＞¥pdf¥" & 案内 & で、pdfフォルダ内の案内という名のpdfファイルを指定して

ここ↑の「案内」は変数であり、値（中身）は何もありません。

なので、「案内」という名のpdfファイルを指定しているわけではないです。

投稿者 : miyuki     投稿日時 : 2024/08/18(Sun) 11:15:00

---

ありがとうございます。
解決いたしました。

" " で囲むのを忘れていました。

お世話になりました。