Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տպել բոլոր հավելվածները Outlook- ում մեկ / մի քանի նամակներում:

Ինչպես գիտեք, այն կտպակի միայն էլ. Փոստի բովանդակությունը, ինչպիսիք են վերնագիրը, մարմինը, երբ կտտացնում եք այն Ֆայլ > տպել Microsoft Outlook- ում, բայց չտպել կցորդները: Այստեղ մենք ձեզ ցույց կտանք, թե ինչպես տպել բոլոր կցորդները ընտրված էլփոստում `Microsoft Outlook- ում հեշտությամբ:


Տպեք բոլոր կցորդները մեկ էլ. Փոստով մեկ առ մեկ

Microsoft Outlook- ը մեզ տրամադրում է Արագ տպագիր հատկություն, որը կարող է օգնել ձեզ մեկ առ մեկ տպել կցորդները էլ. փոստով:

1, Ընտրեք էլփոստի հաղորդագրությունը, որի կցորդները հետագայում կտպեք:

2, Այս նամակում կտտացրեք մեկ հավելվածի:

3. Սեղմեք Արագ տպագիր կոճակը Գործողություններ խմբում Attachments էջանիշը.

Նշում Կցման գործիքներ չի ակտիվացվի այնքան ժամանակ, քանի դեռ չեք սեղմել նամակագրության կցորդները:

4. Փոստի հավելվածի բացման երկխոսությունը դուրս է գալիս, և խնդրում ենք սեղմել կոճակը բաց կոճակը:

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

Այս էլ-նամակում այլ կցորդներ տպելու համար խնդրում ենք կրկնել Քայլ 2-ը Քայլ 4-ը:

Outlook- ում բազմաթիվ նամակներից արագ պահեք / արտահանեք բոլոր կցորդները

Սովորաբար, մենք կարող ենք կցորդները պահպանել մեկ էլփոստից `այն ակտիվացնելով Կցման գործիքներ և կիրառելով Պահել բոլոր կցորդները առանձնահատկությունը Outlook- ում: Բայց ի՞նչ անել, եթե կցորդները պահվում են բազմաթիվ նամակներից կամ Outlook- ի փոստի ամբողջ թղթապանակից: Փորձեք Kutools- ը Outlook- ի համար Պահել բոլորը (Հավելվածների) առանձնահատկությունը:


պահպանել կցորդները բազմաթիվ էլ. փոստերում kto9

Բոլոր կցորդները խմբաքանակով տպեք մեկ էլ. Փոստով

Եթե ​​մեկ էլփոստի հաղորդագրության մեջ կան բազմաթիվ հավելվածներ, դրանք մեկ առ մեկ տպելը ժամանակատար կլինի: Եվ հետևյալ մեթոդը ձեզ կուղեկցի ընտրված էլ. հաղորդագրության մեջ բոլոր հավելվածները խմբաքանակային տպագրելու միջոցով:

1, Ընտրեք էլփոստի հաղորդագրությունը, որի կցորդները հետագայում կտպեք:

2, Outlook 2010 կամ ավելի ուշ տարբերակներում սեղմեք այստեղ Ֆայլ > տպել > Տպման ընտրանքներ, Տե՛ս հետևյալ նկարը.

3. Տպել երկխոսության վանդակում խնդրում ենք ստուգել Տպել կից ֆայլերը: Հավելվածները կտպվեն միայն լռելյայն տպիչի վրա տարբերակը Տպման ընտրանքներ բաժնում:

4. Սեղմեք տպել կոճակը:

5, Բացվող փոստի կցորդի երկխոսության պատուհանում դուրս գալու դեպքում սեղմեք բաց առաջ գնալու կոճակը: (ՆշումԱյս երկխոսության տուփը դուրս կգա յուրաքանչյուր կցորդի համար առանձին:)

Այժմ այս ընտրված էլ. հաղորդագրության բոլոր հավելվածները միանգամից կտպվեն:


Փաթեթային տպեք բոլոր կցորդներն ու նկարները մի քանի ընտրված նամակներում

Բոլոր հավելվածները մի քանի նամակներում, ինչպես նաև Outlook-ում հաղորդագրության մարմնի բոլոր նկարները տպելու համար, խնդրում ենք հետևել ստորև նշված քայլերին՝ VBA կոդ կիրառելու համար:

1, Փոստային ցուցակում պահեք Ctrl or Հերթափոխություն ստեղներ ՝ բազմաթիվ էլփոստեր ընտրելու համար, որոնց կցորդները դուք տպելու եք:

2. Մամուլ ալտ + F11 ստեղները միասին ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

3, Microsoft Visual Basic հավելվածների համար պատուհանում կտտացրեք Գործիքներ > Սայլակ, Եվ ապա ստուգեք Microsoft Scripting Runtime տարբերակ, ինչպես ցույց է տրված ստորև: Ավարտելուց հետո սեղմեք OK.

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

VBA. Տպիր բոլոր կցորդները բազմաթիվ Outlook էլփոստերում

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Մամուլ F5 ստեղնը կամ սեղմել Վազում կոճակ՝ այս VBA կոդը գործարկելու համար: Այժմ դուք կտեսնեք, որ ընտրված էլփոստի բոլոր հավելվածները և հաղորդագրության մարմնի նկարները տպագրված են:

Նշում:

  • Յուրաքանչյուր պատկեր կբացի թռուցիկ երկխոսության տուփ՝ տպագրության հաստատման համար: Մինչդեռ այլ տեսակի ֆայլերը կտպվեն ուղղակիորեն:
  • Եթե ​​էլփոստի ստորագրության մեջ կան պատկերներ, դրանք նույնպես կհայտնվեն բացվող երկխոսության տուփեր:
  • Եթե ​​դուք ստանում եք Այս նախագծի մակրոներն անջատված են սխալ, խնդրում ենք ստուգել այս ձեռնարկը. Ինչպե՞ս միացնել և անջատել մակրոները Outlook-ում:

Խմբաքանակով տպեք բոլոր կցորդները մի քանի ընտրված էլ. նամակներում, բացառությամբ ներքևում գտնվող նկարների

Միայն մի քանի նամակներում, բայց Outlook-ում հաղորդագրության մարմնի նկարները տպելու համար, խնդրում ենք հետևել ստորև նշված քայլերին՝ VBA կոդ կիրառելու համար:

1, Փոստային ցուցակում պահեք Ctrl or Հերթափոխություն ստեղներ ՝ բազմաթիվ էլփոստեր ընտրելու համար, որոնց կցորդները դուք տպելու եք:

2. Մամուլ ալտ + F11 ստեղները միասին ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

3, Microsoft Visual Basic հավելվածների համար պատուհանում կտտացրեք Գործիքներ > Սայլակ, Եվ ապա ստուգեք Microsoft Scripting Runtime տարբերակ, ինչպես ցույց է տրված ստորև: Ավարտելուց հետո սեղմեք OK.

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

VBA. Տպիր բոլոր կցորդները բազմաթիվ Outlook էլփոստերում

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
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

5. Մամուլ F5 ստեղնը կամ սեղմել Վազում կոճակ՝ այս VBA կոդը գործարկելու համար: Այժմ դուք կտեսնեք, որ ընտրված նամակների բոլոր հավելվածները տպագրված են:

Նշում:

  • Յուրաքանչյուր կցված պատկեր կբացի թռուցիկ երկխոսության տուփ՝ տպագրության հաստատման համար: Մինչդեռ այլ տեսակի ֆայլերը կտպվեն ուղղակիորեն:
  • Հաղորդագրության մարմնի պատկերները չեն տպվի:
  • Եթե ​​դուք ստանում եք Այս նախագծի մակրոներն անջատված են սխալ, խնդրում ենք ստուգել այս ձեռնարկը. Ինչպե՞ս միացնել և անջատել մակրոները Outlook-ում:

 


Դեմո. Տպեք մեկ կամ բոլոր կցորդները Outlook էլ. Փոստում


ԱկնարկԱյս տեսանյութում Կուտոլս էջանիշը ավելացվում է կողմից Outlook- ի համար նախատեսված գործիքներ, Եթե ​​դա ձեզ հարկավոր է, խնդրում ենք կտտացնել այստեղ ունենալ 60-օրյա անվճար փորձաշրջան առանց սահմանափակումների:


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (23)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա շատ օգտակար է, բայց ինձ չի՞ օգնում Office 365-ի հարցում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կարող էի ինքս պարզել այս մասը. այն, ինչ ես փորձում եմ պարզել, այն է, թե ինչու, չնայած դրան, հավելվածները չեն տպագրվում: Յուրաքանչյուր հավելվածի համար հայտնվում է սխալի հաղորդագրություն՝ խնդրելով «բացել» կամ «պահպանել»: Ցանկացած տարբերակ ընտրելը տալիս է հենց այդ արդյունքները. այլ կերպ ասած, դեռ տպագրություն չկա, պարզապես բաց կամ պահպանում է: Ես ունեմ 20 հավելված 4 էլ.փոստից: Ես իսկապես չեմ ուզում, որ ստիպված լինեմ բացել 80 փաստաթուղթ, որպեսզի կարողանամ տպել դրանք: Ակնհայտորեն կա «փրկիր ինձ ինքս ինձանից» անվտանգության կարգավորում, որը պետք է ջնջվի, որպեսզի կարողանամ օգտագործել իմ սեփական համակարգիչը և օպերացիոն համակարգը, որը ես գնել և վճարել եմ: Դա այն է, ինչ ես պետք է իմանամ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կրկնակի սեղմեք էլ.փոստի վրա՝ ինքնուրույն «թափելու համար»: Աջ սեղմեք հավելվածներից մեկի վրա և սեղմեք «ընտրել բոլորը», ապա «արագ տպել»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Համաձայնեք Լիայի հետ, սա չի աշխատում։ Այն պարզապես տպում է էլփոստի հիմնական մասը և առաջին հավելվածը, ոչ բոլորը: Ցուցումներ են պետք, թե ինչպես տպել դրանք բոլորը՝ օգտագործելով վերը նշված «ընտրել բոլոր» տարբերակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
եթե ցանկանում եք տպել բոլոր հավելվածները միասին 1 էլ.փոստով, ահա թե ինչ եք անում: նախ թղթապանակ պատրաստիր քո աշխատասեղանին....ես իմ իմ անունը դրել եմ «տպել»: գնացեք կցորդներով էլ․․․․ընդգծեք բոլոր հավելվածները, սեղմեք աջը, պահեք բոլոր հավելվածները տպագրության թղթապանակում։ Բացեք տպման թղթապանակը.....ընդգծեք բոլորը.....աջ սեղմեք.....տպեք:



հիմա, եթե ես կարողանայի պարզել, թե ինչպես տպել բոլոր հավելվածները 200 նամակներում՝ առանց յուրաքանչյուրը բացելու և տպելու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Kutools-ի համար Outlook-ի «Անջատել բոլորը» (Կցորդներ) հատկությունը կարող է օգնել ձեզ մի քանի կտտոցով ներբեռնել բոլոր հավելվածները բազմաթիվ էլ. https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
եթե pdf-ն ունի նույն անունը, ապա մակրոն տպում է ընդամենը մեկ pdf, ինչպե՞ս կարող եմ փոխել կոդը՝ pdf-ի անունը փոխելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը տալիս է շարահյուսության սխալ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
9-րդ տողում, «On Error Resume Next»-ի հեռացումը աշխատեց ինձ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այո, սա ուղղակի ինձ մոտ նույնպես աշխատեց: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես արդեն մի քանի շաբաթ է, ինչ օգտագործում եմ այս դյուրանցումը, տպում եմ բոլոր հավելվածները մի քանի էլ. Ես ստանում եմ նախազգուշացման տուփը, որում ասվում է, որ այս նախագծի մակրոներն անջատված են...և այլն... եթե ինչ-որ մեկը լուծում ունի այս աշխատանքը նախկինի պես աշխատելու համար, խնդրում եմ lmk, քանի որ ես ընտրում եմ մոտ 9-ը: նամակներ, որոնք բոլորը պարունակում են կցորդներ տպելու համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին, մենք թարմացրել ենք VBA կոդը ձեռնարկում 2022/08/03: Եթե ​​դեռ պետք է տպել բոլոր հավելվածները, խնդրում ենք ստուգել նոր կոդը: 😊
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, երեկ սա ինձ մոտ լավ էր աշխատում, բայց հիմա ասում է «այս նախագծի մակրոներն անջատված են» Կա՞ խորհուրդ, թե ինչպես միացնել դրանք: 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Vielen, vielen Dank dafür! Hat uns enorm viel Arbeit erspart.Auch ich musste - wie bereits in den Commentaren geschrieben - die neunte Zeile «Dim xAttachment As Outlook.Attachment On Error Resume Next» entfernen, dann lief der Code einfandfrei durch.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
hallo, ich möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ Microsoft 365-ը, և այն աշխատեց 9-րդ տողը ջնջելուց հետո: Շնորհակալություն: Սա մի քիչ ժամանակ խնայեց ինձ համար:
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելիներս,

Ես փորձել էի VBA-ն և կոդն աշխատում է, բայց էկրանին բացվում են բազմաթիվ թռուցիկներ՝ փոստի ստորագրությունից պատկերներ տպելու համար (ըստ երևույթին, սա համարվում է կցորդ): Որևէ մեկը գիտի, թե ինչպես լուծել այն:

S.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Ներողություն ենք խնդրում, որ պատկերները տպելու համար կհայտնվեն թռուցիկներ: Բոլոր պատկերները ներբեռնելու համար դուք պետք է հաստատեք յուրաքանչյուրը: Եթե ​​ձեզ հարկավոր չէ պատկերներ տպել, խնդրում ենք սեղմել Չեղարկել:

Amanda
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​չեք ցանկանում նկարներ տպել հաղորդագրության մեջ, խնդրում ենք օգտագործել ստորև նշված կոդը.
Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ամանդա,

Շնորհակալություն կոդի համար։ Դա աշխատեց!

S.
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից