Conas gach ceangaltán a shábháil ó iliomad ríomhphoist chuig fillteán in Outlook?
Is furasta gach ceangaltán a shábháil ó r-phost leis an ngné ionsuite Sábháil Gach Ceangaltán in Outlook. Mar sin féin, más mian leat gach ceangaltán a shábháil ó iliomad ríomhphoist ag an am céanna, níl aon ghné dhíreach ann a chabhróidh leat. Ní mór duit an ghné Sábháil Gach Ceangaltán a chur i bhfeidhm arís agus arís eile i ngach ríomhphost go dtí go sábhálfar gach ceangaltán ó na ríomhphoist sin. Tógann sé sin am. San Airteagal seo, tugtar isteach dhá mhodh duit chun gach ceangaltán a shábháil ó iliomad ríomhphoist chuig fillteán ar leith go héasca in Outlook.
Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le cód VBA
Roinnt cad a tharlaíonn chun gach ceangaltán a shábháil ó iliomad ríomhphoist go fillteán le huirlis iontach
Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le cód VBA
Taispeánann an chuid seo cód VBA i dtreoir céim ar chéim chun cabhrú leat gach ceangaltán a shábháil go tapa ó iliomad ríomhphoist chuig fillteán ar leith ag an am céanna. Déan mar a leanas le do thoil.
1. Ar dtús, ní mór duit fillteán a chruthú chun na ceangaltáin i do ríomhaire a shábháil.
Faigh isteach sa Doiciméid fillteán agus cruthaigh fillteán darb ainm “Ceangaltáin”. Féach an pictiúr:
2. Roghnaigh na ríomhphoist a shábhálfaidh tú na ceangaltáin, agus ansin brúigh Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. cliceáil Ionsáigh > Modúil a oscailt Modúil fuinneog, agus ansin cóipeáil ceann de na cód VBA seo a leanas isteach san fhuinneog.
Cód VBA 1: Ceangail bulc-iatáin ó iliomad ríomhphoist (sábháil ceangaltáin den ainm céanna go díreach)
Leideanna: Sábhálfaidh an cód seo ceangaltáin den ainm céanna trí dhigit 1, 2, 3 a chur leis ... i ndiaidh ainmneacha comhaid.
Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
Cód VBA 2: Ceangail bulc-iatáin ó iliomad ríomhphoist (seiceáil le haghaidh dúbailtí)
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
nótaí:
5. Brúigh an F5 eochair chun an cód a rith.
Ansin déantar gach ceangaltán i ríomhphoist roghnaithe a shábháil chuig an bhfillteán a chruthaigh tú i gcéim 1.
Nótaí: D’fhéadfadh go mbeadh a Microsoft Outlook bosca pras popping suas, cliceáil le do thoil an Ceadaigh cnaipe le dul ar aghaidh.
Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le huirlis iontach
Más newbie tú i VBA, moltar go mór anseo an Sábháil Gach ceangaltán fóntais de Kutools le haghaidh Outook duitse. Leis an bhfóntas seo, is féidir leat gach ceangaltán a shábháil go tapa ó iliomad ríomhphoist ag an am céanna le roinnt cad a tharlaíonn ach in Outlook.
Sula gcuirfidh tú an ghné i bhfeidhm, le do thoil Kutools le haghaidh Outlook a íoslódáil agus a shuiteáil ar dtús.
1. Roghnaigh na ríomhphoist ina bhfuil na ceangaltáin a theastaíonn uait a shábháil.
Leid: Is féidir leat ríomhphoist iomadúla nach bhfuil in aice láimhe a roghnú tríd an Ctrl eochair agus roghnaigh ceann ar cheann iad;
Nó roghnaigh ríomhphoist iolracha in aice láimhe tríd an Shift eochair agus roghnaigh an chéad ríomhphost agus an ceann deireanach.
2. cliceáil Kutools >Uirlisí Ceangail > Sábháil Gach. Féach an pictiúr:
3. Sa Socruithe Sábháil dialóg, cliceáil an cnaipe chun fillteán a roghnú chun na ceangaltáin a shábháil, agus ansin cliceáil ar an OK cnaipe.
3. cliceáil OK faoi dhó sa chéad bhosca eile suas go bosca dialóige, Ansin sábhálfar gach ceangaltán i ríomhphoist roghnaithe i bhfillteán sonraithe ag an am céanna.
Nótaí:
- 1. Más mian leat ceangaltáin a shábháil i bhfillteáin éagsúla bunaithe ar ríomhphoist, seiceáil an Cruthaigh fofhillteáin sa stíl seo a leanas bosca, agus roghnaigh stíl fillteáin ón roghchlár anuas.
- 2. Seachas gach ceangaltán a shábháil, is féidir leat ceangaltáin a shábháil de réir coinníollacha sonracha. Mar shampla, níl uait ach na ceangaltáin comhad pdf a shábháil ina bhfuil an focal "Sonrasc" in ainm an chomhaid, cliceáil le do thoil Roghanna Casta cnaipe chun na coinníollacha a leathnú, agus ansin cumraigh mar an screebshot thíos a thaispeántar.
- 3. Más mian leat ceangaltáin a shábháil go huathoibríoch nuair a thagann r-phost, beidh an Ceangaltáin Auto Sábháil gné is féidir cabhrú.
- 4. Chun na ceangaltáin a dhícheangal go díreach ó ríomhphoist roghnaithe, beidh an Detach Gach ceangaltán gné de Kutools le haghaidh Outlook is féidir leat a dhéanamh ina bhfabhar.
Más mian leat triail saor in aisce (60 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
Earraí gaolmhara
Cuir ceangaltáin isteach i gcorp na teachtaireachta ríomhphoist in Outlook
De ghnáth taispeántar ceangaltáin sa réimse Ceangailte i r-phost cumadóireachta. Soláthraíonn an teagaisc seo modhanna chun cabhrú leat ceangaltáin a chur isteach sa chorp ríomhphoist in Outlook go héasca.
Ceangail ó Outlook go fillteán áirithe a íoslódáil / a shábháil go huathoibríoch
Go ginearálta, is féidir leat gach ceangaltán de r-phost amháin a shábháil trí chliceáil ar Aguisíní> Sábháil Gach Ceangaltán in Outlook. Ach, más gá duit gach ceangaltán a shábháil ó gach ríomhphost a fuarthas agus ríomhphoist a fháil, an bhfuil aon idéalach? Tabharfaidh an t-alt seo dhá réiteach isteach chun ceangaltáin ó Outlook a íoslódáil go huathoibríoch chuig fillteán áirithe.
Priontáil gach ceangaltán i ríomhphost amháin / iolrach in Outlook
Mar is eol duit, ní phriontálfaidh sé ach an t-ábhar ríomhphoist mar cheanntásc, comhlacht nuair a chliceálann tú an Comhad> Priontáil i Microsoft Outlook, ach ní phriontálfaidh sé na ceangaltáin. Taispeánfaimid duit anseo conas gach ceangaltán a phriontáil i r-phost roghnaithe ar a suaimhneas i Microsoft Outlook.
Cuardaigh focail laistigh de cheangaltán (ábhar) in Outlook
Nuair a dhéanaimid eochairfhocal a chlóscríobh sa bhosca Instant Search in Outlook, déanfaidh sé cuardach ar an eochairfhocal in ábhair, comhlachtaí, ceangaltáin ríomhphoist, srl. Ach anois ní gá dom ach an eochairfhocal a chuardach in ábhar iatáin in Outlook amháin, aon smaoineamh? Taispeánann an t-alt seo duit na céimeanna mionsonraithe chun focail laistigh d’ábhar iatáin in Outlook a chuardach go héasca.
Coinnigh ceangaltáin agus tú ag freagairt in Outlook
Nuair a sheolaimid teachtaireacht ríomhphoist ar aghaidh i Microsoft Outlook, fanann ceangaltáin bhunaidh sa teachtaireacht ríomhphoist seo sa teachtaireacht a cuireadh ar aghaidh. Mar sin féin, nuair a thabharfaimid freagra ar theachtaireacht ríomhphoist, ní bheidh na ceangaltáin bhunaidh ceangailte sa teachtaireacht freagartha nua. Anseo táimid chun cúpla cleas a thabhairt isteach maidir le ceangaltáin bhunaidh a choinneáil agus muid ag freagairt i Microsoft Outlook.
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.