使用 VBA 保存和转换附加的 Outlook 文件

Question

我有这段代码可以将电子邮件中的附件保存到给定的文件夹中。但我也想在保存之前转换这些文件。特别是 xml 文件到 xlsx。

有人能帮帮我吗？

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
       Dim objAtt As Outlook.Attachment
       Dim saveFolder As String
       Dim dateFormat As String

       dateFormat = Format(Now, "yyyy-mm-dd H-mm")
       saveFolder = "C:\Users\gabor\Documents\CAFM\xml\"
       For Each objAtt In itm.Attachments
          If InStr(objAtt.DisplayName, ".xml") Then
             objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
          End If

          Set objAtt = Nothing
       Next
End Sub

Answer 1

我做到了

Public Sub saveconvAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat As String
Dim convFormat As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object

saveFolder = "C:\Users\gabor\Documents\CAFM\xml\"
convFolder = "C:\Users\gabor\Documents\CAFM\xls\"
dateFormat = Format(Now, "yyyy-mm-dd HH-mm-ss")

For Each objAtt In itm.Attachments

objAtt.SaveAsFile saveFolder & dateFormat & objAtt.FileName

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(saveFolder)
    If UCase(Right(objAtt.FileName, Len(XML))) = UCase(XML) Then
        NewFileName = convFolder & dateFormat & objAtt.FileName & "_conv.xlsx"

Set ConvertThis = Workbooks.Open(saveFolder & dateFormat & objAtt.FileName)
        ConvertThis.SaveAs FileName:=NewFileName, FileFormat:= _
        xlOpenXMLWorkbook
        ConvertThis.Close
    End If
Next
Set objAtt = Nothing

结束子

使用 VBA 保存和转换附加的 Outlook 文件

Saving and converting attached Outlook file with VBA

xml

outlook

vba

xlsx