ник: osmor
Если вы не собираетесь использовать MyFilePath то его можно просто убрать из функции
вместо
Function GetMessage(ByVal FindSubject As String, ByVal MyFilePath As String)
|
Function GetMessage(ByVal FindSubject As String)
|
и вызывать
Call GetMessage(MySubject)
Скорее всего что -то происходит, попробуйте поискать файл с именем вложения в папках Мои документы, Temp или лучше на всем диске
Просто поскольку путь не указан, файл сохраняется в папку по умолчанию или в ту куда был сохранен последний файл.
Для задания пути можно добавить его к имени файла в конструкции
myAttachments.Item(1).SaveAsFile myAttachments.Item(1).DisplayName
например так
myAttachments.Item(1).SaveAsFile "C:\temp\" & myAttachments.Item(1).DisplayName
|
Или использовать освободившийся аргумент MyFilePath передавая не имя файла, а имя папки
myAttachments.Item(1).SaveAsFile MyFilePath & myAttachments.Item(1).DisplayName
|
Вызов функции тогда будет выглядеть так :
MySubject = "Обновление данных" 'Установка заданной темы
MyFilePath = "C:\temp\"
Call GetMessage(MySubject, MyFilePath)
|