Եթե ​​նախքան պատասխանելը մենք HTML էլ. Փոստը վերածել ենք RTF- ի, բոլոր կցորդների անունները կպատճենվեն պատասխանող հաղորդագրությանը ՝ Սկիզբ> Պատասխանել Outlook- ում կտտացնելուց հետո:

1, Կրկնակի կտտացրեք ՝ բացելու այն էլփոստը, որի կցորդների անունները պետք է պատճենեք, ապա կտտացրեք հաղորդագրություն > Գործողություններ > Խմբագրել հաղորդագրությունը հաղորդագրության պատուհանում: Տեսեք,

2, Առաջ անցեք կտտացնելու համար Ձևաչափել տեքստը > Rich Text- ը, ապա պահպանեք և փակեք էլ. փոստը:

3, Այժմ դուք վերադառնում եք հիմնական տեսակետին: Շարունակեք ընտրել էլ-նամակը և կտտացնել Գլխավոր > պատասխանել.

4, Այժմ բոլոր կցորդների անունները պատճենվում են բնօրինակ էլ-նամակից և տեղադրվում են պատասխան հաղորդագրության մեջ, ինչպես ցույց է տրված նկարում: Խնդրում ենք կազմել պատասխան պատասխանը և ուղարկել այն:

Այս մեթոդը կներկայացնի VBA մակրո ՝ էլփոստը պատասխանելիս բոլոր կցորդների անունները պատճենելու համար, իսկ հետո անունները կպցրեք Outlook- ում պատասխանող էլփոստի հաղորդագրության մարմնում:

1. Մամուլ ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2, Ձախ Project Explorer- ում ընդարձակեք Projectրագիր 1-ը, կրկնակի կտտացրեք `այն բացելու համար ԱյսOutlookSession- ը պատուհան (տե՛ս ստորև նշված էկրանի նկարը), ապա կոդի տակ տեղադրեք պատուհանի մեջ:

VBA. Պատճեն բոլոր կցորդների անունը 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: Սեղմեք Գործիքներ > Սայլակ.

4, Outlook 1-ի համար նախատեսված Հղումներ - 2016րագիր XNUMX-ի պատուհանում ստուգեք Microsoft Word 16.0 օբյեկտի գրադարան հղումը Առկա հղումներ վանդակում և կտտացրեք այն OK կոճակ Տեսեք,

ՆշումԽնդրում ենք ընտրել Microsoft Word 15.0 օբյեկտի գրադարան հղում, եթե աշխատում եք Outlook 2013-ի հետ, կամ Microsoft Word 14.0 օբյեկտի գրադարան տեղեկանք Outlook 2010-ի հետ:

5, Պահեք VBA- ն և փակեք Microsoft Visual Basic հավելվածների համար պատուհանը:

6, Այժմ դուք վերադառնում եք Outlook- ի հիմնական ինտերֆեյս: Ընտրեք էլփոստը, որին կպատասխանեք և կտտացրեք Գլխավոր > պատասխանել or Պատասխանել բոլորը.
Նշում: Եթե ​​հավելվածի անունները չեն պատճենվել և տեղադրված չեն պատասխան նամակում, խնդրում ենք վերագործարկել ձեր Outlook- ը և կրկին պատասխանել:

Եվ այժմ բոլոր կցորդների անունը պատճենվում է ընտրված էլ-նամակից և տեղադրվում է պատասխանող էլ. Տեսեք,

Եթե ​​դուք ունեք Outlook- ի համար նախատեսված գործիքներ տեղադրված, դուք կարող եք կիրառել այն Պատճենել անունները հատկություն ՝ ստացված էլփոստից արագ պատճենելու բոլոր կցորդների անունները, ապա հեշտությամբ տեղադրելու դրա պատասխան հաղորդագրության մեջ Outlook- ում:

1, Ընտրեք էլփոստը, որին կպատասխանեք և կտտացրեք Կուտոլս > Կցման գործիքներ > Պատճենել անունները.

Այնուհետև դուրս է գալիս երկխոսություն և ասում, որ կցորդի անունները պատճենվում են սեղմատախտակին: Սեղմել OK փակել այն:

2, Առաջ անցեք կտտացնելու համար Գլխավոր > պատասխանել պատասխանել ընտրված էլ.

3, Պատասխանող հաղորդագրության պատուհանում կուրսորը դրեք հաղորդագրության մարմնում և սեղմեք Ctrl + V կցորդների անունները հեշտությամբ տեղադրելու ստեղներ:

Հեշտությամբ պատասխանեք ընտրված նամակներին Outlook- ում պահված բոլոր բնօրինակ կցորդներով

Ընդհանրապես, բնօրինակ կցորդները հանվում են Outlook- ում էլ-նամակ պատասխանելիս: Բայց ֆանտաստիկով Պատասխանել կցորդով Outlook- ի համար Kutools- ի առանձնահատկությունը, Outlook- ում այն ​​պատասխանելիս կարող եք հեշտությամբ պահել բոլոր էլ. փոստի կցորդները: