Hallo Jens,
anbei der Code. Dabei schreibe ich (zur Kontrolle) die ausgelesenen Dateinamen in ein Worddokument.
Dies würde ich in Ausschnitten auch hier anzeigen.
Zuerst der Code:
---------------------------------------------------------------------------------------------------------
Option Explicit
Const path As String = "F:\Dokumente und Einstellungen\rkunze\Eigene Dateien\Ablage XLS\"
-------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
MAPISession1.SignOn 'Verbindung zum E-Mail-Client herstellen
MAPIMessages1.SessionID = MAPISession1.SessionID 'Übergabe der Sitzungsnummer an das zweite Steuerelement
holeMails
End Sub
--------------------------------------------------------------------------------------------------------
Public Sub holeMails()
Dim zaehler As Integer
Dim zaehlerAtt As Integer
Dim wapp As New Word.Application
Dim dok As Word.Document
Dim oMappe As Object
MAPIMessages1.Fetch 'Zusammenstellen einer Nachrichtengruppe
wapp.Visible = True
Set dok = wapp.Documents.Add
With MAPIMessages1
For zaehler = 0 To .MsgCount - 1
.MsgIndex = zaehler
If .AttachmentCount > 0 Then
'MsgBox "Mit Anhang"
For zaehlerAtt = 0 To .AttachmentCount - 1
.AttachmentIndex = zaehlerAtt
If .AttachmentName Like "*.xl*" Then
wapp.Selection.Text = "Absender: " & .MsgOrigDisplayName _
& "Zeit: " & .MsgDateReceived & vbCr
wapp.Selection.Collapse wdCollapseEnd
wapp.Selection.Text = "Anzahl Anhänge: " & .AttachmentCount & vbCr
wapp.Selection.Collapse wdCollapseEnd
wapp.Selection.Text = .AttachmentName & vbCr & .AttachmentPathName
wapp.Selection.Collapse wdCollapseEnd
wapp.Selection.InsertParagraphAfter
wapp.Selection.InsertParagraphAfter
wapp.Selection.Collapse wdCollapseEnd
speichereAnlage .AttachmentName, .AttachmentPathName
End If
Next
End If
Next
End With
MsgBox "Ich habe fertig!"
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
--------------------------------------------------------------------------------------------------------------------
Public Sub speichereAnlage(ByVal name As String, ByVal attpath As String)
FileCopy attpath, path & name
End Sub
==========================================================
==========================================================
Auszüge (mit Kommentaren) aus dem Worddokument
Absender:
RolfKunze@t-online.deZeit Zeit: 2005/09/22 14:31
Anzahl Anhänge: 1
ASLEW205.xls
Kommentar: falscher Name: richtig ist: ASLE W205 20050822.xls
F:\DOKUME~1\rkunze\LOKALE~1\Temp\ASLEW205.xls
Absender:
RolfKunze@t-online.deZeit: 2005/09/22 14:08
Anzahl Anhänge: 1
Add-InTe.xls
Kommentar: falscher Name: richtig ist:Add-InTest.xls
F:\DOKUME~1\rkunze\LOKALE~1\Temp\Add-InTe.xls
Absender: Harry SonntagZeit: 2005/09/21 10:44
Anzahl Anhänge: 3
Anhang 1- Umgebung f. Offline-Test (2005.07.29).xls
Kommentar: Dateiname richtig
F:\DOKUME~1\rkunze\LOKALE~1\Temp\Anhang1-.xls
Absender: Markus Gallenberger Zeit: 2005/09/19 09:10
Anzahl Anhänge: 1
RolfK_KW.xls
Kommentar: Dateiname falsch: richtig ist: RolfK_KW38_05.xls
F:\DOKUME~1\rkunze\LOKALE~1\Temp\RolfK_K1.xls
============================================================
Anhand der Eintragungen im Worddokument könnte man evtl. meinen, es liegt am Absender. Nein, denn der Absender "Harry Sonntag" hat mir eine Mail geschickt mit zwei Excel-Dateien als Anhang: beide wurden mit 8.3 ausgegeben.
Vielen Dank für die Durchforstung des Codes
Rolf
