Skip to main content

Conas freagra a thabhairt go huathoibríoch i bhformáid HTML in Outlook?

I Microsoft Outlook, is féidir linn socruithe a chumrú agus gach teachtaireacht nua a chumadh i bhformáid HTML, ach ní féidir linn teachtaireachtaí a fhreagairt i bhformáid HTMT go huathoibríoch, toisc go bhfreagraíonn sé i bhformáid tosaigh na dteachtaireachtaí a fhaightear i gcónaí. Tabharfaidh an t-alt seo cleasanna duit maidir le freagra i bhformáid HTML go huathoibríoch in Outlook.

Freagra i bhformáid HTML de láimh le formáidiú
Freagra i bhformáid HTML go huathoibríoch le VBA
Freagair i bhformáid HTML go huathoibríoch i gcónaí le Kutools le haghaidh Outlook


Freagra i bhformáid HTML de láimh le formáidiú

Is furasta formáidí Téacs Plain nó téacs Saibhir a thiontú go formáid HTML agus tú ag freagairt teachtaireachta ríomhphoist in Outlook.

1: Roghnaigh an teachtaireacht ríomhphoist a thabharfaidh tú freagra níos déanaí.

2: Cliceáil ar an Freagra cnaipe ar an Baile cluaisín (nó ar an mBarra Uirlisí in Outlook 2007) chun an teachtaireacht ríomhphoist roghnaithe a fhreagairt.

3: Cliceáil ar an HTML ar an Téacs na formáide cluaisín (nó Roghanna cluaisín in Outlook 2007).

Ansin athraítear an teachtaireacht freagartha go formáid HTML láithreach.

4: Cum an teachtaireacht freagartha seo, agus cliceáil ar an Seol cnaipe.


Freagra i bhformáid HTML go huathoibríoch le VBA

Cuideoidh an modh seo a leanas leat gach teachtaireacht ríomhphoist a fhreagairt i bhformáid HTML go huathoibríoch i Microsoft Outlook.

1: Roghnaigh an teachtaireacht ríomhphoist a thabharfaidh tú freagra i bhformáid HTML.

2: Brúigh an Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

3: Cliceáil ar an Ionsáigh > Modúil.

4: Greamaigh an cód seo a leanas i bhfuinneog an mhodúil nua.

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: Mura dteastaíonn uait ach an teachtaireacht roghnaithe seo a fhreagairt i bhformáid html, brúigh an F5 eochair chun an cód a rith. Ansin tagann fuinneog na teachtaireachta freagartha suas, déan í a chumadh agus brúigh an Seol cnaipe chun an ríomhphost a sheoladh.

Leid::
Más mian leat ríomhphoist a fhreagairt i gcónaí nó go minic i bhformáid html sa todhchaí in Outlook, téigh ar aghaidh le cumrú mar seo a leanas.
1) Cliceáil ar an Saincheap Barra Uirlisí Rochtana Tapa cnaipe i ribín Outlook agus ansin cliceáil Tuilleadh Orduithe ón titim.

2) Sa Roghanna Outlook bosca dialóige, ní mór duit:
2.1) Roghnaigh Macraí sa Roghnaigh orduithe ó liosta anuas;
2.2) Roghnaigh Tionscadal1.AlwaysReplyInHTML sa bhosca ordaithe;
2.3) Cliceáil ar an Cuir cnaipe (is féidir leat a fheiceáil go gcuirtear an macra roghnaithe leis an mbosca ceart);
2.4) Cliceáil ar an OK cnaipe. Féach an pictiúr:

3) Anois cuirtear an macra ar an mBarra Uirlisí Tapa Rochtana agus taispeántar é mar  deilbhín. Gach uair nuair is gá duit ríomhphost a fhreagairt i bhformáid html, roghnaigh an ríomhphost le do thoil agus cliceáil an cnaipe seo chun é a ghníomhachtú.


Freagair i bhformáid HTML go huathoibríoch i gcónaí le Kutools le haghaidh Outlook

Kutools le haghaidh Outlook : le níos mó ná 100 breiseán áisiúil Outlook, saor chun triail a dhéanamh gan aon teorannú i 60 lá.

Molaim fóntais áisiúil duit anseo - Formáidiú Freagra Seasta of Kutools le haghaidh Outlook. Leis an bhfóntas seo, is féidir leat formáidiú freagartha mar HTML, gnáth-théacs agus RTF a shonrú go héasca, agus an fhormáidiú sonraithe a shocrú mar an fhormáid freagartha do gach ríomhphost freagartha amach anseo.

1. cliceáil Kutools > Formáidiú Seasta > Formáidiú Freagra Seasta > Socraigh Formáidiú Freagra. Féach an pictiúr:

2. Sa Socraigh Formáidiú Freagra bosca dialóige, roghnaigh an HTML rogha agus ansin cliceáil ar an OK cnaipe.

3. Anois cliceáil le do thoil Formáidiú Seasta > Formáidiú Freagra SeastaCumasaigh Formáidiú Freagraí Seasta faoin gcluaisín Kutools chun an áirgiúlacht a chumasú.

As seo amach, freagraíonn Outlook ríomhphost i bhformáid HTML i gcónaí.

Más mian leat triail saor in aisce a bhaint as an bhfóntas seo, téigh chuig íoslódáil saor in aisce na bogearraí ar dtús, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

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