Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook E-Mail Anhang umbenennen und abspeichern
 04.03.2022 11:22:56 Andreas
NotSolved
04.03.2022 11:55:54 Gast64141
Solved
04.03.2022 12:09:51 Gast88021
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
04.03.2022 11:22:56		 Views:
1525		 Rating:
     
Antwort:
  Ja
Thema:
Outlook E-Mail Anhang umbenennen und abspeichern

Hallo Zusammen, 
ich verschiebe Anhänge die Ich per Mail bekommen habe in einen Ordner 
auf meinem Desktop. Die Anhänge die ich bekomme haben leider 
immer den gleichen Namen. Ist es möglich die Anhänge nach dem 
Betreff der Email umzubenennen ? Oder kann ich die Datei nach dem 
heutigen Datum benennen ? 

Vielen Dank für eure Hilfe. 

Das ist der Code den ich benutze:

 

Private WithEvents olItems As Outlook.Items

Private Sub Application_Startup()

'Variablen dimensionieren
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace

'Variablen initialisieren
Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olItems = olNS.GetDefaultFolder(olFolderInbox).Items

'Test
Debug.Print "Application_Startup wird ausgeführt"

End Sub


Private Sub olItems_ItemAdd(ByVal item As Object)

'Variablen dimensionieren
Dim olMail As Outlook.MailItem
Dim olAtt As Outlook.Attachment
Dim Dateipfad As String



'Prüfen, ob Item eine Mail ist
If TypeName(item) = "MailItem" Then

    Set olMail = item
    
    
    'Bsp. Test
    
    
    'Prüfen, ob Mail verwendet werden soll
    If InStr(olMail.Subject, "tages") <> 0 Then

        
    
        'Schleife über alle Anhänge
        For Each olAtt In olMail.Attachments

            Dateipfad = "C:\Users\test\Desktop\BDE\" & olAtt.FileName

            'Datei speichern
            olAtt.SaveAsFile Dateipfad
            
          
       Next olAtt

    End If

 

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
Rot Outlook E-Mail Anhang umbenennen und abspeichern
 04.03.2022 11:22:56 Andreas
NotSolved
04.03.2022 11:55:54 Gast64141
Solved
04.03.2022 12:09:51 Gast88021
NotSolved