Excel Tabelle in Outlook durchsuchen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von m4rtijn.

    Excel Tabelle in Outlook durchsuchen

    Hi,

    ich versuche gerade ein kleines VBA Script zu erstellen:


    Es soll alle eingehenden Mails kontrollieren (funktioniert)

    Es soll die E-Mails von "check@this.com" behandeln (funktioniert)

    Dann soll es aus der Betreffzeile einen Wert auslesen (funktioniert)


    Danach soll der Wert vom Betreff in der Excel Tabelle gefunden werden (funktioniert leider nicht -- Zeile 37)

    Ich bekomme hier die Fehlermeldung: 1004 - Die Match-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.


    Würde mich sehr freuen wenn jemand Tips geben könnte wie ich weiter machen soll.


    Ps. Die Tabelle kann geöffnet werden und ich kann auch Werte ausgeben z.B. mit MsgBox wb.Worksheets("2500").Range("A1").Value
    PsPs. Ich habe die Excel Objekt-Bibliothek eingebunden im Script

    Quellcode

    1. Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    3. Dim objMail_In As Outlook.MailItem
    4. Dim objMail_Out As Outlook.MailItem
    5. Dim aryEntryIDs() As String
    6. Dim lngCount As Long
    7. Dim sSubject As String
    9. Dim inti As Integer
    11. Dim wb As Excel.Workbook
    12. Dim excApp As Excel.Application
    14. Dim lines As Excel.Range
    16. Dim line As Long
    18. 'jedes neue MailItem durchgehen
    19. aryEntryIDs = Split(EntryIDCollection, ",")
    20. For lngCount = 0 To UBound(aryEntryIDs)
    23. On Error GoTo Err_OL
    25. Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
    27. If (StrComp(objMail_In.SenderEmailAddress, "check@this.com", vbTextCompare) = 0) Then
    29. sSubject = objMail_In.Subject
    31. Set excApp = CreateObject("Excel.Application")
    33. excApp.ScreenUpdating = False ' turn off the screen updating
    35. Set wb = excApp.Workbooks.Open("c:\bla\nummern.xls", True, True)
    37. line = excApp.WorksheetFunction.Match(sSubject, wb.Worksheets("2500").Range("A1:A100"), 0)
    39. 'MsgBox "Found at row : " & line
    41. wb.Close
    42. Set wb = Nothing ' free memory
    43. excApp.ScreenUpdating = True ' turn on the screen updating
    46. End If
    48. Next lngCount
    50. Err_OL:
    51. If Err <> 0 Then
    52. MsgBox Err.Number & " - " & Err.Description
    53. Err.Clear
    54. Resume Next
    55. End If
    57. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „m4rtijn“ ()

    gelöst...

    Hi,

    ich hab nach ein wenig googeln rausgefunden warum es nicht funktioniert hat.

    Ich habe einen String mit einen Long verglichen.

    folgende Zeile hat das ganze bereinigt:

    Quellcode

    1. line = excApp.WorksheetFunction.Match(CLng(sSubject), wb.Worksheets("2500").Range("A1:A100"), 0)


    das casten CLng(sSubject) war notwendig.

Facebook
Telefonspende