Ինչպե՞ս ավտոմատ կերպով տպել հավելվածները, երբ նամակները հասնում են Outlook-ում:
Այս ձեռնարկը ցույց է տալիս VBA սկրիպտը և Outlook կանոնը համատեղելու մեթոդ, որը կօգնի ձեզ ավտոմատ կերպով տպել որոշ էլ. նամակների կցորդները, երբ դրանք հասնում են Outlook-ին:
Ավտոմատ տպել հավելվածները, երբ որոշակի նամակներ են գալիս
Ենթադրենք, դուք ցանկանում եք ինքնաբերաբար տպել մուտքային նամակների կցորդները որոշակի ուղարկողի կողմից: Դա անելու համար կարող եք անել հետևյալը.
Քայլ 1. Ստեղծեք սցենար Outlook-ում
Նախ, դուք պետք է ստեղծեք VBA սցենար Outlook-ում:
1. Գործարկեք ձեր Outlook- ը, սեղմեք այն ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Project1 > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը բացելու համար ThisOutlookSession (ծածկագիր) պատուհանում, այնուհետև պատճենեք հետևյալ կոդը այս կոդի պատուհանում:
VBA կոդ 1. ավտոմատ կերպով տպել հավելվածները (բոլոր տեսակի կցորդները), երբ նամակները հասնում են
Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
Dim xFS As FileSystemObject
Dim xTempFolder As String
Dim xAtt As Attachment
Dim xShell As Object
Dim xFolder As Object, xFolderItem As Object
Dim xFileName As String
On Error GoTo xError
If Item.Attachments.Count = 0 Then Exit Sub
Set xFS = New FileSystemObject
xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
If Not xFS.FolderExists(xTempFolder) Then
MkDir (xTempFolder)
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.NameSpace(0)
For Each xAtt In Item.Attachments
If IsEmbeddedAttachment(xAtt) = False Then
xFileName = xTempFolder & "\" & xAtt.FileName
xAtt.SaveAsFile (xFileName)
Set xFolderItem = xFolder.ParseName(xFileName)
xFolderItem.InvokeVerbEx ("print")
End If
Next xAtt
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
Err.Clear
End If
Exit Sub
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
Նշում: Այս ծածկագիրը աջակցում է էլեկտրոնային փոստով ստացված բոլոր տեսակի հավելվածների տպագրմանը: Եթե ցանկանում եք տպել միայն նշված տեսակի հավելվածը, օրինակ՝ pdf ֆայլերը, խնդրում ենք կիրառել հետևյալ VBA կոդը:
VBA կոդ 2. ավտոմատ կերպով տպել նշված տեսակի կցորդները, երբ նամակները հասնում են
Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
Dim xFS As FileSystemObject
Dim xTempFolder As String
Dim xAtt As Attachment
Dim xShell As Object
Dim xFolder As Object, xFolderItem As Object
Dim xFileType As String, xFileName As String
On Error GoTo xError
If Item.Attachments.Count = 0 Then Exit Sub
Set xFS = New FileSystemObject
xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
If Not xFS.FolderExists(xTempFolder) Then
MkDir (xTempFolder)
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.NameSpace(0)
For Each xAtt In Item.Attachments
If IsEmbeddedAttachment(xAtt) = False Then
xFileName = xAtt.FileName
xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
xFileName = xTempFolder & "\" & xFileName
Select Case xFileType
Case "pdf" 'change "pdf" to the file extension you want to print
xAtt.SaveAsFile (xFileName)
Set xFolderItem = xFolder.ParseName(xFileName)
xFolderItem.InvokeVerbEx ("print")
End Select
End If
Next xAtt
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
Err.Clear
End If
Exit Sub
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
Notes:
3. Շարունակեք և սեղմեք Գործիքներ > Հղումներով. Պատուհանման մեջ Հղումներ – Նախագիծ 1 երկխոսության տուփ, ստուգեք Microsoft Scripting Runtime տուփը, ապա կտտացրեք OK կոճակը:
4. Պահեք կոդը և սեղմեք կոճակը ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Նշում: Խնդրում ենք համոզվել, որ Միացնել բոլոր մակրոները տարբերակը միացված է ձեր Outlook-ում: Դուք կարող եք ստուգել այս տարբերակը՝ հետևելով ստորև ներկայացված քայլերին:
Քայլ 2. Ստեղծեք կանոն՝ սցենարն օգտագործելու համար
Outlook-ում VBA սկրիպտը ավելացնելուց հետո դուք պետք է ստեղծեք կանոն՝ որոշակի պայմանների հիման վրա սկրիպտը օգտագործելու համար:
1. Գնացեք «Տուն» ներդիր, սեղմեք Կանոններ > Կառավարեք կանոններն ու ահազանգերը.
2. Մեջ Կանոններ և ահազանգեր երկխոսության տուփ, կտտացրեք Նոր կանոն կանոն ստեղծելու կոճակը:
Հուշում. Եթե դուք ավելացրել եք բազմաթիվ էլփոստի հաշիվներ ձեր Outlook-ում, խնդրում ենք նշել հաշիվը Կիրառեք փոփոխություններ այս թղթապանակում բացվող ցուցակը, որտեղ ցանկանում եք կիրառել կանոնը: Հակառակ դեպքում այն կկիրառվի ներկայումս ընտրված էլփոստի հաշվի մուտքի արկղում:
3. Առաջինում Կանոնների մոգ երկխոսության տուփ, ընտրեք Կիրառեք այն կանոնները, որոնք ես ստանում եմ է Քայլ 1 տուփը, ապա կտտացրեք Next.
4. Երկրորդում Կանոնների մոգ երկխոսության տուփ, անհրաժեշտ է.
5. Երրորդում Կանոնների մոգ երկխոսության տուփ, դուք պետք է կազմաձևեք հետևյալը.
Հուշում. Եթե "գործարկել սցենար” տարբերակը բացակայում է ձեր մեջ Կանոնների մոգ, կարող եք ցուցադրել այն՝ հետևելով այս հոդվածում նշված մեթոդին. վերականգնել բացակայող Run A Script pption-ը Outlook կանոնում.
6. Հետո մեկ այլ Կանոնների մոգ հայտնվում է բացառություններ խնդրելով: Անհրաժեշտության դեպքում կարող եք ընտրել բացառությունները, հակառակ դեպքում սեղմեք կոճակը հաջորդ կոճակ առանց որևէ ընտրության։
7. Վերջինում Կանոնների մոգ, դուք պետք է նշեք կանոնի անունը, այնուհետև սեղմեք կոճակը Ավարտել կոճակը:
8. Ապա այն վերադառնում է դեպի Կանոններ և ահազանգեր երկխոսության վանդակում, դուք կարող եք տեսնել ձեր ստեղծած կանոնը, որը նշված է ներսում, սեղմեք կոճակը OK կոճակը ՝ ամբողջ պարամետրերն ավարտելու համար:
Այսուհետ, երբ նշված անձից նամակ ստացվի, կցված ֆայլերը ավտոմատ կերպով կտպվեն։
Առնչվող հոդվածներ
Outlook-ում միայն մեկ էլփոստից կամ ընտրված նամակներից տպել հավելված(ներ):
Outlook-ում դուք կարող եք տպել նամակները, բայց արդյո՞ք տպել եք կցորդները միայն մեկ էլփոստից կամ ընտրված էլփոստից Outlook-ում: Այս հոդվածը ներկայացնում է այս աշխատանքը լուծելու հնարքները։
Outlook-ում էլփոստի միայն տպագիր հաղորդագրության վերնագիր
Outlook-ում էլփոստ տպելիս այն կտպագրի և՛ հաղորդագրության վերնագիրը, և՛ հաղորդագրության տեքստը էլ. Այնուամենայնիվ, որոշ հատուկ դեպքերում ձեզ կարող է պարզապես անհրաժեշտ լինել տպել հաղորդագրության վերնագիրը՝ թեմայի, ուղարկողի, ստացողների և այլնի հետ միասին: Այս հոդվածը կներկայացնի երկու լուծում դա անելու համար:
Տպել օրացույց Outlook-ում նշված/անհատականացված ամսաթվերի միջակայքում
Սովորաբար, Outlook-ում ամսական տեսքով օրացույց տպելիս այն ավտոմատ կերպով կընտրի տվյալ պահին ընտրված ամսաթիվը պարունակող ամիսը: Այնուամենայնիվ, ձեզ կարող է անհրաժեշտ լինել տպել օրացույցը հատուկ ամսաթվերի միջակայքում, օրինակ՝ 3 ամիս, կես տարի և այլն: Այս հոդվածը կներկայացնի լուծումը ձեզ համար:
Տպել կոնտակտը նկարի հետ Outlook-ում
Սովորաբար, կոնտակտային պատկերը չի տպվում Outlook- ում կոնտակտը տպելիս: Բայց երբեմն ավելի տպավորիչ կլինի տպել կոնտակտ իր նկարով: Այս հոդվածը կներկայացնի որոշ լուծումներ `այն իրականացնելու համար:
Outlook-ում էլփոստի ընտրանի տպեք
Եթե դուք էլ-նամակ ստանաք և տեսնեք, որ կա էլ. Փոստի բովանդակության ընտրություն, որն անհրաժեշտ է տպել ամբողջ հաղորդագրությունը տպելու փոխարեն, ի՞նչ կանեիք: Իրականում, Outlook- ը կարող է օգնել ձեզ հասնել այս գործողությանը ինտերնետ զննարկիչների միջոցով, ինչպիսիք են Firefox- ը և Internet Explorer- ը: Այստեղ ես օրինակ կվերցնեմ ինտերնետային զննարկիչները: Խնդրում ենք դիտել հետևյալ ձեռնարկները:
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: