Ինչպե՞ս ցուցակի բոլոր կցորդների անունները նշել հաղորդագրության մարմնում, Outlook- ում էլ-նամակ կազմելիս:
Outlook- ում էլփոստ ստեղծելու ժամանակ կա՞ն լավ ուղիներ, որպեսզի մենք կցենք բոլոր կցորդների անունները հաղորդագրության մարմնում: Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես լուծել այս աշխատանքը Outlook- ում:
VBA կոդով էլ-նամակ կազմելու ժամանակ ցուցակի բոլոր կցորդների անունները նշեք հաղորդագրության մարմնում
Ուղարկեք բոլոր կցորդների անունները հաղորդագրության մարմնում `պարզ հատկանիշով էլ-նամակ կազմելիս
VBA կոդով էլ-նամակ կազմելու ժամանակ ցուցակի բոլոր կցորդների անունները նշեք հաղորդագրության մարմնում
Խնդրում ենք անել այս գործողությունն ավարտելու համար հետևյալ քայլերը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:
VBA կոդ. Նշեք կցորդի բոլոր անունները հաղորդագրության մարմնում.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3, Դրանից հետո անցեք կտտացնելով Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ, տես նկարի նկարը.
VBA կոդ. Նշեք կցորդի բոլոր անունները հաղորդագրության մարմնում.
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. Եվ այնուհետեւ կտտացրեք Գործիքներ > Սայլակ է Microsoft Visual Basic հավելվածների համար պատուհանը դուրս եկավ Հղումներ-նախագիծ 1 երկխոսության տուփ, ստուգեք Microsoft Word օբյեկտի գրադարան տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
5: Սեղմեք OK երկխոսության տուփից դուրս գալու համար պետք է ավելացնել մակրո կոճակը Արագ մուտք Գործիքադարակը, Նորում հաղորդագրություն պատուհան, ընտրիր Ավելի շատ հրամաններ - ից Անհատականացրեք Արագ մուտքի Գործիքադարակը բաց թողեք, տես նկարի նկարը.
6, Մեջ Outlook տարբերակները երկխոսության տուփ, կատարեք հետևյալ գործողությունները.
(1.) Ընտրեք Մակրո - ից Ընտրեք հրամաններ բացվող ցուցակ;
(2.) Սեղմեք մակրո անունը, որը դուք տեղադրել եք հենց հիմա;
(3.) Եվ ապա կտտացրեք Ավելացնել կոճակը մակրո մեջ ավելացնելու համար Անհատականացրեք Արագ մուտքի Գործիքադարակը.
7. Այնուհետեւ կտտացրեք OK երկխոսության տուփը փակելու համար այժմ մակրո կոճակը տեղադրվել է մեջ Արագ մուտք Գործիքադարակը, տես նկարի նկարը.
8. Այժմ, երբ ստեղծեք նոր հաղորդագրություն և սեղմեք մակրո կոճակը, հավելվածների անունները կտեղադրվեն հաղորդագրության մարմնի վերևում, ինչպես ցույց է տրված հետևյալ սքրինշոթը.
Ուղարկեք բոլոր կցորդների անունները հաղորդագրության մարմնում `պարզ հատկանիշով էլ-նամակ կազմելիս
Հնարավոր է, որ վերը նշված ծածկագիրը ձեզ համար դժվար է կիրառել, եթե ունեք Outlook- ի համար նախատեսված գործիքներԻր Պատճենել անունները հնարավորություն, դուք կարող եք արագ պատճենել հաղորդագրության կցորդների անունները և տեղադրել դրանք ամենուր, որտեղ ձեզ անհրաժեշտ է:
Տեղադրելուց հետո Outlook- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1. Նախ, խնդրում ենք ստեղծել ձեզ անհրաժեշտ նոր էլ.փոստը, այնուհետև սեղմել Կուտոլս > Պատճենել անունները նորը հաղորդագրություն պատուհան, տես նկարի նկարը.
2. Եվ այնուհետև կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ, որ հավելվածների անունները պատճենված են սեղմատախտակում, տես սքրինշոթը.
3. Այժմ դուք պարզապես պետք է սեղմեք Ctrl + V ստեղները միասին՝ կցորդների անունները ձեզ անհրաժեշտ հաղորդագրության մարմնին տեղադրելու համար, տես սքրինշոթը՝
Ավելի հարաբերական հոդվածներ.
- Պատասխանել բոլորին օրիգինալ հավելվածներով Outlook-ում
- Սովորաբար, երբ կիրառեք «Պատասխանել բոլոր» գործառույթը ՝ Outlook- ի բոլոր հասցեատերերին հաղորդագրությունը պատասխանելու համար, բնօրինակ կցորդները կկորչեն ինքնաբերաբար: Հնարավո՞ր է Outlook- ում բոլորին պատասխանելիս կցել բնօրինակ կցորդներ:
- Ներբեռնեք/Պահեք հավելվածները Outlook-ից որոշակի թղթապանակում
- Ընդհանուր առմամբ, դուք կարող եք պահպանել մեկ էլփոստի բոլոր կցորդները կտտացնելով Կցորդներ> Պահել բոլոր կցորդները Outlook- ում: Բայց, եթե Ձեզ անհրաժեշտ է բոլոր կցորդները պահպանել ստացված բոլոր էլ-նամակներից և էլ. Նամակներ ստանալուց, որևէ իդեալ: Այս հոդվածը կներկայացնի երկու լուծում `Outlook- ից որոշակի թղթապանակում կցորդները ավտոմատ կերպով ներբեռնելու համար:
- Փոխեք կանխադրված կցորդի պահման վայրը Outlook- ում
- Ձանձրացե՞լ եք Outlook- ը գործարկելիս ամեն անգամ նշած կցորդի գտնվելու վայրը գտնելու հարցում: Այս ձեռնարկում մենք ձեզ ցույց կտանք, թե ինչպես փոխել հավելվածի լռելյայն տեղը: Դրանից հետո նշված կցորդի պահպանման թղթապանակը ավտոմատ կերպով կբացվի ամեն անգամ կցորդները պահպանելիս, չնայած Outlook- ը վերագործարկում եք:
- Հեռացրեք բոլոր հավելվածները էլփոստից Outlook-ում
- Սովորաբար, երբ դուք նախադիտում եք նամակ, կարող եք ջնջել հավելվածը աջ սեղմելով և ընտրել «Հեռացնել առդիրը»: Երբեմն էլփոստի հաղորդագրության մեջ կարող են լինել բազմաթիվ հավելվածներ, և դրանք մեկ առ մեկ հեռացնելը հոգնեցուցիչ կլինի: Այստեղ մենք կազմակերպում ենք ձեզ երկու հեշտ հնարքներ՝ հեռացնելու բոլոր հավելվածները մեկ էլ.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: