Outlook VBA 텍스트 줄 삽입

Question

작성중인 전자 메일 (열린 전자 메일 항목)에 한 줄을 삽입하는 코드 (vba)를 작성하려고합니다. 아래의 코드는 내가 모듈 (개발 창)에서 직접 코드를 실행하면

1. 작동 무엇

   했다 첫 번째 단계이며, 텍스트가 삽입됩니다. 내 리본의 매크로 (VBA)를 추가하고 그것을 실행하려고하면

   1. 작동하지 않습니다 무엇
   는

   아무 일도 발생하지 않습니다. 이 코드는 모듈 (Play 버튼)을 직접 구성하는 것으로 작동합니다. 내가 활성/열려있는 항목에 리본에서

   1. 실행 매크로 (VBA)를 원하는 것은

   ; 해결책 = 모듈 이름에 동일한 이름의 매크로를 포함 할 수 없습니다.

2. 글꼴 색상을 예 : 녹색;
3. 니스 : 페이지 하단에 텍스트를 삽입하십시오.

코드 : 당신이 리본에 추가하는 경우

Sub InsertText() 
Dim sText As String 

sText = "Text to insert" 


On Error GoTo ErrHandler 
If TypeName(ActiveWindow) = "Inspector" Then 
    If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then 
     ActiveInspector.WordEditor.Application.Selection.TypeText sText 
    End If 
End If 
Exit Sub 
ErrHandler: 
Beep 
End Sub 

Answer 1

, 당신이이 메일 항목 리본 또는 Outlook 리본에 추가? 혼란스러워서 사진을 주로 사용하여 설명합니다.

I 작동하지 않는 버튼을 누르면 Outlook 표시 줄에있는 버튼을 배치하면 : - - :

이이

이것은 메일 항목 리본에 추가하고 괜찮 았는데입니다 왜냐하면 Outlook 리본의 버튼을 누르면 바로 메일 항목이 활성 창이 아니기 때문입니다. 확인

는 바로 메일 항목의 리본 버튼으로 클릭하고, 메일 항목 창에 버튼을 추가하는 '리본 메뉴 사용자 지정 ...'

을 눌러 '새 탭'버튼을 오른쪽 하단의 'Choose commands from :'을 'Macros'로 변경하고 아래 목록에서 해당 매크로를 클릭하십시오. 마지막으로 '추가>>'를 클릭 한 다음 '확인'을 클릭하십시오.