剥离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