Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hilfe zu Workshop - email to excel
Autor: view
Datum: 21.03.07 18:13
Hallo, habe ein riessssen Problem mit dem Workshop - Email to Excel. 1.) Der Code bleibt mit folgender Fehlermeldung "Laufzeitfehler 13 Typen unverträglich" stehen. und zwar bei p = CLng(Mid(mIt.Body, i, j - i))[u] Jemand eine Idee warum, ich kann nichts finden Option Explicit Sub neue_mail(sID As String) Dim mIt As Outlook.MailItem ' 1) Dim i As Long ' findet die Anfangs-Position im Text Dim j As Long ' findet die End-Position im Text Dim d As Date ' Datum der Mail Dim w As String ' Wer spielt wiess Dim s As String ' wer spielt schwarz Dim e As String ' Ergebnis Dim h As String ' Hyperlink Dim p As Long ' Meine Punkte nach dem Spiel ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Ende Deklration ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MsgBox sID ' - dient zum anzeigen von Zwischenergebnissen If NS Is Nothing Then GL.set_namespace ' 2) Stmp = TypeName(NS.GetItemFromID(sID)) If Stmp = "MailItem" Then Set mIt = NS.GetItemFromID(sID) ' 3) Else MsgBox "Die neue Mail ist vom unerwarteten Typ " & vbLf & Stmp & vbLf & " und kann mit den existierenden Makro nicht verarbeitet werden.", vbCritical, "Abbruch" Exit Sub End If ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Ende Block 1 - Die Mail ist identifiziert ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MsgBox mIt.Subject ' - dient zum anzeigen von Zwischenergebnissen If mIt.SenderName <> "service@chessmail.de" Then Exit Sub i = InStr(mIt.Body, vbCrLf & vbCrLf & "Sie haben jetzt ") If i = 0 Then Exit Sub ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i = i + Len(vbCrLf & vbCrLf & "Sie haben jetzt ") ' i - Das ist jetzt die Position rechts von "Sie haben jetzt " j = InStr(i, mIt.Body, " Punkte") ' Der Text zwischen den Positionen i und j enthält jetzt die Punktzahl ' MsgBox ">" & Mid(mIt.Body, i, j - i) & "<" ' nun wird dieser Text in eine Zahl vom Typ Long in Variable p gespeichert p = CLng(Mid(mIt.Body, i, j - i))[u] Danke und liebe Grüsse GE

Hilfe zu Workshop - email to excel	754	view	21.03.07 18:13
Re: Hilfe zu Workshop - email to excel	522	srcdbgr	22.03.07 11:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen