Má rinneamar an ríomhphost HTML a thiontú go RTF sula bhfreagraímid, déanfar ainmneacha gach ceangaltán a chóipeáil chuig an teachtaireacht freagartha tar éis cliceáil Baile> Freagra in Outlook.

1. Cliceáil faoi dhó chun an ríomhphost a oscailt a gcaithfidh tú ainmneacha a cheangaltáin a chóipeáil, agus ansin cliceáil Teachtaireacht > gníomhartha > Cuir Teachtaireacht in Eagar i bhfuinneog na teachtaireachta. Féach an pictiúr:

2. Téigh ar aghaidh chun cliceáil Téacs na formáide > Téacs Rich, agus ansin an ríomhphost a shábháil agus a dhúnadh.

3. Anois filleann tú ar an bpríomh amharc. Coinnigh ort ag roghnú an ríomhphoist, agus cliceáil Baile > Freagra.

4. Anois cóipeáiltear ainmneacha gach ceangaltán ón mbun-ríomhphost agus greamaítear iad sa teachtaireacht freagartha mar atá thíos an pictiúr a thaispeántar. Cum an teachtaireacht freagartha le do thoil agus seol í.

Tabharfaidh an modh seo macra VBA isteach chun ainmneacha gach ceangaltán a chóipeáil agus ríomhphost á fhreagairt, agus ansin na hainmneacha a ghreamú isteach sa chorp teachtaireachta de fhreagra ríomhphoist in Outlook.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Sa Project Explorer ar chlé, leathnaigh Tionscadal 1, cliceáil faoi dhó chun an ThisOutlookSession fuinneog (féach an pictiúr thíos), agus ansin greamaigh an cód thíos san fhuinneog.

VBA: Cóipeáil ainm gach ceangaltáin agus tú ag freagairt ríomhphoist in Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Cliceáil uirlisí > tagairtí.

4. Sa fhuinneog Tagairtí tosaigh - Tionscadal 1 do Outlook 2016, féach an Leabharlann Réada Microsoft Word 16.0 tagairt sa bhosca Tagairtí atá ar Fáil, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

nótaí: Roghnaigh an Leabharlann Réada Microsoft Word 15.0 tagairt má tá tú ag obair le Outlook 2013, nó Leabharlann Réada Microsoft Word 14.0 tagairt le Outlook 2010.

5. Sábháil an VBA agus dún an fhuinneog Microsoft Visual Basic for Applications.

6. Anois filleann tú ar phríomh-chomhéadan Outlook. Roghnaigh an ríomhphost a thabharfaidh tú freagra, agus cliceáil Baile > Freagra or Freagra Gach.
nótaí: Mura ndéantar na hainmneacha ceangaltáin a chóipeáil agus a ghreamú isteach sa ríomhphost freagartha, déan do Outlook a atosú agus freagair arís.

Agus anois cóipeáiltear ainm gach ceangaltáin ón ríomhphost roghnaithe agus greamaítear é sa ríomhphost freagartha. Féach an pictiúr:

Má tá tú Kutools le haghaidh Outlook suiteáilte, is féidir leat a Cóipeáil Ainmneacha gné chun gach ainm ceangail a chóipeáil go tapa ó r-phost a fuarthas, agus ansin a theachtaireacht freagartha a ghreamú go héasca in Outlook.

1. Roghnaigh an ríomhphost a thabharfaidh tú freagra, agus cliceáil Kutools > Uirlisí Ceangail > Cóipeáil Ainmneacha.

Ansin tagann dialóg amach agus insíonn sé duit go ndéantar na hainmneacha ceangail a chóipeáil chuig an gearrthaisce. Cliceáil OK a dhúnadh.

2. Téigh ar aghaidh chun cliceáil Baile > Freagra chun an ríomhphost roghnaithe a fhreagairt.

3. I bhfuinneog na teachtaireachta freagartha, cuir an cúrsóir i gcorp na teachtaireachta, agus brúigh Ctrl + V eochracha chun ainmneacha na gceangal a ghreamú go héasca.

Freagair ríomhphoist roghnaithe go héasca agus coimeádtar gach ceangaltán bunaidh in Outlook

Go ginearálta, baintear buncheangail nuair a bhíonn ríomhphost á fhreagairt in Outlook. Ach, le iontach Freagra le Ceangaltán gné de Kutools for Outlook, is féidir leat gach ceangaltán ríomhphoist a choinneáil go héasca agus é á fhreagairt in Outlook.