Thema Datum  Von Nutzer Rating
Antwort
10.03.2022 09:13:26 VBANoob1723
Solved
Blau VBA Skript Sichern von Anhängen
 13.01.2023 21:35:41 Manuel K
NotSolved

Ansicht des Beitrags:
Von:
Manuel K		 Datum:
13.01.2023 21:35:41		 Views:
398		 Rating:
     
Antwort:
  Ja
Thema:
VBA Skript Sichern von Anhängen

Hi müsste so funktionieren,

Public Sub Anhaenge_handeln(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt  As Attachment
Dim sFile As String, P As Integer
Set mAtts = myItem.Attachments
While mAtts.Count > 0
    Set mAtt = mAtts(1)
    If sFile Like "*.pdf" Then
       P = InStrRev(sFile, ".")
       mAtt.SaveAsFile Environ("USERPROFILE") & "\Documents\Anhange\" & Format(myItem.ReceivedTime, "yyyy-mm-dd Hmm ") & mAtts.DisplayName
    ElseIf sFile Like "Auswertung*" Then
    End If
    mAtts.Remove 1
Wend
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.03.2022 09:13:26 VBANoob1723
Solved
Blau VBA Skript Sichern von Anhängen
 13.01.2023 21:35:41 Manuel K
NotSolved