Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.10.2018 17:39:01 |
Lukas Möller |
|
|
|
30.10.2018 22:52:54 |
Flotter Feger |
|
|
|
31.10.2018 16:14:18 |
Lukas Möller |
|
|
|
31.10.2018 18:20:51 |
Flotter Feger |
|
|
|
01.11.2018 08:53:17 |
Gast28612 |
|
|
Email Anhänge in Outlook speichern |
05.11.2018 19:46:00 |
Lukas Möller |
|
|
Von:
Lukas Möller |
Datum:
05.11.2018 19:46:00 |
Views:
522 |
Rating:
|
Antwort:
|
Thema:
Email Anhänge in Outlook speichern |
Hallo,
danke für Eure Antworten. Ich habe jetzt diese Codes, die beide funktionieren. Allerdings habe ich relativ wenig Ahnung in VBA und weiß nicht, wie ich diese nun kombinieren kann. Deswegen bitte ich um Eure Hilfe!
Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Dim Item As Object
For Each Item In olFolder.Items
If TypeOf Item Is Outlook.MailItem Then
Dim oMail As Outlook.MailItem: Set oMail = Item
Debug.Print oMail.SenderEmailAddress
End If
Next
Dim strSavePath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strSavePath = BrowseForFolder
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strSavePath & Format(.ReceivedTime, "DD.MM.YYYY_hh-mm_") & .Attachments.Item(i).FileName
Next i
End If
End With
Next objMail
Die Lösungsvorschläge mit den Bildern funktionieren leider nicht, da in den Mail-Anhängen auch Bilder vorkommen. Ich will jedoch nur explizit die Bilder aus der Signatur ausgrenzen. Gibt es vielleicht eine Möglichkeit, die Signatur einer Mail in VBA anzusprechen?
Gruß Lukas
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
30.10.2018 17:39:01 |
Lukas Möller |
|
|
|
30.10.2018 22:52:54 |
Flotter Feger |
|
|
|
31.10.2018 16:14:18 |
Lukas Möller |
|
|
|
31.10.2018 18:20:51 |
Flotter Feger |
|
|
|
01.11.2018 08:53:17 |
Gast28612 |
|
|
Email Anhänge in Outlook speichern |
05.11.2018 19:46:00 |
Lukas Möller |
|
|