Thema Datum  Von Nutzer Rating
Antwort
Rot Import Outlokk-Emails to Excel
14.07.2021 12:12:53 Daniel
Solved
14.07.2021 15:16:41 Mase
NotSolved
15.07.2021 12:12:22 Gast11456
NotSolved
15.07.2021 12:37:15 Mase
Solved

Ansicht des Beitrags:
Von:
Daniel
Datum:
14.07.2021 12:12:53
Views:
53
Rating: Antwort:
 Nein
Thema:
Import Outlokk-Emails to Excel

Hallo zusammen,

ich möchte meine E-Mails aus Outlook in Excel importieren mit diesem Code:

Sub impOutlookTable()

Const strMail As String = "***@********.de"
Dim oApp As Outlook.Application
Dim oMapi As Outlook.MAPIFolder
Dim oMail As Outlook.MailItem

On Error Resume Next
Set oApp = GetObject(, "OUTLOOK.APPLICATION")
    If (oApp Is Nothing) Then Set oApp = CreateObject("OUTLOOK.APPLICATION")
On Error GoTo 0

Set oMapi = oApp.GetNamespace("MAPI").Folders(strMail).Folders("Posteingang")
Set oMail = oMapi.Items(oMapi.Items.Count)

Dim oHTML As MSHTML.HTMLDocument: Set oHTML = New MSHTML.HTMLDocument
Dim oElColl As MSHTML.IHTMLElementCollection
With oHTML
    .Body.innerHTML = oMail.HTMLBody
    Set oElColl = .getElementsByTagName("table")
End With

Dim x As Long, y As Long

For x = 0 To oElColl(0).Rows.Length - 1
    For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
        Range("Reminder_Data!A1").Offset(x, y).Value = oElColl(0).Rows(x).Cells(y).innerText
    Next y
Next x

Set oApp = Nothing
Set oMapi = Nothing
Set oMail = Nothing
Set oHTML = Nothing
Set oElColl = Nothing
End Sub

Jedoch kommt bei

For x = 0 To oElColl(0).Rows.Length - 1

der Lautzeitfehler 91, dass eine Objektvariable nicht festgelegt ist. Jemand eine Ahnung warum?

Grüße
Daniel


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 Import Outlokk-Emails to Excel
14.07.2021 12:12:53 Daniel
Solved
14.07.2021 15:16:41 Mase
NotSolved
15.07.2021 12:12:22 Gast11456
NotSolved
15.07.2021 12:37:15 Mase
Solved