Daily Archives: 2016-01-27

You are browsing the site archives by date.

이메일(Email)을 요청했더니 오라클(Oracle) 덤프(Dump) 파일을 주네..

부정관련 의심대상자 분석을 위해서 회사에 이메일을 요청했는데.. 이메일을 파일형태로 저장할려면 메일마다 수작업을 해야해고 시간이 오래걸린다고 하더니 이메일을 오라클 DMP 파일로 줬다.

오라클 DB Import해서 봤는데 Contents 필드값을 확인해보니까 HTML 형태로 내용이 저장되어 있다. 

SQL 쿼리로 조회해서 내용을 검색할 수도 있겠지만, 불편했다.

그래서 생각해낸 방법은.. ODBC로 연결해서 엑셀 매크로를 활용해서 메일을 HTML 형태로 파일로 저장했다.

매크로 소스는 아래와 같다.

 

Option Explicit

Sub test()

Dim lastrow As Long
Dim i As Long

‘Application.ScreenUpdateing = False

lastrow = Cells(Rows.Count, “A”).End(3).Row

For i = 1 To lastrow Step 1

Range(“A” & i).Copy

Workbooks.Add

ActiveSheet.Paste

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\” & “Email” & i & “.txt”, FileFormat:=xlText

ActiveWorkbook.Close False

Next i

End Sub