finish.log에서 메일주소만 추출하는 방법

finish.log -> finish.csv 로 확장자명을 변경합니다.

해당 파일 클릭 후 실행합니다. 엑셀이 실행 될 것입니다.

Alt + F11 눌러 VBA 편집기 열기 - > 삽입 > 모듈 클릭 , 아래 코드 붙혀넣기 

Function ExtractEmail(cell As Range) As String
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "[A-Z0-9._%+-]+@[A-Z0-9.-]+.[A-Z]{2,}"
regEx.IgnoreCase = True
regEx.Global = False

If regEx.test(cell.Value) Then
ExtractEmail = regEx.Execute(cell.Value)(0)
Else
ExtractEmail = ""
End If
End Function

B 셀에 아래 항목 넣으면 메일 주소만 추출 됩니다. 아래로 드래그해서 모든 데이터 추출하면 되겠습니다. 

=ExtractEmail(A1)

 

수신자 그룹으로 등록 후 '작성 1단계'에서 '제외등록'에 체크하면 예외처리로 기존 대량메일 발송 중 에러 발생한 메일 미발송 분 재발송이 가능하게 됩니다.