VBA Outlook 2010. 특정 Outlook 본문 텍스트를 추출하여 Excel

Question

몇 가지 게시물을 열어 볼 수 있습니다. 나는 프로그래밍을 조금 해 봤지만 VBA로는 아무 것도하지 않았습니다. 매일 [Tk # *******] New Request (* = 7 digit number)로 시작하는 제목 줄을 포함하는 10에서 50까지의 일련의 이메일을받습니다. 본문 텍스트 안에는 양식이 있습니다. 그것은 다음과 같습니다

Body Text

I 다음 '까지 유효한' 'G'에서 'C'에서 '사용자 이름', '회사'로 설정 엑셀 시트를 가지고 'H'와 '티켓에 '내가'. 먼저 제목에서 7 자리 티켓 번호를 추출하여 Excel '티켓'필드에 입력 한 다음 로그인 필드의 'smithjoh'부분을 '사용자 이름'에 입력 한 다음 나열된 외부 회사를 'Company'그리고 마지막으로 '유효 기간'으로 끝납니다.

먼저 데이터의 특정 섹션을 추출 할 수 있는지 여부를 알고 싶습니다. 누군가가이 작업을 통해 나를 도와 주면 가장 감사하게 생각합니다. 나는 그것을 스스로 시도했지만 경험 부족으로 인해 내게 우둔함이 남겨져 불행하게도 아무 일도 할 수 없다. 이것이 가능하다면 매우 지루한 수작업을 자동화하기 때문에 많은 도움이 될 것입니다. 당신은 문제없이 몸과 제목을 잡는 경우

덕분에, 마크

Answer 1

좋아, 당신은 단지 문자열 조작을 할 필요가있다. 그들을 각각 변수로 읽습니다. 당신의 주제가 문자 적으로 "TK # ******* New Request"라고 가정하면, 이것은 당신을 시작하게 할 것입니다. 기본적으로 끌어낼 각 파트에 대해이 논리를 반복하십시오. 변수에 값이 있으면 그 값을 셀에 넣을 수 있습니다. 당신이 잡아 바로 시작하는 장소를 찾는 장소를 종료 한 다음 변수에 넣어 중반을 사용하는 논리를 반복 할 모든 다른 부분

Dim sSubject as string 
Dim sBody as string 
Dim sTicket as string 
Dim sLogin as string 
Dim lLoginPos as long 
Dim iLoginLength as integer 

sTicket = Mid(sSubject,4,7) 'start 4th char and grab 7 ... if you actually have the brackets in the subject then do 5,7 

lLoginPos = InStr(sBody, "emea") + 5 'if they aren't all emea you will need to key off the "Req on behalf name" and add more to the result the result will be the e in emea so add 5 to get past that to the login. 
iLoginLength = InStr(sBody, "Req on behalf mail") - lLoginPos ' you might need to subtract an additional 1 or 2 if your result isn't perfect. Not sure what the blank white spaces in your screenshot will do here. 
sLogin = Mid(sBody,lLoginPos,iLoginLength) ' grabs that username. 
With Sheets("Sheet1") 
    cells(1,3) = sLogin ' puts that into Row 1 Colum 3 (C) Cells is R1C1 ... backwards from the normal way you think of excel 
End With 

를 사용하여 다른 문자열 변수.

나머지 부분을 채우고 코드를 게시하여 문제가되는 줄을 알려주십시오. 현지인 창을 켜고 F8 키를 사용하여 한 번에 한 줄씩 코드를 단계별로 실행하여 정확히 무슨 일이 일어나는지 볼 수 있습니다. 이것은 특히 문자열 조작에 유용합니다.