KDPoid
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Странно, кажется тут: Код: saveFolder = "c:\Work\& dateOfMailItem & "_" & sSubject & "\" | потеряна кавычка А про остальное(Оставлю только интересные части): Код: ... saveFolder = ... & "\" ' Сформировали название папки со слэшем в конце ... For Each objAtt In itm.Attachments ' Для каждого аттача ext = ... ' выделим его старое расширение из имени файла ... ' заполняем j чтобы избежать переписывания файлов ' сохраняем вложение в папку saveFolder ' c именем, составленным из j, старого имени с расширением и ещё раз расширения... ?!? objAtt.SaveAsFile saveFolder & j & objAtt.FileName & ext ' Попробовал, так и есть. image.png сохраняется как image.png.png Set objAtt = Nothing Next | Так что, всё что вам нужно, перед сохранением проверить имя файла и решить, под каким именем сохранять вложение. Например, строчку сохранения переписать так: Код: If InStr("image", objAtt.FileName) > 0 Then objAtt.SaveAsFile saveFolder & j & "image.txt" Else objAtt.SaveAsFile saveFolder & j & "1.txt" End If | Использование j я оставил, чтобы письма с одинаковой темой или с более чем двумя вложениями не перетирали на диске друг-друга. Ну, вам виднее, нужно ли оно, если что, убрать j, я думаю, и сами справитесь. |