AW: eMail aus Outlook in Excel einlesen
21.01.2009 16:56:36
Tino
Hallo,
teste mal diesen Code, den Ordner kannst Du auswählen im Dialog.
Absender, Betreff und Datum musst Du noch anpassen.
Benötigt den Verweis auf Microsoft Outlook Object Library
'Benötigt den Verweis auf Microsoft Outlook Object Library
Sub MailsImportieren()
Dim objOutlook As Outlook.Application
Dim objnSpace As Namespace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim Datum As Date
Dim sBetreff As String, sAbsender As String
Dim rZelle As Range
sBetreff = "Info Excel-Forum" 'Teil eines Betreffs
sAbsender = "hans@herber.de" 'Mailadresse
Datum = Date 'Datum
Set objOutlook = New Outlook.Application
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.PickFolder ''' Dialog
For Each objMsg In objFolder.Items
With objMsg
If .CreationTime >= Datum And .CreationTime <= Datum + 1 Then
If (sBetreff Like "*" & sBetreff & "*") And (.SenderEmailAddress = sAbsender) Then
With Sheets("Tabelle1")
Set rZelle = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
.Range(rZelle, rZelle.Offset(0, 1)).Font.Bold = True
.Range(rZelle, rZelle.Offset(0, 1)).Font.ColorIndex = 3
End With
rZelle = .SenderName
rZelle.Offset(0, 1) = .CreationTime
rZelle.Offset(1, 0) = .Body
End If
End If
End With
Next objMsg
End Sub
Gruß Tino