Outlook 전자 메일에서 텍스트 및 첨부 파일 재정렬

Question

매크로 (Excel 파일 매크로)에서 전자 메일을 만들고 첨부 파일을 텍스트로 묶으려고합니다. 이

Set olMailItem = olApp.CreateItemFromTemplate(EmailFilePath) 
With olMailItem 
    'search and replace subject for "KW ##" to the kw from "Key Metrics" tab 
    .Subject = Replace(.Subject, "KW ##", KW) 
    .Attachments.Add ("H:\QA\QA Mgmt\Presentations\" & reports(r).filename) 
    .Body = .Body & GetSignature(emailTemplatePath & "EmailSignature.txt") 
    .Display 
End With 

EmailFilePath 기존 몸과 reciepients과 MSG 파일의 경로입니다 몸, 파일, 서명이하는 첨부 파일이 서명 한 후 추가 다음 코드를 사용하여, 내가 좋아하는 것입니다. 첨부 파일 뒤에 서명을 추가 할 수있는 방법이 있습니까? 첨부 파일이의 다음 줄을 구현하여 전자 메일의 "BodyFormat이가"

당신은이 작업을 수행 할 수 있습니다 "서식있는 텍스트"로 설정 한 경우에만 몸의 내부에 배치 할 수 있습니다

Answer 1

사전에

감사합니다 함수에 코드 :

.BodyFormat = olFormatRichText ' 3 also works 

구현

Set olMailItem = olApp.CreateItemFromTemplate(EmailFilePath) 
With olMailItem 
    ' **** Add this line vvvv **** 
    .BodyFormat = olFormatRichText ' 3 also works 

    'search and replace subject for "KW ##" to the kw from "Key Metrics" tab 
    .Subject = Replace(.Subject, "KW ##", KW) 
    .Attachments.Add ("H:\QA\QA Mgmt\Presentations\" & reports(r).filename) 
    .Body = .Body & GetSignature(emailTemplatePath & "EmailSignature.txt") 
    .Display 
End With 

---

또한 ".Attachments.Add"의 세 번째 매개 변수는 "위치"이며 기본적으로 0이지만이 숫자는 첨부 파일이있는 본문의 어느 문자를 나타냅니다. 숫자가 총 문자 수보다 크면 자동으로 끝에 배치됩니다. 번호가 1이면 처음에 배치됩니다. http://msdn.microsoft.com/en-us/library/office/ff869553(v=office.15).aspx

:

이 잘 작동합니다, 단지 위치 매개 변수 아웃룩 첨부 파일에 대한

.Attachments.Add Source:="H:\QA\QA Mgmt\Presentations\" & reports(r).filename, Position:=100 

더 많은 수를 변경