메모 본문에 이메일 본문

메모 본문으로 이메일 본문을 가져올 수 있습니까? 오류가 발생했습니다.메모 본문에 이메일 본문

전자 메일 본문을 메모 필드에 그려 넣으려고합니다.

오류 # 1943 메시지 : 회원 ACTIVEINSPECTOR 객체

USE CMCONTROL IN 0 
USE CMEMAILS IN 0 

local array MyFiles[1,5] 
    nFilesFound = ADIR(MyFiles, ALLTRIM(cmcontrol.cpath) + '*.*') 
    xx = 0 
for i = 1 to nFilesFound 
    xx = xx + 1 
    WAIT WINDOW NOWAIT 'FortenStar® Count-O-Matic'+CHR(13)+CHR(13)+'Email Record Count: '+ ALLTRIM(STR(xx)) 
    *********************************************************************************** 
    *** HOW CAN I MAKE THIS WORK? 
    ***********************************************************************************  
    msgfile=ALLTRIM(cmcontrol.cpath) + ALLTRIM(cmemails.csubject) 
    o = CreateObject("Outlook.Application") 
    emailmsg = o.ActiveInspector.CurrentItem 
    memofiledvariable = emailmsg.body 
    *********************************************************************************** 
    *********************************************************************************** 
    ***********************************************************************************  
    insert into cmemails (cprimary, csubject, ddate, dtime, cattribs, mbody) values (generateGuid(26), MyFiles[ i, 1], MyFiles[ i, 3], MyFiles[ i, 4], MyFiles[ i, 5], memofiledvariable) 
endfor 
USE IN SELECT('CMEMAILS') 
USE IN SELECT('CMCONTROL')

출처

2013-10-03 Jonathan Morningstar

당신은있는 FoxPro CREATEOBJECT을 사용하여 Outlook의 오픈 인스턴스를 액세스 할 수 없습니다로 평가하지 않습니다. GETOBJECT를 사용해야하고 사용중인 세부 사항을 참조해야합니다.

어떤 다른 제안 : 그들은 FoxPro에 불평 짧은 목록에없는 경우에도

는 단일 문자 변수 이름을 사용하지 마십시오.
o이 무엇인가를 수행하기 전에 객체이고 좋은 상태인지 테스트합니다.
사용자가 현재보고있는 것을 찾고있는 경우가 아니면 AcitveInspector 또는 office-kin을 사용하지 마십시오. 이와 같은 예에서는 각 이메일 항목을 필터링하는 방법에 대해 API를 검색해야합니다.
Outlook의 내부 메커니즘에 대해 100 % 익숙하지 않지만, 파일 디렉터리에 사용자의 전자 메일이있는 경우 필터를 대신 사용할 수 있는지 실제로 확인해야합니다. MIME 파서는 네이티브 형식 인 경우 어렵지 않으며 XML 인 경우 DOM은 VBA보다 쉽습니다.

출처

2013-10-12 03:52:31 DougM

메모 본문에 이메일 본문

답변

관련 문제