VBA-Code-Update von Outlook 2016 bis 2013

Question

Ich schrieb diesen Code auf einem anderen PC, der Win10 und Office 2016 hatte. Es wird in einer Outlook-Regel verwendet. Es speichert die xml Dateien von der E-Mail in einen Ordner und ändert es in xlsx Datei in einem anderen Ordner. In Outlook 2016 läuft es einwandfrei. Ich habe es auf ein anderes Notebook kopiert.

Dieses Notebook verfügt über Win10 und Office 2013 und dieser Code wird in Outlook 2013 ohne Fehlermeldung ausgeführt, aber die xml Dateien wurden weder im angegebenen Ordner gespeichert noch in xlsx konvertiert.

Was könnte in diesem Code falsch sein?

• Visual Basic für Aplications
• Microsoft Outlook 15.0 Object Library
• OLE Automation
• Microsoft Office 15.0 Object Library
• :

  Option Explicit 
  
  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\tulaj\Documents\xml\" 
  convFolder = "C:\Users\tulaj\Documents\xls\" 
  dateFormat = Format(itm.ReceivedTime, "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 
  End Sub 
  

  In Tools Referenzen sind die falowings ausgewählt Microsoft Excel 15.0 Objektbibliothek

• Microsoft Scripting Runtime

Answer 1

Dies sollte für Sie arbeiten ...

Option Explicit 
Public Sub saveconvAttachtoDisk(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim SaveFolder As String 
    Dim convFolder As String 
    Dim DateFormat As String 
    Dim ConvFormat As String 
    Dim NewFileName As String 
    Dim ConvertThis As Object 
    Dim objFSO As Object 
    Dim objFolder As Object 
    Dim objFile As Object 

    SaveFolder = "C:\Temp\xml\" 
    convFolder = "C:\Temp\xls\" 
    DateFormat = Format(itm.ReceivedTime, "yyyy-mm-dd HH-mm-ss ") 

    For Each objAtt In itm.Attachments 
     Debug.Print objAtt.FileName 
     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 
End Sub 

es zu testen, wählen Sie die E-Mail und den folgenden Code

Public Sub Test_Rule() 
    Dim Item As MailItem 

    Set Item = ActiveExplorer.Selection.Item(1) 
    saveconvAttachtoDisk Item 

    Set Item = Nothing 
End Sub