2017-04-05 1 views
0

Outlook 15.0でCreateCSV()パブリックサブを使用していますが、下の2行目に「コンパイルエラー:ユーザー定義タイプが定義されていません」というエラーメッセージが表示されます。コンテキストの場合OutlookでExcelオブジェクトを処理するSubを使用する

Public Sub CreateCSV(dataWbFile As String, Optional InputDt As String)  
Dim dataWb As Workbook 

、私は、コードのこの部分内CreateCSVを使用しています:

私は、電子メールのファイルをソート添付ファイルを保存し、そうすることの後に電子メールを削除するために使用しています
For Each Item In SubFolder.Items 
    For Each Atmt In Item.Attachments 
     If LCase(Right(Atmt.filename, Len(ExtString))) = LCase(ExtString) Then 
      filename = DestFolder & Atmt.filename 
      Atmt.SaveAsFile filename 
      ReceivedTime = DateSerial(Year(Item.ReceivedTime), Month(Item.ReceivedTime), Day(Item.ReceivedTime)) 
      Call CreateCSV(filename, ReceivedTime) 
      i = i + 1 
     End If 
    Next Atmt 
    Item.Delete 
Next Item 

私はこれに新たなんです。私はTools-> Referencesパッケージをダウンロードしました。私が読んだMicrosoft Outlook 15.0 Object Libraryは、潜在的な問題の1つでした。

+0

「Outlook」から「Workbook」*を参照したい場合は、「Microsoft Excel 15.0 Object Library」への参照を含めたいと思います。 – CLR

+0

ありがとう!それは仕事をした。 –

答えて

1

OutlookからWorkbookを参照する場合は、Microsoft Excel 15.0 Object Libraryへの参照を含めます。

関連する問題