Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2019)
Outlookメール添付ファイルを指定したフォルダに移すマクロ
投稿日時: 22/07/03 23:07:45
投稿者: ふく@たろう

Sub SaveAttachmentFiles01()
Dim myNamespace As Namespace
Dim myinbox As Object, myFolder As Object, objItem As Object
Dim strSavePath As String, strFile, i As Long, numStartDate As Long
 
numStartDate = ThisWorkbook.ActiveSheet.Cells(1, 1)
 
strSavePath = ThisWorkbook.Path & "C:\Users\owner\Desktop\練習"
Set myNamespace = GetNamespace("MAPI")
Set myinbox = myNamespace.GetDefaultFolder(olFolderInbox)
Set myFolder = myinbox
 
For Each objItem In myFolder.Items
With objItem
  If .SentOn >= numStartDate Then
      For i = 1 To .Attachments.Count
      If .Attachments.Item(i) Like "交付変更*.xlsx" Then
          strFile = strSavePath & "\" & .Attachments.Item(i)
          .Attachments.Item(i).SaveAsFile strFile
          End If
        Next i
      End If
      End With
Next objItem
 
     MsgBox "Outlookからの取得完了", vbInformation
      
End Sub
 
添付ファイルを"練習フォルダ"に保存できません。ファイル名またはフォルダ名が正しくない
とエラーメッセージがでます。
ファイル名は全て"交付変更"が頭に記載してあります。
なぜエラーがでるのか解りません。何卒よろしくお願いいたします。
 
 

回答
投稿日時: 22/07/04 06:46:40
投稿者: simple

引用:
ファイル名またはフォルダ名が正しくない
とエラーメッセージがでます。
ファイル名は全て"交付変更"が頭に記載してあります。
なぜエラーがでるのか解りません。

エラーが発生したとき、ご自分で、
・どのフォルダの
・なんというファイル名で
保存しようとしているか、確認されていますか?
 
その確認方法が分からない、ということなんでしょうか。
 
間違いを指摘することは多分できますが、その場をやり過ごせても、
根本的な解決にはならない気がします。
 
デバッグの方法をマスターすることが重要かと思います。
以下の記事を参考にしてトライしてください。
簡単な作業で、ご自分で原因が分かるはずです。
是非その方向で頑張っていただきたいと思います。
 
デバッグ入門−ローカルウィンドウその他
https://www.moug.net/tech/exvba/0150049.html
デバッグ入門−イミディエイトウィンドウその他
https://www.moug.net/tech/exvba/0150050.html

投稿日時: 22/07/13 16:40:17
投稿者: ふく@たろう

解決しました。
有難うございます。