Экспорт вложений электронной почты в конкретную папку

2 Antoine Myrd [2016-05-23 13:48:00]

В настоящее время я получаю еженедельные отчеты о перспективах, которые мне нужно открыть и сохранить в определенной папке. Мне удалось переименовать файл и перенести его в нужный файл.

ОДНАКО, формат файла не совпадает с файлом, который прикреплен к электронной почте, он либо зарегистрирован как тип "файл", когда я не помещаю формат даты в конец или файл типа ".2016", когда я класть один. При открытии в Блокноте информация не читается

Вот код, который я использую сейчас:

Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormatdateFormat = Format(Now, "dd.mm.yyyy")
saveFolder = "C:\Users\mypathtotheattachment"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & "thenewnameofmyattachment" & ".csv"
Next
End Sub

Любая помощь приветствуется, я просматривал всю информацию, но я застрял...

Благодарю!

vba outlook-vba outlook email-attachments

Оригинал вопроса (на английском)

0 Решение 0m3r [2016-05-25 02:28:00]

Это то, что вы пытаетесь сделать?

Option Explicit
Public Sub SaveAtmtToDisk(Item As Outlook.MailItem)
    Dim Atmt As Outlook.Attachment
    Dim SavePath As String
    Dim FileName As String

'   //  Saved Location
    SavePath = "C:\temp\"

'   // 05 24 2016 Antoine.csv
    FileName = Format(Now, "DD MM YYYY") & " Antoine.csv"

    For Each Atmt In Item.Attachments
         Atmt.SaveAsFile SavePath & "\" & FileName
    Next

    Set Atmt = Nothing
End Sub

Проверено на Outlook 2010

Оригинал ответа (на английском)

Экспорт вложений электронной почты в конкретную папку

1 ответ