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