Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս պատճենել բոլոր կցորդները բազմաթիվ նամակներից Outlook- ի նոր էլփոստի վրա:

Ընդհանուր առմամբ, Outlook- ում պատճենելու և տեղադրելու միջոցով կցորդները պատճենել մեկ էլ-նամակից մյուսը: Բայց ինչ վերաբերում է բազմաթիվ նամակներից հավելվածների պատճենմանը նորին: Այս հոդվածը կներկայացնի ձեզ համար լուծումները:

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը
Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար
Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

Պատճենեք բոլոր հավելվածները բազմաթիվ էլ-նամակներից նոր էլ

Այս հոդվածը կներկայացնի VBA ՝ Outlook- ում բազմաթիվ նամակներից բոլոր կցորդները արագ պատճենելու համար նորը: Խնդրում ենք անել հետևյալը.

1, Ընտրեք բազմաթիվ նամակներ, որոնց կցորդները կպատճենեք և սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:
ՆշումՀոլդինգ Ctrl ստեղնը, դուք կարող եք ընտրել բազմաթիվ ոչ հարակից էլ.փոստեր `դրանք մեկ առ մեկ կտտացնելով. անցկացնելը Հերթափոխություն ստեղնը, դուք կարող եք ընտրել հարակից բազմաթիվ նամակներ `կտտացնելով առաջինը և վերջինը:

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի տակ տեղադրեք նոր Մոդուլի պատուհանում:

VBA. Պատճեն բոլոր կցորդները բազմաթիվ նամակներից նորին

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. Մամուլ F5 բանալին կամ Վազում այս VBA- ն գործարկելու կոճակը:

Այժմ դուք կտեսնեք, որ բոլոր հավելվածները պատճենված են ընտրված նամակներից և տեղադրվում են նոր էլ.


Պատճենեք բոլոր կցորդները էլփոստից ՝ պատասխանող էլ. Փոստին

Եթե ​​Outlook- ի համար տեղադրված Kutools ունեք, կարող եք կիրառել այն Պատասխանել կցորդով գործառույթ, որը հեշտությամբ պատճենում է բոլոր կցորդները էլփոստից Outlook-ում պատասխանող էլ. Խնդրում ենք անել հետևյալը.

Outlook- ի համար նախատեսված գործիքներUltimate Outlook գործիքակազմ՝ ավելի քան 100 հարմար գործիքներով: Փորձեք այն ԱՆՎՃԱՐ 60 օր, առանց սահմանափակումների, առանց անհանգստության:   Կարդալ ավելին...   Սկսեք անվճար փորձարկումը հիմա:

Ընտրեք նամակը, որին կպատասխանեք և սեղմեք Կուտոլս > Պատասխանել կցորդով > Պատասխանել հավելվածով: Տեսեք,

Այժմ դուք կտեսնեք, որ բոլոր հավելվածները ինքնաբերաբար պատճենվում են պատասխանող նամակին:


Առնչվող հոդվածներ


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations