Ինչպե՞ս տպել կցորդ (ներ) ը միայն մեկ էլփոստից կամ ընտրված էլ-նամակներից Outlook- ում:

Outlook- ում դուք կարող եք տպել էլփոստերը, բայց կցորդները տպե՞լ եք միայն մեկ էլ.փոստից կամ ընտրած էլ-նամակներ Outlook- ում: Այս հոդվածում ես ներկայացնում եմ այս աշխատանքը լուծելու հնարքները:

Արագ տպմամբ միայն մեկ էլփոստից տպեք կցորդ (ներ) ը

VBA- ով ընտրված էլ-նամակներից տպեք միայն կցորդ (ներ) ը

Արագ տպմամբ միայն մեկ էլփոստից տպեք կցորդ (ներ) ը

Կցորդները միայն առանց էլփոստի մարմնի տպելու համար կարող եք օգտագործել Արագ տպման գործառույթը:

1. Հաղորդագրության պատուհանում աջ սեղմեք այն կցորդի վրա, որը ցանկանում եք տպել, ընտրեք Արագ տպագիր համատեքստի ընտրացանկից:

2. Այնուհետեւ կտտացրեք Փրկել > Փրկել կցորդի ֆայլը մի վայրում պահպանելու համար:

3. Այժմ գնացեք այն վայրը, որը տեղադրել եք կցորդի ֆայլը և բացեք ֆայլը ՝ տպելու սովորականի նման:

VBA- ով ընտրված էլ-նամակներից տպեք միայն կցորդ (ներ) ը

Եթե ​​ցանկանում եք տպել կցորդները ընտրված էլ-նամակներից, կարող եք օգտագործել VBA կոդ:

1. Ընտրեք այն նամակները, որոնք ցանկանում եք տպել կցորդները, սեղմել Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Կրկնակի սեղմում ԱյսOutlookSession- ը - ից Project1 պատուհանը, պատճենեք և տեղադրեք կոդը ներքևում սցենարում:

VBA. Տպեք կցորդները ընտրված էլ-նամակներից

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. Այնուհետեւ կտտացրեք Գործիքներ > Սայլակ, եւ Սայլակ երկխոսություն, ստուգում Microsoft Scripting Runtime վանդակը.
  

4: սեղմեք OK, ապա սեղմեք F5 ստեղն ընտրված էլփոստերում բոլոր կցորդները զանգվածաբար տպելու համար:

ՆշումԵթե ​​կցորդը նկար է, այն դուրս կգա ա Տպել նկարներ առաջին երկխոսությունը, կտտացրեք տպել գնալու համար Պահպանել Տպել Արդյունք երկխոսություն:

---

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

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

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

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

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

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

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

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

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

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

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել