Outlook 2010 levél kijelölt mellékletének mentése

Outlook 2010 levél kijelölt mellékletének mentése
2015-06-10T09:19:41+02:00
2015-06-17T07:08:01+02:00
2022-12-02T14:50:39+01:00
Üvegi Jenyő
Sziasztok!

Találtam egy hasznos VBA kódot a neten amivel egy adott mappába le tudom menteni egy
Outlook 2010 levél összes mellékletét. Hogyan lehet azt megoldani, hogy ne az összeset,
hanem csak egy kiválasztott mellékletet mentsen el?

'http://www.slipstick.com/outlook/email/save-open-attachment/ Public Sub SaveAndOpenAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim i As Long Dim lngCount As Long Dim strFile As String Dim strFolderpath As String Dim strExePath As String ' Get the path to your My Documents folder strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16) On Error Resume Next Set objOL = CreateObject("Outlook.Application") Set objSelection = objOL.ActiveExplorer.Selection ' Set the Attachment folder. (Folder must exist.) strFolderpath = strFolderpath & "\OLAttachments" For Each objMsg In objSelection Set objAttachments = objMsg.Attachments lngCount = objAttachments.Count If lngCount > 0 Then For i = lngCount To 1 Step -1 strFile = objAttachments.Item(i).FileName strFile = strFolderpath & strFile objAttachments.Item(i).SaveAsFile strFile 'use ShellExecute to open the file ShellExecute 0, "open", strFile, vbNullString, vbNullString, 0 Next i End If Next 'For Each objMsg In objSelection ExitSub: Set objAttachments = Nothing Set objMsg = Nothing Set objSelection = Nothing Set objOL = Nothing End Sub
Mutasd a teljes hozzászólást!
Set jelolt = Application.ActiveExplorer.AttachmentSelection For Each elem In jelolt Debug.Print elem.Parent.Subject, elem.FileName Next
kilistázza, hogy melyik levél (subject) melyik mellékletei vannak kijelölve.

A levél megcímzéséhez használhatod az EntryID-t, és a melléklet meg az Attachments gyűjteményből a név alapján már megcímezhető.

Ez most Outlookban futtatható, de persze az "application" helyett meg is címezheted az alkalmazást.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd