로터스 에이전트가 첨부 파일 (EmbeddedObjects)을 분리합니다.

Question

로터스 에이전트가 첨부 파일을 분리합니다. 사실, 그것은 "xxx@aol.fr"에 의해

Set rtitem = curdoc.GetFirstItem("Body") 
If Not rtitem Is Nothing Then 
    If Isarray(rtitem.EmbeddedObjects) Then 
     Forall o In rtitem.EmbeddedObjects 
      If (o.Type = EMBED_ATTACHMENT) Then 
       fullpath = path + o.source 
       Call o.ExtractFile(fullpath) 
      End If 
     End Forall 
    End If 
End If 

나는이 에이전트를 디버깅 않았고 내가 시험 "으로 끝나면 IsArray (rtitem.EmbeddedObjects)"을 보았다 통과하지 못한을에서 발송에 실패 거의 잘 예외 우편물을 작동 . 메일이 첨부 파일을 준비했지만 rtitem.EmbeddedObjects는 배열이 아닙니다!

이유를 모르겠습니까?

나는 구글에 많이 seached하고 난 그냥 비슷한 문제 how to check for rtitem has embeddedObjects but object has no objects

을 발견하고 나는 그것을 잘 작동이 here

'test 
    Dim vEval As Variant 
    Dim embObj As NotesEmbeddedObject 
    vEval = Evaluate("@AttachmentNames", curdoc) 
    ForAll v In vEval 
     LogInfo("detacheFichier() v=" & v) 
     If v <> "" Then 
      Set embObj = curdoc.GetAttachment(v) 
      Call embObj.ExtractFile(pathDir + pathFile & v) 
     End If 
    End ForAll 

의 힌트를 시도했다. 내가 하지만 마지막 하나 때문에 매우 기쁘게 생각합니다 : 내가 이전 코드가

덕분에 많은 안부 dsea 작동하지 않습니다하지 않는 이유

Answer 1

EmbeddedObjects 속성의 도움말 문서는 말한다 :

서식있는 텍스트 항목에 포함 된 개체가 없으면 빈 상태로 돌아갑니다.

Isarray(rtitem.EmbeddedObjects) 대신 IsEmpty(rtitem.EmbeddedObjects)을 사용하십시오.

Answer 2

첨부 파일이 다른에 저장됩니다

• Notes 기본 = NRPC 라우팅, 메모 서식있는 텍스트 또는
• 마임 = SMTP- 라우팅, MIME로 형 메일의 유형에 따라 방법.

  "순수한"Notes- Mail에서 첨부 파일은 Rich Text Item "Body"내에 저장되며 거기에서 얻을 수 있습니다.

  Mime-Mails에서는 첨부 파일이 RichtextItem 또는 문서 자체에서 발견 될 수 있는지 여부에 따라 Sender- 설정, 서버 설정 및 Mail이 Mime에서 Richtext로 변환되는 장소에 따라 다릅니다. 그런데

  : 우편물이 너무 마임 메일 될 것입니다 iNotes의 또는 여행자를 사용하여 만든 ...

  이 질문에 대한 답을 알고있다 : 메일의 두 가지 유형에 대한 하나의 해결책이 없습니다. 확실하게하려면 두 가지를 모두 구현해야합니다.