typo
1 parent 718a4bc commit fb61d14e3f8e70102f74560faa0ada41efc7fca0
root authored on 22 Apr 2022
Showing 1 changed file
View
2
■■■
RS/ExcelCal/README.md
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
```
 
Buy Me A Coffee