VBA Outlook 2010.將特定的Outlook正文文本提取爲excel

Question

有幾個帖子在這個主題上打開，但是沒有一篇似乎完全滿足我的需要。我做了一些編程，但是我從來沒有用VBA做過任何事情。每天我收到一系列包含以[Tk＃*******]新請求（* = 7位數字） 開頭的主題行的一系列電子郵件，其中包含以10到50爲單位的所有電子郵件。然後在正文內部有一個表單看起來像這樣：

Body Text

我然後有一個Excel片設置在「G」中「C」「用戶名」，「公司」，「有效的，直到」在「H」和「票務'在'我'。我想首先從主題中提取7位數的票號，並​​將其放入excel的'Ticket'字段中，然後從登錄字段中將'smithjoh'部分放入'用戶名'中，然後將外部公司列爲'公司'，最後到期日爲'有效期至'。

首先，我想知道是否可以這樣做，因爲它是提取數據的特定部分，如果有的話，如果有人可以幫助我做這個工作，最受讚賞。我試圖自己做，但缺乏經驗讓我無能爲力，不幸的是沒有什麼可以工作的。如果這可以做出來，它會幫助我很多，因爲它會自動完成一項非常乏味的手動任務。

謝謝， 馬克

Answer 1

好吧，如果你抓住了身體和標題沒有問題，那麼你只需要做的字符串操作。將它們分別讀入一個變量。假設你的主題是litterally「TK＃*******新請求」，那麼這應該讓你開始。基本上重複你想要拉出的每個部分的邏輯。一旦你有變量的值，你可以把這些值放入單元格中。

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鍵一次一行地瀏覽代碼，以便你可以看到到底發生了什麼。這對字符串操作特別有用。