Ինչպե՞ս պատճենել բոլոր կցորդները բազմաթիվ նամակներից Outlook- ի նոր էլփոստի վրա:
Ընդհանուր առմամբ, Outlook- ում պատճենելու և տեղադրելու միջոցով կցորդները պատճենել մեկ էլ-նամակից մյուսը: Բայց ինչ վերաբերում է բազմաթիվ նամակներից հավելվածների պատճենմանը նորին: Այս հոդվածը կներկայացնի ձեզ համար լուծումները:
- Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
- Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
- Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
- Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...
Պատճենեք բոլոր հավելվածները բազմաթիվ էլ-նամակներից նոր էլ
Այս հոդվածը կներկայացնի 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 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: