Conas gach ceann a fhreagairt le ceangaltáin bhunaidh in Outlook?
Ar bhuail "Freagair All" riamh in Outlook agus caillfidh tú na ceangaltáin bhunaidh? Tá sé frustrachas! An bhfuil tú ag smaoineamh conas na ceangaltáin sin a choinneáil agus tú ag freagairt do chách? Sea, is féidir! Déanaimis iniúchadh ar conas na ceangaltáin bhunaidh a chur san áireamh i do fhreagraí, ag déanamh bainistíocht ríomhphoist gan uaim agus éifeachtach. Fanacht tiúnta!
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 > Freagair Gach Rud le Ceangaltán Bunaidh, 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 an Leagan saor in aisce de Kutools le haghaidh Outlook anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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 / 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 / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Í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á ...
