Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

eMail aus Outlook in Excel einlesen

eMail aus Outlook in Excel einlesen
21.01.2009 15:36:17
Heinzs
Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
Hat jemand eine Idee?
Danke für Hilfe!
MfG
Heinz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
AW: eMail aus Outlook in Excel einlesen
26.01.2009 10:24:30
Heinzs
Hallo Tino!
Danke für Hilfe!

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige