Cóipeáil gach ceangaltán ó iliomad ríomhphoist chuig r-phost nua

Cóipeáil gach ceangaltán ó r-phost chuig a r-phost freagartha

Tabharfaidh an t-alt seo VBA isteach chun gach ceangaltán ó iliomad ríomhphoist a chóipeáil go tapa chuig ceann nua in Outlook. Déan mar a leanas le do thoil:

1. Roghnaigh ríomhphoist iomadúla a ndéanfaidh tú a gceangaltáin a chóipeáil, agus brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.
nótaí: Sealbhú Ctrl eochair, is féidir leat iliomad ríomhphoist neamh-in aice láimhe a roghnú agus iad a chliceáil ceann ar cheann; gabháltas Shift eochair, is féidir leat ríomhphoist iolracha in aice láimhe a roghnú ach an chéad cheann agus an ceann deireanach a chliceáil.

2. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog nua an Mhodúil.

VBA: Cóipeáil gach ceangaltán ó iliomad ríomhphoist chuig ceann nua

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. Brúigh F5 eochair nó an Rith cnaipe chun an VBA seo a rith.

Anois feicfidh tú go ndéantar gach ceangaltán a chóipeáil ó na ríomhphoist roghnaithe, agus a ghreamú i ríomhphost nua.

Má tá Kutools for Outlook suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm Freagra le Ceangaltán gné chun gach ceangaltán a chóipeáil go héasca ó r-phost chuig a r-phost freagartha in Outlook. Déan mar a leanas le do thoil:

Roghnaigh an ríomhphost a thabharfaidh tú freagra, agus cliceáil Kutools > Freagra le Ceangaltán > Freagra le Ceangaltán. Féach an pictiúr:

Anois feicfidh tú go ndéantar gach ceangaltán a chóipeáil chuig an ríomhphost freagartha go huathoibríoch.

Conas ceangaltán le ríomhphost eile a chóipeáil in Outlook?