2012-05-15 4 views
4

첨부 파일이있는 "RichTextField"가 들어있는 수신 이메일 (메일 수신 데이터베이스)이 있습니다. 또한 RTF가 아닌 $ FILE로 문서에 첨부 파일을 찾습니다. 나는 모든 개체를 다른 보내는 전자 메일로 복사하는 처리를 얻으려고합니다. 아래 코드를 사용하여 $ FILE을 찾을 수 있습니다.

Dim rtiObject as NotesEmbeddedObject 
Dim rti_Email as NotesRichTextItem 
Dim obj_Email as NotesEmbeddedObject 
ForAll p in mailDoc.items 
    if p.Name = "$FILE" then 
    set obj_Email = mailDoc.GetAttachment(p.Values(0)) 'this will return the Name of the attachment (or file) 
    set rtiObject = rti_Email.EmbedObject(EMBED_ATTACHMENT, "", obj_Email.Name) 'this is supposed to attach the file to the document's RTF 
    End If 
End ForAll 

이 스크립트는 $ 파일 파일을 찾아 이름이 아닌 객체를 반환하고 내가 거기에서 아무것도 할 수 없어 실행

.

원본 문서에서 첨부 파일/개체 ($ FILE)를 가져 와서 보내는 전자 메일의 RTF에 첨부하려면 어떻게해야합니까?

네트워크에 첨부 파일을 분리 한 다음 보내는 전자 메일에 첨부 한 다음 네트워크에서 첨부 파일을 삭제한다고 생각했지만 이는 비현실적이었습니다.

들어오는 전자 메일에 이러한 $ FILE 유형의 첨부 파일을 처리하는 것이 더 쉬운 방법이 있습니까?

+0

이 모든 관련 성향이 있습니까? http://stackoverflow.com/questions/9083135/lotus-notes-get-attachment-names-from-document –

+0

비슷하지만 같지 않습니다. 그것은 $ FILE 일 때 첨부 파일에 액세스 할 수없는 이유를 설명하지만 누군가가 INI를 변경하지 않고 작동하게하는 방법을 알아 냈는지 알고 싶습니다. 이 변경은 서버의 모든 응용 프로그램에 영향을 미치며 현재로서는 옵션이 아닙니다. – RoyRumaner

+0

코드에 NotesSession.convertMIME = true 또는 false가 있습니까? false이면 인라인 MIME 첨부 파일이 $ File 항목에 표시되지 않을 수 있으며 액세스하려면 MIME 트리를 탐색하는 코드를 작성해야합니다. –

답변

2

NotesDocument 개체의 EmbeddedObjects 속성을 사용해보십시오. 다음과 같이 입력하십시오 :

Forall obj_Email in MailDoc.EmbeddedObjects 
    If obj_Email.Type = EMBED_ATTACHMENT then 
    Call obj_Email.Extract(sometempdirectory$ & obj_Email.Name) 
    Call rti_Email.EmbedObject(EMBED_ATTACHMENT, "", sometempdirectory$ & obj_Email.Name) 
End Forall 

원하는 경우 without detaching 할 수도 있습니다.

+0

첨부 파일을 분리 한 다음 옵션을 제거해야합니다. 그러나 링크는 아주 좋은 해결책을 가리키고 있습니다. 나는 이것을 시도 할 것입니다. – RoyRumaner

+1

연결된 방법이 효과가 있습니까? –

0

$ 파일 필드 앞에 ~ 기호를 붙여서 액세스 할 수 있습니다.

filename$ = mailDoc.~$File(0) 
Set fileObj = mailDoc.GetAttachment(filename$) 
Call fileObj.ExtractFile(filename$)