Skip to main content
Published: June 09 2011, 6:49:00 AMUpdated: November 28 2020, 9:49:31 PM

If you list an item with product data, your item has better chances of being surfaced in the search results. Here is a VB.NET AddFixedPriceItem sample for listing an item with eBay's product identifier (ePID). This sample has been written using the .NET SDK v715

References:

Listing with Product Data

Finding ePID

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 using product identifier
    Private Sub AddFPItemCatalog()

'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 = "715"
context.Site = SiteCodeType.Australia

Dim ePID As String = "ePID85135201"
'Apple iPhone 3GS Black (16GB) Cell Phone
'create the call object
Dim AddFPItemCall As New VerifyAddFixedPriceItemCall(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
'Basic properties of a listing
item.Country = CountryCodeType.GB
item.Currency = CurrencyCodeType.AUD

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

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_Regular"
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.CategoryID = "";
item.ProductListingDetails = New ProductListingDetailsType()
item.ProductListingDetails.ProductReferenceID = ePID
item.ProductListingDetails.IncludePrefilledItemInformation = True
item.ProductListingDetails.IncludeStockPhotoURL = True

AddFPItemCall.Item = item

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

Console.WriteLine(AddFPItemCall.ApiResponse.ItemID & " listed against " & ePID)

End Sub End Class End Namespace

How well did this answer your question?