Conas gach ceann a fhreagairt le ceangaltáin bhunaidh in Outlook?

De ghnáth, nuair a chuireann tú an fheidhm Freagra Uile i bhfeidhm chun an teachtaireacht a fhreagairt do gach faighteoir in Outlook, caillfear na ceangaltáin bhunaidh go huathoibríoch. An féidir ceangaltáin bhunaidh a cheangal nuair a thugtar freagra ar gach ceann in Outlook?

Freagair gach ceann acu le ceangaltáin bhunaidh le cód VBA

Freagair gach ceann acu le ceangaltáin bhunaidh le Kutools for Outlook

Freagair gach ceann acu le ceangaltáin bhunaidh le cód VBA

Níl aon ghné dhíreach ann chun déileáil leis an tasc seo in Outlook, ach, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun é a bhaint amach. Déan na céimeanna thíos le do thoil:

1. Seoladh an Outlook, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Freagair gach ceann acu le hailtirí bunaidh:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. Agus ansin cliceáil uirlisí > tagairtí sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, sa popped amach Tagairtí-Tionscadal1 bosca dialóige, seiceáil Microsoft Scripting Runtime rogha ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:

4. Ansin sábháil agus dún an fhuinneog cód, agus ansin is féidir leat an cnaipe macra a chur isteach sa Barra Uirlisí Rochtana Tapa.

5. Oscail an ríomhphost ar mhaith leat freagra a thabhairt air go léir le ceangaltán ann Teachtaireacht fuinneog, ansin roghnaigh Tuilleadh Orduithe ó na Saincheap Barra Uirlisí Rochtana Tapa titim anuas, féach ar an scáileán:

6. Sa an Roghanna Outlook bosca dialóige, déan na hoibríochtaí seo a leanas:

(1.) Roghnaigh Macraí ó na Roghnaigh orduithe ó liosta anuas;

(2.) Cliceáil an macra-ainm atá curtha isteach agat díreach anois;

(3.) Agus ansin cliceáil Cuir cnaipe chun an macra a chur isteach sa Saincheap Barra Uirlisí Rochtana Tapa.

7. Ansin cliceáil OK chun an bosca dialóige a dhúnadh, anois, tá an cnaipe macra curtha isteach sa Barra Uirlisí Rochtana Tapa, féach ar an scáileán:

8. Anois, cliceáil an macra-chnaipe, agus osclaítear an fhuinneog teachtaireachta freagartha le ceangaltáin bhunaidh, ansin cum an teachtaireacht freagartha, agus cliceáil Seol cnaipe, féach ar an scáileán:

Freagair gach ceann acu le ceangaltáin bhunaidh le Kutools for Outlook

Má tá tú Kutools le haghaidh Outlook, Lena Freagra Gach le Ceangaltán gné, is féidir leat gach ceann a fhreagairt le ceangaltáin ach cliceáil amháin.

Tar éis a shuiteáil Kutools le haghaidh Outlook, déan mar seo le do thoil:

1. Roghnaigh an teachtaireacht gur mhaith leat gach ceann a fhreagairt le ceangaltáin, agus ansin cliceáil Kutools > Freagra le Ceangaltán > Freagra Gach le Ceangaltán, féach ar an scáileán:

2. Agus osclaítear fuinneog na teachtaireachta freagartha le ceangaltáin bhunaidh, ansin cum do theachtaireacht agus seol í, féach an scáileán:

Cliceáil chun Kutools a íoslódáil le haghaidh Outlook agus triail saor in aisce anois!

---

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 Pro: Sá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.

Leigh Nios mo       Free Download      Ceannach