Copïwch yr holl atodiadau o e-byst lluosog i e-bost newydd

Copïwch yr holl atodiadau o e-bost i'w e-bost ateb

Bydd yr erthygl hon yn cyflwyno VBA i gopïo pob atodiad o sawl e-bost yn gyflym i un newydd yn Outlook. Gwnewch fel a ganlyn:

1. Dewiswch e-byst lluosog y byddwch chi'n eu copïo, ac yn pwyso Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.
Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o negeseuon e-bost nad ydynt yn gyfagos trwy eu clicio fesul un; daliad Symud allwedd, gallwch ddewis sawl e-bost cyfagos gyda chlicio'r un cyntaf a'r un olaf.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl newydd.

VBA: Copïwch yr holl atodiadau o sawl e-bost i un newydd

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. Gwasgwch F5 allwedd neu'r Run botwm i redeg y VBA hwn.

Nawr fe welwch fod yr holl atodiadau yn cael eu copïo o'r e-byst a ddewiswyd, a'u pastio i e-bost newydd.

Os oes gennych chi Kutools ar gyfer Outlook wedi'i osod, gallwch chi gymhwyso ei Ymateb gydag Atodiad nodwedd i gopïo pob atodiad yn hawdd o e-bost i'w e-bost ateb yn Outlook. Gwnewch fel a ganlyn:

Dewiswch yr e-bost y byddwch chi'n ei ateb, a chlicio Kutools > Ymateb gydag Atodiad > Ymateb gydag Atodiad. Gweler y screenshot:

Nawr fe welwch fod yr holl atodiadau yn cael eu copïo i'r e-bost ateb yn awtomatig.

Sut i gopïo atodiad i e-bost arall yn Outlook?