我想从电子邮件中下载附件到特定文件夹,我写了一个VB脚本并为该文件夹中的电子邮件设置规则。
这一切似乎都运行得很好,但是当它下载附件时,它将其保存为“文件”类型,而不是xlsx。如果我打开它,那都是随意的废话。文件内容的示例:
¬Ia
我无法弄清楚我做错了什么,而且我已经尝试了我在网上找到的所有帮助。
我的VB脚本。
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim strFileType As String
Dim DtString As String
Dim SName As String
Dim File_Name As String
Dim Full_Path As String
saveFolder = "\\path\path\path\path\Path\"
strFileType = ".xlsx"
DtString = Format(Now(), "mm-dd")
SName = itm.SenderName
File_Name = DtString & "_" & SName
Full_Path = saveFolder & "\" & File_Name
For Each objAtt In itm.Attachments
objAtt.SaveAsFile Full_Path
Set objAtt = Nothing
Next
End Sub
我最后尝试添加".xslx"
,我尝试打开Excel实例,打开文件,保存并关闭。
我已经尝试将其保存为Txt文件并打开它。非常感谢任何帮助。
答案 0 :(得分:0)
变化:
Full_Path = saveFolder & "\" & File_Name
为:
Full_Path = saveFolder & "\" & File_Name & strFileType
答案 1 :(得分:0)
使用附件文件名。
objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName
答案 2 :(得分:0)
应
scutil <<< "list" | grep -i airport
实施例
File_Name = DtString & "_" & SName & strFileType