Skip to main content
Published: July 23 2010, 5:47:00 PMUpdated: November 28 2020, 8:22:02 PM

Here is a sample written in VB.NET using the .NET SDK (v817) for listing a fixed price item to the UK site item using the AddFixedPriceItem call.

This sample shows how to specify item specifics as name-value pairs for the listing. Whenever possible, it is recommended that the item be listed with item specifics.

Below is the code. Corresponding SOAP request is attached with this article.

© 2010-2013 eBay Inc., All Rights Reserved
'Licensed under CDDL 1.0 - http://opensource.org/licenses/cddl1.php


Imports eBay.Service.Call Imports eBay.Service.Core.Sdk Imports eBay.Service.Util Imports eBay.Service.Core.Soap Namespace Trading_Samples Public Class AddFixedPriceItem 'AddFPItem - Listing with ItemSpecifics Private Sub AddFPItemWithItemSpecifics() 'create the context Dim context As New ApiContext() 'set the User token context.ApiCredential.eBayToken = "Your token" 'set the server url context.SoapApiServerUrl = "https://api.sandbox.ebay.com/wsapi" 'enable logging context.ApiLogManager = New ApiLogManager() context.ApiLogManager.ApiLoggerList.Add(New FileLogger("log.txt", True, True, True)) context.ApiLogManager.EnableLogging = True 'set the version context.Version = "817" context.Site = SiteCodeType.UK 'create the call object Dim AddFPItemCall As New AddFixedPriceItemCall(context) AddFPItemCall.AutoSetItemUUID = True 'create an item object and set the properties Dim item As New ItemType() 'set the item condition depending on the value from GetCategoryFeatures item.ConditionID = 1000 'new with tags 'Basic properties of a listing item.Country = CountryCodeType.GB item.Currency = CurrencyCodeType.GBP 'Track item by SKU item.InventoryTrackingMethod = InventoryTrackingMethodCodeType.SKU item.SKU = "ITMSPECS1234" item.Description = "test - do not bid or buy" item.Title = "test - do not bid or buy" item.SubTitle = "Test Item" item.ListingDuration = "Days_7" item.PaymentMethods = New BuyerPaymentMethodCodeTypeCollection() item.PaymentMethods.Add(BuyerPaymentMethodCodeType.PayPal) item.PayPalEmailAddress = "test@test.com" item.PostalCode = "SE6 1AL" 'Specify Shipping Services item.DispatchTimeMax = 3 item.ShippingDetails = New ShippingDetailsType() item.ShippingDetails.ShippingServiceOptions = New ShippingServiceOptionsTypeCollection() Dim shipservice1 As New ShippingServiceOptionsType() shipservice1.ShippingService = "UK_SellersStandardRate" shipservice1.ShippingServicePriority = 1 shipservice1.ShippingServiceCost = New AmountType() shipservice1.ShippingServiceCost.currencyID = CurrencyCodeType.GBP shipservice1.ShippingServiceCost.Value = 1.0 shipservice1.ShippingServiceAdditionalCost = New AmountType() shipservice1.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.GBP shipservice1.ShippingServiceAdditionalCost.Value = 1.0 item.ShippingDetails.ShippingServiceOptions.Add(shipservice1) Dim shipservice2 As New ShippingServiceOptionsType() shipservice2.ShippingService = "UK_RoyalMailFirstClassStandard" shipservice2.ShippingServicePriority = 2 shipservice2.ShippingServiceCost = New AmountType() shipservice2.ShippingServiceCost.currencyID = CurrencyCodeType.GBP shipservice2.ShippingServiceCost.Value = 4.0 shipservice2.ShippingServiceAdditionalCost = New AmountType() shipservice2.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.GBP shipservice2.ShippingServiceAdditionalCost.Value = 1.0 item.ShippingDetails.ShippingServiceOptions.Add(shipservice2) 'Specify Return Policy item.ReturnPolicy = New ReturnPolicyType() item.ReturnPolicy.ReturnsAcceptedOption = "ReturnsAccepted" item.Quantity = 10 item.StartPrice = New AmountType() item.StartPrice.currencyID = CurrencyCodeType.GBP item.StartPrice.Value = 10 item.PrimaryCategory = New CategoryType() item.PrimaryCategory.CategoryID = "57991" 'Add Item Specifics item.ItemSpecifics = New NameValueListTypeCollection() Dim ItemSpecs As New NameValueListTypeCollection() Dim nv1 As New NameValueListType() Dim valueCol1 As New StringCollection() nv1.Name = "Brand" valueCol1.Add("Ralph Lauren") nv1.Value = valueCol1 ItemSpecs.Add(nv1) Dim nv2 As New NameValueListType() Dim valueCol2 As New StringCollection() nv2.Name = "Collar Size" valueCol2.Add("L") nv2.Value = valueCol2 ItemSpecs.Add(nv2) Dim nv3 As New NameValueListType() Dim valueCol3 As New StringCollection() nv3.Name = "Colour" valueCol3.Add("Black") nv3.Value = valueCol3 ItemSpecs.Add(nv3) item.ItemSpecifics = ItemSpecs 'Add pictures item.PictureDetails = New PictureDetailsType() item.PictureDetails.PictureURL = New StringCollection() item.PictureDetails.PictureURL.Add("http://i.ebayimg.sandbox.ebay.com/00/s/MzcwWDUwMA==/$(KGrHqVHJCkFDJT8SvTpBReF12)8(Q~~60_1.JPG?set_id=8800005007") AddFPItemCall.Item = item 'set the item and make the call AddFPItemCall.Execute() Console.WriteLine(AddFPItemCall.ApiResponse.Ack + " " + AddFPItemCall.ApiResponse.ItemID) End Sub End Class End Namespace

 

Attachments
How well did this answer your question?
Answers others found helpful