將Outlook電子郵件正文解壓縮到備忘錄字段

有沒有人能夠將Outlook.msg文件的正文放到備忘錄字段中？我在這裏嚴重受阻。將Outlook電子郵件正文解壓縮到備忘錄字段

2013-10-03 Jonathan Morningstar

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

唯一需要注意的是，您需要在Outlook中授予foxpro安全訪問權限。有關使用Outlook Redemption或自動點擊程序的方法。

來源

2013-10-03 16:02:20

Rich - 我在c：\上有一個文件夾，它將電子郵件保存爲.MSG文件。我將如何合併你的代碼，將電子郵件的正文放入cmemails.mbody字段中？ \t USE CMCONTROL IN 0 \t IN 0 \t本地陣列MYFILES [1,5] \t \t nFilesFound = ADIR（MYFILES，ALLTRIM（cmcontrol.cpath）+ '*。*'） \t \t XX = 0 USE CMEMAILS \t對於i = 1至nFilesFound \t \t XX = XX + 1 \t \t插入到cmemails（cprimary，csubject，ddate，DTIME，cattribs）值（generateGuid（26），MYFILES [I，1]，MYFILES [I ，3]，MyFiles [i，4]，MyFiles [i，5]） \t endfor \t使用選擇（'CMEMAILS'） \t使用選擇（'CMCONTROL'） –

我需要問這是一個單獨的問題嗎？ –

中for循環，所以上面的代碼。將插入語句更改爲包含主體。像這樣的東西。 –

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

來源

2013-10-07 14:00:58

將Outlook電子郵件正文解壓縮到備忘錄字段

回答

相關問題