Skip to main content
Published: May 02 2011, 6:23:00 AMUpdated: November 28 2020, 9:25:01 PM

Here is a sample written in VB.NET using the .NET SDK (v715) for listing a fixed price item to the AU 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.

/* 2012-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()
Try
'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 = "687"
context.Site = SiteCodeType.Australia

'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.AU
item.Currency = CurrencyCodeType.AUD

'Track item by SKU
item.InventoryTrackingMethod = InventoryTrackingMethodCodeType.SKU
item.SKU = "ITMSPECS12345"

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.Location = "Australia"

'Specify Shipping Services
item.DispatchTimeMax = 3
item.ShippingDetails = New ShippingDetailsType()
item.ShippingDetails.ShippingServiceOptions = New ShippingServiceOptionsTypeCollection()

Dim shipservice1 As New ShippingServiceOptionsType()
shipservice1.ShippingService = "AU_Courier"
shipservice1.ShippingServicePriority = 1
shipservice1.ShippingServiceCost = New AmountType()
shipservice1.ShippingServiceCost.currencyID = CurrencyCodeType.AUD
shipservice1.ShippingServiceCost.Value = 1.0

shipservice1.ShippingServiceAdditionalCost = New AmountType()
shipservice1.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.AUD
shipservice1.ShippingServiceAdditionalCost.Value = 1.0

item.ShippingDetails.ShippingServiceOptions.Add(shipservice1)

Dim shipservice2 As New ShippingServiceOptionsType()
shipservice2.ShippingService = "AU_Express"
shipservice2.ShippingServicePriority = 2
shipservice2.ShippingServiceCost = New AmountType()
shipservice2.ShippingServiceCost.currencyID = CurrencyCodeType.AUD
shipservice2.ShippingServiceCost.Value = 4.0

shipservice2.ShippingServiceAdditionalCost = New AmountType()
shipservice2.ShippingServiceAdditionalCost.currencyID = CurrencyCodeType.AUD
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.AUD
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 = "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://i2.sandbox.ebayimg.com/03/i/00/3f/c5/92_1.JPG?set_id=8800004005")

AddFPItemCall.Item = item

'set the item and make the call
AddFPItemCall.Execute()

Console.WriteLine(AddFPItemCall.ApiResponse.Ack + " " + AddFPItemCall.ApiResponse.ItemID)
Catch ex As Exception


End Try

End Sub End Class End Namespace

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