메인 컨텐츠로 가기

Outlook에서 자동으로 HTML 형식으로 회신하는 방법은 무엇입니까?

Microsoft Outlook에서는 설정을 구성하고 모든 새 메시지를 HTML 형식으로 작성할 수 있지만 항상받은 메시지의 초기 형식으로 응답하기 때문에 HTMT 형식으로 메시지를 자동으로 응답 할 수 없습니다. 이 기사에서는 Outlook에서 자동으로 HTML 형식으로 회신하는 방법을 소개합니다.

서식을 사용하여 HTML 형식으로 수동으로 회신
VBA를 사용하여 HTML 형식으로 자동 응답
Outlook 용 Kutools를 사용하여 항상 HTML 형식으로 자동 응답


서식을 사용하여 HTML 형식으로 수동으로 회신

Outlook에서 전자 메일 메시지에 회신 할 때 일반 텍스트 또는 서식있는 텍스트 형식을 HTML 형식으로 쉽게 변환 할 수 있습니다.

1 : 나중에 회신 할 이메일 메시지를 선택합니다.

2 : 클릭 댓글 온 버튼 탭 (또는 Outlook 2007의 도구 모음)을 클릭하여 선택한 전자 메일 메시지에 회신합니다.

3 : 클릭 HTML 를 시청하여 이에 대해 더 많은 정보를 얻을 수 있습니다. 텍스트 서식 탭 (또는 옵션 Outlook 2007의 탭).

그러면 회신 메시지가 즉시 HTML 형식으로 변환됩니다.

4 :이 회신 메시지를 작성하고 전송 버튼을 클릭합니다.


VBA를 사용하여 HTML 형식으로 자동 응답

다음 방법은 Microsoft Outlook에서 자동으로 HTML 형식의 모든 이메일 메시지에 회신하는 데 도움이됩니다.

1 : HTML 형식으로 회신 할 이메일 메시지를 선택합니다.

2 : 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

3 : 클릭 끼워 넣다 > 모듈.

4 : 새 모듈 창에 다음 코드를 붙여 넣습니다.

Sub AlwaysReplyInHTML()
Dim oSelection As Outlook.Selection
Dim oItem As Object
'Get the selected item
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oSelection = Application.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
MsgBox "Please select an item first!", vbCritical, "Reply in HTML"
Exit Sub
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
Case Else
MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", _
vbCritical, "Reply in HTML"
Exit Sub
End Select
    Dim oMsg As Outlook.MailItem
Dim oMsgReply As Outlook.MailItem
Dim bPlainText As Boolean
'Change the message format and reply
If oItem.Class = olMail Then
Set oMsg = oItem
If oMsg.BodyFormat = olFormatPlain Then
bPlainText = True
End If
oMsg.BodyFormat = olFormatHTML
Set oMsgReply = oMsg.Reply
If bIsPlainText = True Then
oMsg.BodyFormat = olFormatPlain
End If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox "No message item selected. Please select a message first.", _
vbCritical, "Reply in HTML"
Exit Sub
End If
'Cleanup
Set oMsgReply = Nothing
Set oMsg = Nothing
Set oItem = Nothing
Set oSelection = Nothing
End Sub

5 : 선택한 메시지를 html 형식으로 만 회신하려면 F5 코드를 실행하는 키입니다. 그러면 회신 메시지 창이 뜨면 작성 후 전송 버튼을 눌러 이메일을 보냅니다.

팁 ::
Outlook에서 나중에 html 형식으로 이메일을 항상 또는 자주 회신하려면 다음과 같이 구성하십시오.
1) 클릭 신속 접근 도구 막대 사용자 화 Outlook 리본의 단추를 클릭 한 다음 더 많은 명령 드롭 다운에서

2)에서 전망 옵션 대화 상자에서 다음을 수행해야합니다.
2.1) 선택 매크로 FBI 증오 범죄 보고서 에서 명령 선택 드롭 다운 목록;
2.2) 선택 프로젝트1.AlwaysReplyInHTML 명령 상자에서;
2.3) 클릭 추가 버튼 (선택한 매크로가 오른쪽 상자에 추가 된 것을 볼 수 있습니다);
2.4) 클릭 OK 단추. 스크린 샷보기 :

3) 이제 매크로가 빠른 실행 도구 모음에 추가되고  상. html 형식으로 이메일에 답장해야 할 때마다 이메일을 선택하고이 버튼을 클릭하여 활성화하십시오.


Outlook 용 Kutools를 사용하여 항상 HTML 형식으로 자동 응답

Outlook 용 Kutools : 100 개 이상의 편리한 Outlook 추가 기능으로 60 일 동안 제한없이 무료 체험.

여기에서는 편리한 유틸리티를 추천합니다. 고정 회신 형식 of Outlook 용 Kutools. 이 유틸리티를 사용하면 HTML, 일반 텍스트 및 RTF와 같은 회신 형식을 쉽게 지정하고 향후 모든 회신 전자 메일에 대한 회신 형식으로 지정된 형식을 수정할 수 있습니다.

1. 클릭 쿠툴 > 고정 서식 > 고정 회신 형식 > 회신 서식 설정. 스크린 샷보기 :

2. 에서 회신 서식 설정 대화 상자에서 HTML 옵션을 클릭 한 다음 OK 버튼을 클릭합니다.

3. 이제 클릭하십시오 고정 서식 > 고정 회신 형식고정 회신 서식 활성화 Kutools 탭 아래에서 유틸리티를 활성화하십시오.

이제부터 Outlook은 항상 HTML 형식으로 이메일에 회신합니다.

이 유틸리티의 무료 평가판을 받으려면 다음으로 이동하십시오. 소프트웨어 무료 다운로드 먼저 위의 단계에 따라 작업을 적용하십시오.


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I've been using this macro for a couple years now. Unfortunately it has started to change the character set of the replied email to some unknown character set eg"整瑸栯浴㭬挠慨獲瑥甽晴㠭㸢਍䴼呅⁁䅎䕍∽敇" that is not translatable. Has anyone else come across this issue and if so were you able to find a fix?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Sub AlwaysReplyInHTML()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem
'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select
If xItem.Class = olMail Then
  Set xMail = xItem
  Set xMailReply = xMail.Reply
  xMailReply.Display
  xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If
Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
This comment was minimized by the moderator on the site
Merci beaucoup.
Je l’ai modifié un peu, et ça fonctionne de nouveau chez moi, sans la transformation en Chinois…

Sub AlwaysReplyInHTML_Kutools()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMail As Outlook.MailItem
Dim xMailReply As Outlook.MailItem

'On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
  Case "Explorer"
    Set xSelection = Application.ActiveExplorer.Selection
    If xSelection.Count > 0 Then
      Set xItem = xSelection.Item(1)
    Else
      MsgBox "Please select an item first!", vbCritical, "Kutools for Outlook"
      Exit Sub
    End If
  Case "Inspector"
    Set xItem = Application.ActiveInspector.CurrentItem
  Case Else
    MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", vbCritical, "Kutools for Outlook"
    Exit Sub
End Select

If xItem.Class = olMail Then
  Set xMail = xItem
  'Changer le format ici, afin que la réponse inclu notre signature en html…!
        xMail.BodyFormat = olFormatHTML
  
  Set xMailReply = xMail.Reply
  xMailReply.Display
  'xMailReply.BodyFormat = olFormatHTML
Else
  MsgBox "No message item selected. Please select a message first.", vbCritical, "Kutools for Outlook"
  Exit Sub
End If

Set xMailReply = Nothing
Set xMail = Nothing
Set xItem = Nothing
Set xSelection = Nothing
End Sub
This comment was minimized by the moderator on the site
Thanks I'll give that a go. Have a nice day.
This comment was minimized by the moderator on the site
Hi,

as for answering everyone - it's very simple - just change the 31st line of code:

Set oMsgReply = oMsg.Reply --> change "oMsg.ReplyAll" or change "oMsg.Forward"

And to apply for "all emails" just do this:
Instead of creating buttons in quick access, create new buttons directly in the ribbon (Customize Ribbon), create a "Custom" ("New Group") there and create buttons from macros (first macro to "reply to all", second macro to "forward").

And the original "Reply" group can be removed from the ribbon ;)

Anyway, extendoffice.com is a great site from which I sometimes draw data - many thanks... ;)
This comment was minimized by the moderator on the site
This is great and solves a long term frustration with outlook! As someone not experienced with VBA coding could I get a little more advice on how to set up the replyall and forward functionality. I have the 'replyinHTML' working (with a custom ribbon button for it) but am not sure how the get the other options working. Should I be creating a new project or new module within the existing project with the modified code at line 31?
Any help appreciated - thanks!
This comment was minimized by the moderator on the site
Hi, you should save them respectively as three different modules. :)
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Hello,

This works very well, thanks. But... it does not reply to all. Only the sender of the email received is added to the reply. What should I change in the code so it does "Reply to all" instead of "Reply"?


Thanks!
This comment was minimized by the moderator on the site
Running the macro works for one instance, but how to replicate it to occur on every instance?
This comment was minimized by the moderator on the site
I followed all of the steps listed about but when I press F5 to run the Module I get an error message saying that the Macros for this project have been disabled. I even tried going into Outlooks settings and telling Outlook to enable all Macros. Any help would be greatly appreciated!
This comment was minimized by the moderator on the site
Thanks a lot for this macro!
This comment was minimized by the moderator on the site
this only changes the email i have selected. how do you change it for all emails?
This comment was minimized by the moderator on the site
Same thing for me. Did you get any help?
This comment was minimized by the moderator on the site
Please, do you know the appropriate 'Alt F11' and 'F5' keys when using Outlook 2016 on a Mac?
This sure is an annoying omission by Microsoft. Many thanks. Hope you can help.
This comment was minimized by the moderator on the site
Thanks, it worked. You are da man!
This comment was minimized by the moderator on the site
Thank you for this, but i am having issues. I copy/pasted and the number were put above the text when i pasted it and I got the error message - "compile error: invalid outside procedure" Then i tried to just erase the numbers and leave the test and got : Run time Error - could not send message. - I then clicked Debug and got the same error as others: Set oMsgReply = oMsg.Reply Thoughts?
This comment was minimized by the moderator on the site
Dont open the email, only highlight it in outlook. Alt +F11 insert the module F5 New email should open as HTML to reply
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations