Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenbereich als email (Code funktioniert nicht

    Betrifft: Tabellenbereich als email (Code funktioniert nicht von: Lars
    Geschrieben am: 29.08.2003 10:26:20


    Hallo,

    habe ein Problem mit meinem Code. Möchte gerne einen bestimmten Bereich meiner Arbeitsmappe per email versenden. bekomme jedoch bei der Ausführung des Makros eine Fehlermeldung, bezüglich des Clipboardobjekte ("Benutzerdefinierter Typ ist nicht definiert", obwohl ja am Anfang eigentlich alle Deklarationen getroffen worden sind.

    Wer kann helfen ???

    Danke im Voraus !!!



    Sub EmailLevelfile()
        Dim OutApp As Object, Mail As Object, i
        Dim Nachricht
        Dim ClpObj As DataObject

        For i = 1 To 10
            Set ClpObj = New DataObject
            Set OutApp = CreateObject("Outlook.Application")
            Set Nachricht = OutApp.CreateItem(0)
           
            Range("o1:w118").Select
            Selection.Copy

            With Nachricht
                .Subject = "New Order" & Date
                .To = "name@provider.de"
                .cc = "name@provider.de"
               
                ClpObj.GetFromClipboard
                .Body = ClpObj.GetText(1)
                
                .Display
                
                'mail.Send

            End With

            Set OutApp = Nothing
            Set Nachricht = Nothing
            
            Application.Wait (Now + TimeValue("0:00:05"))

        Next i
    End Sub


         Code eingefügt mit Syntaxhighlighter 2.4

      


    Betrifft: AW: Tabellenbereich als email (Code funktioniert nicht von: Angela Pohler
    Geschrieben am: 29.08.2003 19:25:45

    Hallo Lars,

    ich denke mal, die Fehlermeldung bezieht sich auf Dein "i". (Oder hast Du den Teil beim kopieren verloren?).
    OutApp und Mail hast Du zugeordnet, aber i...?

    Vielleicht war's das ja schon.

    Gruß
    Angela