如何使用AppleScript從Lotus Notes獲取電子郵件地址和帳戶信息？

Question

我們有一個郵箱，其中包含大約60,000封電子郵件，我一直在質疑將名稱，帳號和電子郵件地址從每個郵件的正文中取出，並將其導出爲適用於電子表格的格式。

我想使用AppleScript和Notes 8.5的，但我無法找到如何與Notes中的單個郵件交互的任何文件。

任何人都可以幫忙嗎？

Answer 1

如果您熟悉腳本語言，我建議您使用LotusScript代替。它使您可以直接訪問Notes對象而不是Applescript and the Notes C API。

您可以使用Notes Designer應用程序在郵箱內創建Notes代理。該代碼將大致是這樣的：

Dim s as New NotesSession 
Dim db as NotesDatabase 
Dim dc as NotesDocumentCollection 
Dim doc as NotesDocument 

Set db = s.CurrentDatabase 
Set dc = db.Search(|Form="Memo"|, Nothing, 0) 
Set doc = dc.GetFirstDocument 

While Not (doc Is Nothing) 

    'Process each document here... 

    Set doc = dc.GetNextDocument(doc) 
End While 

的問題是如何存儲在每個郵件正文中的電子郵件地址，帳號和姓名？

您可以將電子郵件正文中的所有文本拖入大文本文件中，然後使用Applescript處理，如果您對此更加適應。

fileNum = Freefile() 
pathname = "C:\path\to\file" 
Open pathname For Output As fileNum 
While Not (doc Is Nothing) 

    Set rtitem = doc.GetFirstItem("Body") 
    Write #fileNum, rtitem.GetFormattedText(False, 0) 

    Set doc = dc.GetNextDocument(doc) 
End While 
Close fileNum 

或者您可以使用NotesRichTextItem方法來導航並從正文中提取特定數據。如果數據存儲在電子郵件正文中的表中，這可能很有用，因爲NotesRichTextItem方法允許您查找表格元素並導航單元格（儘管這很困難，並且可能值得發佈第二個問題在StackOverflow上獲得幫助）。

如果你希望獲得的電子郵件地址和名稱來自收件人：或From：電子郵件的領域，你可以通過訪問NotesDocument的每封電子郵件的性能做更容易。這些字段可以像這樣提取：

Dim ToEmail as String 
Dim FromEmail as String 

ToEmail = doc.SendTo(0) 'a document's item properties are zero-based arrays 
FromEmail = doc.From(0)