{"id":1714,"date":"2013-01-30T19:00:15","date_gmt":"2013-01-30T17:00:15","guid":{"rendered":"http:\/\/www.kastenmaier.de\/?p=1714"},"modified":"2018-10-19T08:44:54","modified_gmt":"2018-10-19T07:44:54","slug":"vba-outlook-namen-der-dateien-im-e-mail-anhang-auslesen","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=1714","title":{"rendered":"VBA \u2013 Outlook: Namen der Dateien im E-Mail-Anhang auslesen"},"content":{"rendered":"<h1>Beschreibung<\/h1>\n<p>In einigen F\u00e4llen ist es sinnvoll, die Namen der Dateien im E-Mail-Anhang in der E-Mail aufzulisten. Um dies zu vereinfachen, habe ich die folgende Funktion geschrieben.&nbsp;<!--more--><img decoding=\"async\" title=\"Weiterlesen \u2026\" src=\"http:\/\/www.kastenmaier.de\/wp-includes\/js\/tinymce\/plugins\/wordpress\/img\/trans.gif\" alt=\"\"\/><strong>Die Funktion dient als Input f\u00fcr die Funktion&nbsp;<a href=\"http:\/\/www.kastenmaier.de\/?p=1708\" target=\"_blank\" rel=\"noopener\">Namen der Dateien im E-Mail-Anhang am Anfang der E-Mail auflisten<\/a>.<\/strong> Alle Dateinamen im E-Mail-Anhang werden der Reihe nach ausgelesen und zusammen mit einer kurzen Einleitung (&#8218;E-Mail-Attachments:&#8216; oder &#8218;E-Mail-Attachment:&#8216;) als Array zur\u00fcck gegeben. Der Einleitungstext ist dabei im ersten Array-Element gespeichert.<\/p>\n<h1>Sourcecode<\/h1>\n<pre class=\"brush: vb; gutter: true\">Public Function getAtts() As String()\r\n    ReDim getAtts(0)\r\n\r\n    &#039; aktuelles Outlookfenster als zu verwendendes definieren\r\n    Dim curInspector As Outlook.Inspector\r\n    Set curInspector = Application.ActiveInspector\r\n\r\n    &#039; Pr\u00fcfen, ob Dateianh\u00e4nge vorhanden sind\r\n    If Not TypeName(curInspector) = &quot;Nothing&quot; Then\r\n        &#039; Mit aktuellem E-Mail-Objekt arbeiten\r\n        Dim curItem As Outlook.MailItem\r\n        Set curItem = curInspector.CurrentItem\r\n\r\n        &#039; E-Mail-Anh\u00e4nge auslesen\r\n        Dim curAtts As Outlook.Attachments\r\n        Set curAtts = curItem.Attachments\r\n\r\n        &#039; Anzahl der E-Mail-Anh\u00e4nge bestimmen\r\n        Dim iAttCount As Integer\r\n        iAttCount = curAtts.Count\r\n\r\n        &#039; Pr\u00fcfen, ob E-Mail-Anh\u00e4nge vorhanden sind\r\n        If iAttCount &gt; 0 Then\r\n            Dim iAttNo As Integer\r\n            Dim sAtts() As String\r\n\r\n            ReDim sAtts(iAttCount)\r\n\r\n            For iAttNo = 0 To iAttCount\r\n                If iAttNo &gt; 0 Then\r\n                    &#039; Namen der E-Mail-Anh\u00e4nge auslesen\r\n                    sAtts(iAttNo) = curAtts.Item(iAttNo).fileName\r\n                Else\r\n                    &#039; Einf\u00fchrungstext nach Anzahl der E-Mail-Anh\u00e4nge festlegen\r\n                    If iAttCount &gt; 1 Then\r\n                        sAtts(iAttNo) = &quot;E-Mail-Attachments:&quot;\r\n                    Else\r\n                        sAtts(iAttNo) = &quot;E-Mail-Attachment:&quot;\r\n                    End If\r\n                End If\r\n            Next iAttNo\r\n\r\n            &#039; E-Mail-Anh\u00e4nge inkl. Einf\u00fchrungstext zur\u00fcckgeben\r\n            getAtts = sAtts\r\n        End If\r\n    End If\r\nEnd Function<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung In einigen F\u00e4llen ist es sinnvoll, die Namen der Dateien im E-Mail-Anhang in der E-Mail aufzulisten. Um dies zu vereinfachen, habe ich die folgende Funktion geschrieben.&nbsp;<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,47],"tags":[48,49,37],"class_list":["post-1714","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vba-outlook","tag-outlook","tag-programmieren","tag-vba"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-rE","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1714","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1714"}],"version-history":[{"count":11,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1714\/revisions"}],"predecessor-version":[{"id":2231,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/1714\/revisions\/2231"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1714"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1714"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1714"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}