| |
---|
| | Dim oAttachment As Outlook.Attachment |
---|
| | Dim sSaveFolder As String |
---|
| | sSaveFolder = "Z:\Docs\RootShell\cal_xls\" |
---|
| | For Each oAttachment In MItem.Attachments |
---|
| | oAttachment.SaveAsFile sSaveFolder & Format(Now, "yyyymmdd") & ".txt" |
---|
| | oAttachment.SaveAsFile sSaveFolder & Format(Now, "yyyymmdd") & ".xlsx" |
---|
| | Next |
---|
| | End Sub |
---|
| | ``` |
---|
| | |
---|
| |
---|
| | |