VBA下载附件

时间:2018-04-26 13:36:43

标签: vba outlook outlook-vba email-attachments

我想从电子邮件中下载附件到特定文件夹,我写了一个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文件并打开它。非常感谢任何帮助。

3 个答案:

答案 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