<\/p>\n
Im Beitrag eBay-Artikelsuche mit Access in dieser Ausgabe (Shortlink 650) haben Sie gelernt, wie Sie <\/span>die für den Zugriff auf die eBay-Webservices benötigten Voraussetzungen erfüllen und wie Sie die REST-API von eBay zur Artikelsuche einsetzen können. Im vorliegenden Beitrag gehen wir einen Schritt weiter und stellen selbst Artikel bei eBay ein.<\/b><\/p>\n Im Gegensatz zur Suche von Artikeln benötigen Sie für das Einstellen nicht die Befehle der Shopping-, sondern der Trading-API von eBay. Das Einstellen eines Artikels ist eine ganze Ecke schwieriger als die Suche danach. Allein das Ermitteln der geeigneten primären Kategorie, unter der Sie den Artikel einstellen möchten, ist eine Herausforderung. Und darum kümmern wir uns gleich im Anschluss an die Übersicht über das Einstellen von Artikeln bei eBay. <\/p>\n Artikel einstellen<\/b><\/p>\n Für das Einstellen von Artikeln bei eBay verwenden Sie die API-Funktion AddItem<\/b> der Trading-API von eBay. Die Referenz zu dieser Funktion finden Sie unter [1]. In dieser Referenz erfahren Sie, wie ein Request im XML-Format aussehen muss, damit eBay den gewünschten Artikel einstellt. Die Liste der Elemente liefert genaue Informationen darüber, welche zum Pflichtprogramm gehören (Required<\/b>) und welche Elemente in Abhängigkeit von anderen Elementen (Conditional<\/b>) oder optional (Optional<\/b>) zum Einsatz kommen.<\/p>\n Grundsätzlich bestehen die XML-Requests der Trading-API aus einigen Basis-Elementen, welche Informationen über den Benutzer (RequesterCredentials<\/b>), die Fehlersprache (ErrorLanguage<\/b>) oder den Warning Level <\/b>liefern. Erst im Anschluss folgen im Element item<\/b> die eigentlichen Informationen zum einzustellenden Artikel.<\/p>\n In der Beispieldatenbank übernimmt das Formular frmArtikelEinstellen <\/b>die Aufnahme der Informationen zum einzustellenden Artikel und die Steuerung der weiteren Aktionen, also für das Einstellen und das Beenden des Angebots (siehe Bild 1). Letzteres werden Sie gerade beim Herumspielen mit der Beispieldatenbank des Öfteren brauchen.<\/p>\n Bild 1: Mit diesem Formular können Sie ganz leicht Artikel bei eBay einstellen.<\/span><\/b><\/p>\n Eines vorneweg: Das Formular und die Beispieldatenbank behandelt nur einen kleinen Teil der tatsächlich beim Einstellen vorhandenen Möglichkeiten des eBay-Webservices.<\/p>\n Trotzdem sollte das simple Formular aus der obigen Abbildung für die meisten Fälle ausreichen, beziehungsweise leicht für Ausnahmen anpassbar sein.<\/p>\n Das Formular ist an die Tabelle tblArtikelEinstellen <\/b>gebunden, die alle notwendigen Informationen speichert. Diese Tabelle sieht im Entwurf wie in Bild 2 aus. Es gibt zwei Informationen, die größere Arbeit erfordern: die Kategorie eines Artikels sowie das Bild, das mit dem Artikel angezeigt werden soll.<\/p>\n Bild 2: Entwurf der Tabelle zum Speichern der Daten bei eBay eingestellter Artikel<\/span><\/b><\/p>\n Kategorien ermitteln<\/b><\/p>\n eBay bietet Zigtausende Kategorien für die Einordnung von Artikeln an. Wenn Sie diese auf der Internetseite von eBay auswählen, geht dies recht schnell, indem Sie einfach eine der Hauptkategorien anklicken und sich dann durch die untergeordneten Kategorien bis hin zur gewünschten Kategorie hindurchnavigieren. Unter Access ist dies anders, denn Sie müssen die Kategorien ja überhaupt einmal in der Datenbank speichern – und das sind zum Zeitpunkt der Erstellung dieses Beitrags immerhin 37.581 an der Zahl. Die Kategorien sind auch noch hierarchisch aufgebaut, sodass Sie unter der Vorgabe eines sinnvollen Datenmodells auch noch die Beziehungen zwischen den Kategorien in einer weiteren Tabelle speichern müssen. Die beiden benötigten Tabellen und ihre Daten sehen wie in Bild 3 aus. Nun müssen Sie die Kategorien nur noch vom eBay-Server in die Tabellen bekommen. Dies geschieht mit einem XML-Request an eine der API-Funktionen der Trading-API von eBay. Dieser sieht wie in Listing 1 aus und wird von der Routine KategorienEinlesen <\/b>des Moduls mdlEbay <\/b>erstellt. Die gleiche Routine empfängt auch das XML-Dokument mit der Antwort und wertet die darin enthaltenen Informationen aus. Eine stark gekürzte Fassung dieses Dokuments finden Sie in Listing 2. Eigentlich müssten wir Ihnen an dieser Stelle zeigen, welchen Code Sie verwenden, um den Request zu erstellen und an den Webservice zu senden und die Response auszuwerten, aber im Grunde müssen Sie die Kategorien nur dann und wann neu einlesen, daher scheinen die Funktionen zum Anbieten von Artikeln hierfür wesentlich besser geeignet. Die Routine KategorienEinlesen <\/b>prüft selbstständig, ob eine neue Version der Kategorien vorliegt, und überschreibt nur in diesem Falle die bereits eingelesenen Kategorien.<\/p>\n Listing 1: XML-Request zur Ermittlung der Kategorien und ihrer Beziehungen<\/p>\n Listing 2: Liste der Kategorien und ihrer Beziehungen im XML-Format<\/p>\n Bild 3: Tabellen zum Speichern der Kategorien und deren Beziehung<\/span><\/b><\/p>\n Artikelbilder<\/b><\/p>\n Neben den Kategorien sind die Artikelbilder unter Umständen ein weiteres Element, das Ihrer besonderen Aufmerksamkeit bedarf. Unter Umständen deshalb, weil es prinzipiell zwei Varianten gibt, wie Sie ein Bild zu Ihrem Artikel für eBay hinzufügen:<\/p>\n Im ersten Fall brauchen Sie einfach nur die URL des Bilds anzugeben, im zweiten Fall müssen Sie vorher eine weitere API-Funktion der Trading-API von eBay einsetzen, um das gewünschte Bild hochzuladen. Auch dieser Request ist keine Einbahnstraße, sondern liefert ein Ergebnis zurück – nämlich die URLs, unter denen eBay das Bild in verschiedenen Auflösungen (beispielsweise in der Originalauflösung oder in einer für die Anzeige eines Galeriebilds geeigneten Auflösung) bereitstellt.<\/p>\n Artikel einstellen<\/b><\/p>\n Kommen wir zum eigentlichen Einstellen eines Artikels.<\/p>\n Das Formular frmArtikelEinstellen <\/b>fragt alle für die Minimalkonstellation notwendigen Informationen ab, die wie folgt aussehen:<\/p>\n Bild 4: Auswahl der Hauptkategorie für einen Artikel<\/span><\/b><\/p>\n <\/p>\n Die Tabelle hat drei weitere Felder, in welche die Anwendung nach dem Einstellen des Artikels beziehungsweise nach dem Beenden des Angebots entstehende Informationen einträgt:<\/p>\n Sobald Sie die benötigten Informationen in das Formular eingegeben oder mit den entsprechenden Hilfsmitteln ausgewählt haben, können Sie den Artikel mit einem Klick auf die Schaltfläche Artikel einstellen <\/b>bei eBay anbieten.<\/p>\n Dies löst zunächst die Routine aus Listing 3 aus, die prüft, ob die URL des angegebenen Bilds mit einem Unterstrich (_<\/b>) endet. Dies ist typisch für ein Bild, das man über die entsprechende Funktion der Beispielanwendung auf den von eBay dafür vorgesehenen Webspace hochgeladen hat – die Funktion füllt das Feld BildURL <\/b>dann automatisch mit diesem halbfertigen Weblink, den die Routine ArtikelEinstellen <\/b>dann ergänzt. Dies geschieht gegebenenfalls zwei Mal: einmal für das Bild, das mit der Detailseite des Artikels erscheinen soll, und ein weiteres Mal für das Galeriebild, das eBay in einer geringeren Auflösung speichert.<\/p>\n Listing 3: Vorbereiten der nötigen Daten und Starten des Einstellvorgangs bei eBay<\/p>\n Falls als Bezahlmethode PayPal <\/b>ausgewählt wurde, füllt die Routine die Variable strPayPalEMail <\/b>mit der im Feld PayPalEMail <\/b>angegebenen E-Mail-Adresse. Schließlich wird die Funktion aufgerufen, die alles Weitere erledigt, und eine Meldung ausgegeben, die vom Erfolg oder Misserfolg des Einstellvorgangs berichtet.<\/p>\n War der Einstellvorgang erfolgreich, trägt die Routine noch einige Informationen in das Formular ein und deaktiviert die Schaltfläche zum Einstellen des Artikels.<\/p>\n Request und Response<\/b><\/p>\n Die Funktion AddItem <\/b>ist der eigentliche Ackergaul beim Einstellen eines Artikels über die Trading-API von eBay. Sie erledigt die folgenden Dinge:<\/p>\n All dies geschieht in der Routine aus Listing 4, die im Anschluss beschrieben wird.<\/p>\n Listing 4: Artikel auf eBay einstellen, Teil 1<\/p>\n Request zusammenstellen<\/b><\/p>\n Der Request an den eBay-Webservice besteht aus zwei Teilen. Der erste ist ein XML-Dokument, das zusammengesetzt und in der Variablen objRequest <\/b>gespeichert wird, der zweite sind einige weitere Informationen, die Sie dem Request über verschiedene Aufrufe der Methode setRequestHeader <\/b>mitgeben. All dies speichert ein Objekt des Typs XMLHTTP<\/b> und dieses liefert auch die Methode, um den Request an den Webservice zu schicken. Schließlich erhalten Sie auch das Ergebnis in Form des Response<\/b>-Dokuments über eine Eigenschaft des XMLHTTP<\/b>-Objekts.<\/p>\n Neben dem XMLHTTP<\/b>-Objekt namens objHTTPRequest <\/b>verwenden Sie also zwei DOMDocument<\/b>-Elemente zum Speichern von Request und Response, und außerdem kommt eine ganze Reihe Objekte des Typs IXMLDOMElement <\/b>zum Einsatz. Diese brauchen Sie zum Zusammensetzen des XML-Dokuments mit dem Request. <\/p>\n Die Zeilen nach dem Deklarationsbereich in Listing 4 erledigen genau dies. Sie werten dazu die per Parameter übergebenen Informationen aus und erzeugen entsprechende XML-Elemente. Dabei verwenden Sie, um Schreibarbeit zu vermeiden, die drei Hilfsfunktionen CreateSubElement<\/b>, CreateAttribute <\/b>und CreatePI<\/b>, die Sie im Modul mdlXML <\/b>finden.<\/p>\n So wird das Request-Objekts objRequest <\/b>nach dem Erzeugen zunächst mit entsprechenden Processing Instructions <\/b>ausgestattet (was nichts anderes bedeutet, als dass dort die XML-Version eingetragen wird). Danach erzeugt die Routine in objRoot <\/b>das Element namens AddItemRequest <\/b>und die darunter befindlichen Elemente, bis das XML-Dokument schließlich wie in Bild 5 aussieht.<\/p>\n Bild 5: Beispiel für einen XML-Request<\/span><\/b><\/p>\n Einige Informationen werden dabei nicht aus den Parametern der Funktion gewonnen, sondern aus Get<\/b>…-Funktionen wie GetUserToken<\/b>, die Sie genau wie die Funktion AddItem <\/b>im Modul mdlEbay <\/b>finden – dies gilt auch und insbesondere für die Werte, die dem im Anschluss erstellten XMLHTTP<\/b>-Objekt mit der setRequestHeader<\/b>-Eigenschaft zugewiesen werden.<\/p>\n Danach geht es munter weiter: Das XMLHTTP<\/b>-Objekt namens objHTTPRequest <\/b>wird erzeugt, über setRequestHeader <\/b>mit weiteren Informationen wie etwa den Schlüsseln des eBay-Entwickler-Kontos versehen und mit der send<\/b>-Methode und dem Request-XML-Objekt auf den Weg zum eBay-Webservice gebracht.<\/p>\n Dieser liefert nach der Beendigung des asynchronen Prozesses über die Eigenschaft status <\/b>einen Statuswert, der bestenfalls 200 <\/b>lautet. In dem Fall war der Request erfolgreich und das Ergebnis kann ausgewertet werden, anderenfalls hat der Request nicht funktioniert.<\/p>\n Auch wenn der Request erfolgreich war, kann er Fehler oder zumindest Warnungen zurückliefern, wobei nur Fehler dazu führen, dass der Artikel nicht eingestellt wird. Ein Fehler kann zum Beispiel ein falscher User Token, eine fehlende Information oder ein fehlender Request-Header sein. Sollte dies passieren, gibt es eine gute Nachricht: Die Fehler werden in der Antwort, welche die Eigenschaft responseXML <\/b>des XMLHTTP<\/b>-Objekts in Form eines XML-Dokuments liefert, ausführlich erläutert.<\/p>\n Sollte die genannte Fehlerursache aus irgendeinem Grund einmal nicht aussagekräftig genug sein, achten Sie darauf, dass Sie dem Element ErrorLanguage <\/b>im Request-Dokument den Wert en-US <\/b>mitgeben: In diesem Fall erhalten Sie nämlich eine englische Fehlermeldung, was auf den ersten Blick für den einen oder anderen vielleicht nicht ganz so gut verständlich wie eine deutschsprachige Fehlermeldung ist, aber bei der Suche nach dem Fehler im Internet deutlich weiterhilft – es arbeiten weltweit offensichtlich wesentlich mehr englischsprachige Entwickler mit den eBay-Webservices als deutschsprachige.<\/p>\n Die entscheidende Information über Erfolg oder Misserfolg liefert das Element AddItemResponse\/Ack <\/b>des Response-Dokuments. Liefert dieser den Wert Success <\/b>oder Warning<\/b>, war die Anfrage erfolgreich und die Funktion AddItem<\/b> liest über die Elemente AddItemResponse\/ItemID <\/b>und AddItemResponse\/Timestamp <\/b>die ID des neu eingestellten Artikels bei eBay sowie den Zeitpunkt der Einstellung ein.<\/p>\n Liefert AddItemResponse\/Ack <\/b>den Wert Failure<\/b>, können Sie mit AddItemResponse\/Errors\/ShortMessage <\/b>und AddItemResponse\/Errors\/LongMessage <\/b>eine kurze und eine ausführlichere Version der Fehlermeldung einlesen.<\/p>\n Diese Elemente werden im Rückgabewert der Funktion zusammengefasst; die ItemID <\/b>sowie der TimeStamp <\/b>werden den letzten beiden Parametern der Funktion zugewiesen und anschließend von der aufrufenden Routine ausgelesen.<\/p>\n Das Response-Dokument liefert noch eine Reihe weiterer Informationen, vor allem aber die für die verschiedenen Bereiche anfallenden Gebühren. Diese sollte man bei Experimenten in der Produktivumgebung von eBay durchaus hin und wieder betrachten, da etwa das Einstellen von Artikeln mit speziellen Features wie etwa Galeriebildern durchaus Geld kosten kann.<\/p>\n Beenden von Angeboten<\/b><\/p>\n Wenn Sie einmal verstanden haben, wie ein Request-Objekt zusammengesetzt und verschickt wird und wie Sie die Antwort interpretieren, können Sie beliebige andere Funktionen der Trading-API von eBay einsetzen. Eine davon ist RemoveItem<\/b>. Sie ist noch einfacher gestrickt als AddItem <\/b>und erwartet prinzipiell nur die ItemID <\/b>des zu entfernenden Artikels im Request – neben einigen obligatorischen Informationen.<\/p>\n Auch die Antwort sieht ähnlich wie die der Funktion AddItem <\/b>aus, kann also auf ähnliche Weise ausgewertet werden.<\/p>\n Weitere Funktionen in der Beispieldatenbank<\/b><\/p>\n Da die Beispielfunktionen sehr code-intensiv sind, können wir leider nur auf das Einstellen eines Artikels detailliert eingehen.<\/p>\n Neben der Funktion AddItem <\/b>und RemoveItem <\/b>gibt es noch zwei weitere Aufrufe der Trading-API in der Beispieldatenbank:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n eBay-Artikel wie den in Bild 6 stellen Sie mit den Funktionen der Beispieldatenbank leicht ein. Natürlich gibt es eine Menge Erweiterungsmöglichkeiten. So enthält die Beispieldatenbank noch keine Funktion, die den aktuellen Status der eingestellten Artikel verfolgt, und auch die nachträgliche änderung dieser Artikel ist noch nicht eingebaut (wenngleich das Beenden und Neueinstellen die gleiche Aufgabe erfüllt – Sie müssen jedoch auf eventuell entstehende Kosten achten).<\/p>\n Bild 6: Ein mit der Beispieldatenbank eingestellter Artikel<\/span><\/b><\/p>\n Interessante Möglichkeiten ergeben sich für gewerbliche Händler, denn diese können mit ein wenig Handarbeit eine maßgeschneiderte Lösung zum massenweisen Einstellen von Artikeln aus der Beispieldatenbank erstellen.<\/p>\n Natürlich können Sie es sich als Access-Entwickler so richtig gemütlich machen – zumindest was die Bedienung der Benutzeroberfläche zum Einstellen von Artikeln angeht.<\/p>\n Diese optimiert eBay zwar immer wieder mal, aber eine Internetanwendung wird auf absehbare Zeit nicht mit den Möglichkeiten einer Rich Client-Anwendung mithalten können.<\/p>\n Das zeigt schon die einfache Implementierung des Formulars zur Auswahl der Kategorien – auf der eBay-Webseite müssen Sie dabei immer wieder Informationen nachladen.<\/p>\n Wenn Sie einmal einen Blick auf die Liste allein der Funktionen der Trading-API von eBay werfen, können Sie leicht erkennen, dass Sie beinahe jede Information aus dem System herausziehen können – und das in genau der Form, die Sie benötigen. Lesen Sie sich einmal in die Dokumentation ein, Sie werden schnell feststellen, wie Sie den Umgang mit den eBay-Webservices mit ein paar Access-Kenntnissen schnell beherrschen.<\/p>\n Quellen<\/p>\n [1] Referenz AddItem-Funktion: http:\/\/developer.ebay.com\/DevZone\/XML\/docs\/Reference\/ebay\/AddItem.html<\/p>\n [2] VB6-Beispiel für den Upload von Bildern auf den eBay-Server: http:\/\/ebay.custhelp.com\/cgi-bin\/ebay.cfg\/php\/enduser\/std_adp.phpp_faqid=1116<\/p>\n [3] Übersicht der Befehle der Trading-API von eBay: http:\/\/developer.ebay.com\/DevZone\/XML\/docs\/Reference\/eBay\/index.html<\/p>\n Enthaltene Beispieldateien:<\/p>\n eBay.mdb<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic001_opt.jpeg\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic002_opt.jpeg\")
<\/p>\n<xml version="1.0">\r\n<GetCategoriesRequest xmlns="urn:ebay:apis:eBLBaseComponents">\r\n<RequesterCredentials>\r\n<EBayAuthToken>...<\/EBayAuthToken>\r\n<\/RequesterCredentials>\r\n<DetailLevel>ReturnAll<\/DetailLevel>\r\n<ErrorLanguage>en_US<\/ErrorLanguage>\r\n<WarningLevel>High<\/WarningLevel>\r\n<LevelLimit>8<\/LevelLimit>\r\n<\/GetCategoriesRequest><\/pre>\n<\/p>\n
<xml version="1.0">\r\n<GetCategoriesResponse xmlns="urn:ebay:apis:eBLBaseComponents">\r\n<Timestamp>2008-12-29T16:51:26.838Z<\/Timestamp>\r\n<Ack>Success<\/Ack>\r\n<Version>595<\/Version>\r\n<Build>e595_intl_Bundled_7675009_R1<\/Build>\r\n<CategoryArray>\r\n<Category>\r\n<CategoryID>353<\/CategoryID>\r\n<CategoryName>Antiquitäten & Kunst<\/CategoryName>\r\n<CategoryParentID>353<\/CategoryParentID>\r\n...\r\n<\/Category>\r\n<Category>\r\n<CategoryID>63184<\/CategoryID>\r\n<CategoryName>Juwelier- & Uhrmacherbedarf<\/CategoryName>\r\n<CategoryParentID>281<\/CategoryParentID>\r\n...\r\n<\/Category>\r\n<\/CategoryArray>\r\n<CategoryCount>592<\/CategoryCount>\r\n<UpdateTime>2008-11-04T03:09:43.000Z<\/UpdateTime>\r\n...\r\n<\/GetCategoriesResponse><\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic003_opt.jpeg\")
<\/p>\n\n
\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic004_opt.jpeg\")
<\/p>\n\n
Private Sub ArtikelEinstellen()\r\n Dim strEbayID As String\r\n Dim strDate As String\r\n Dim strGallerieURL As String\r\n Dim strBildURL As String\r\n Dim strBildURLEbayEndung As String\r\n Dim strPayPalEMail As String\r\n If Right(Me.BildURL, 1) = "_" Then\r\n strBildURL = Me.BildURL & "1.JPG"\r\n If Me.GallerieTyp = "Gallery" Then\r\n strGallerieURL = Me.BildURL & "0.JPG"\r\n End If\r\n Else\r\n strBildURL = Me.BildURL\r\n If Me.GallerieTyp = "Gallery" Then\r\n strGallerieURL = Me.BildURL\r\n End If\r\n End If\r\n If Me.Bezahlmethode = "Paypal" Then\r\n strPayPalEMail = Me.PayPalEMail\r\n End If\r\n MsgBox AddItem(Me.SofortKaufenPreis, "EUR", "DE", Me.Beschreibung, Me.Dauer, Me.Ort, _\r\n Me.Bezahlmethode, strPayPalEMail, Me.GallerieTyp, strGallerieURL, strBildURL, _\r\n Me.Versandart.Column(2), Me.Versandkosten, Me.KategorieID.Column(2), Me.Anzahl, _\r\n Me.Startpreis, Me.Titel, strDate, strEbayID)\r\n If Len(strDate) > 0 Then\r\n Me.ebayID = strEbayID\r\n Me!EingestelltAm = CDate(Mid(Replace(strDate, "T", " "), 1, InStr(1, strDate, ".") - 1))\r\n Me.ebayID.SetFocus\r\n Me!cmdArtikelEinstellen.Enabled = False\r\n End If\r\n End Sub<\/pre>\n
\n
Public Function AddItem(strBuyItNowPrice As String, ..., strDate As String, strEbayID As String) _\r\n As String\r\n Dim objRequest As MSXML2.DOMDocument\r\n Dim objItem As MSXML2.IXMLDOMElement\r\n Dim objHTTPRequest As MSXML2.XMLHTTP\r\n Dim objResponse As MSXML2.DOMDocument\r\n ...\r\n Set objRequest = New MSXML2.DOMDocument\r\n AddPI objRequest\r\n Set objRoot = CreateSubElement(objRequest, "AddItemRequest")\r\n CreateAttribute objRoot, "xmlns", "urn:ebay:apis:eBLBaseComponents"\r\n Set objRequesterCredentials = CreateSubElement(objRoot, "RequesterCredentials")\r\n CreateSubElement objRequesterCredentials, "EBayAuthToken", GetUserToken\r\n CreateSubElement objRoot, "ErrorLanguage", GetErrorLanguage\r\n CreateSubElement objRoot, "WarningLevel", "High"\r\n Set objItem = CreateSubElement(objRoot, "Item")\r\n Set objBuyItNowPrice = CreateSubElement(objItem, "BuyItNowPrice", strBuyItNowPrice)\r\n CreateAttribute objBuyItNowPrice, "currencyID", strCurrency\r\n CreateSubElement objItem, "Country", strCountry\r\n CreateSubElement objItem, "Currency", strCurrency\r\n Set objDescription = CreateSubElement(objItem, "Description")\r\n Dim objXMLElement As MSXML2.IXMLDOMCDATASection\r\n Set objXMLElement = objRequest.createCDATASection(strDescription)\r\n objDescription.appendChild objXMLElement\r\n CreateSubElement objItem, "ListingDuration", "Days_" & strListingDuration\r\n CreateSubElement objItem, "Location", strLocation\r\n CreateSubElement objItem, "PaymentMethods", strPaymentMethod\r\n CreateSubElement objItem, "PayPalEmailAddress", strPaypalEmailAddress\r\n Set objPictureDetails = CreateSubElement(objItem, "PictureDetails")\r\n CreateSubElement objPictureDetails, "GalleryType", strGalleryType\r\nIf Not strGalleryType = "None" Then\r\n CreateSubElement objPictureDetails, "GalleryURL", strGalleryURL\r\nEnd If\r\nCreateSubElement objPictureDetails, "PictureURL", strPictureURL\r\nSet objShipping = CreateSubElement(objItem, "ShippingDetails")\r\nSet objShippingServiceOptions = CreateSubElement(objShipping, "ShippingServiceOptions")\r\nCreateSubElement objShippingServiceOptions, "ShippingService", strShippingService\r\nCreateSubElement objShippingServiceOptions, "ShippingServiceCost", strShippingServiceCost\r\nSet objCategory = CreateSubElement(objItem, "PrimaryCategory")\r\nCreateSubElement objCategory, "CategoryID", strCategoryID\r\nCreateSubElement objItem, "Quantity", strQuantity\r\nCreateSubElement objItem, "StartPrice", strStartprice\r\nCreateSubElement objItem, "Title", strTitle\r\nstrCallname = "AddItem"\r\nSet objHTTPRequest = New MSXML2.XMLHTTP\r\nWith objHTTPRequest\r\n.Open "POST", GetRequestURLTrading, False\r\n.setRequestHeader "X-EBAY-API-CALL-NAME", strCallname\r\n.setRequestHeader "X-EBAY-API-REQUEST-ENCODING", "XML"\r\n.setRequestHeader "X-EBAY-API-RESPONSE-ENCODING", "XML"\r\n.setRequestHeader "X-EBAY-API-SITEID", GetSiteID\r\n.setRequestHeader "X-EBAY-API-APP-NAME", GetAppID\r\n.setRequestHeader "X-EBAY-API-VERSION", GetVersion\r\n.setRequestHeader "X-EBAY-API-DEV-NAME", GetDevID\r\n.setRequestHeader "X-EBAY-API-CERT-NAME", GetCertID\r\n.setRequestHeader "X-EBAY-API-COMPATIBILITY-LEVEL", GetCompatibilityLevel\r\n.setRequestHeader "Content-Type", "text\/xml"\r\n.send objRequest\r\n If .status = 200 Then\r\n Set objResponse = objHTTPRequest.responseXML\r\n Debug.Print objResponse.XML\r\n Debug.Print "AddItem_" & Now\r\n strAck = objResponse.selectSingleNode("AddItemResponse\/Ack").nodeTypedValue\r\n If strAck = "Success" Or strAck = "Warning" Then\r\n strResponse = "** Erfolgreich angelegt."\r\n strEbayID = objResponse.selectSingleNode("AddItemResponse\/ItemID").nodeTypedValue\r\n strDate = objResponse.selectSingleNode("AddItemResponse\/Timestamp").nodeTypedValue\r\n ElseIf strAck = "Failure" Then\r\n strResponse = "** Nicht erfolgreich angelegt." & vbCrLf\r\n strResponse = strResponse & "Errors\/ShortMessage: " & objResponse.selectSingleNode _\r\n ("AddItemResponse\/Errors\/ShortMessage").nodeTypedValue & vbCrLf\r\n strResponse = strResponse & "Errors\/LongMessage: " & objResponse.selectSingleNode _\r\n ("AddItemResponse\/Errors\/LongMessage").nodeTypedValue & vbCrLf\r\n End If\r\n Else\r\n Debug.Print "Aufruf fehlgeschlagen, keine Antwort. Status: " & .status\r\n End If\r\n End With\r\n AddItem = strResponse\r\nEnd Function<\/pre>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic005_opt.jpeg\")
<\/p>\n\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_01\/Ebay2-web-images\/pic006_opt.jpeg\")
<\/p>\nDownloads zu diesem Beitrag<\/h3>\n