foxpro - Outlook メールの本文をメモ フィールドに削除する

Question

Outlook.msg ファイルから本文を削除してメモ フィールドにすることができた人はいますか? 私はここで真剣に立ち往生しています。

Answer 1

msgfile=getfile('msg')
o = CreateObject("Outlook.Application")
emailmsg = o.ActiveInspector.CurrentItem
memofiledvariable = emailmsg.body

唯一の注意点は、Outlook で foxpro セキュリティ アクセスを許可する必要があることです。Outlook Redemption または自動クリック プログラムを使用して、これを回避する方法があります。

Answer 2

for i = 1 to nFilesFound xx = xx + 1 
    do above code here as you got it working in test
    insert into cmemails (cprimary, csubject, ddate, dtime, cattribs,mbody) values (generateGuid(26), MyFiles[ i, 1], MyFiles[ i, 3], MyFiles[ i, 4], MyFiles[ i, 5] ,memofieldvariable) 
endfor