Skip to main content
Published: June 09 2011, 6:02:00 AMUpdated: November 28 2020, 9:49:00 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 product identifier. Both UPC and MPN are passed in the request and eBay uses the first matching product to prefill the item listing.

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 UPC As String = "753759090913"
'Garmin nuvi 1350 GPS
Dim Brand As String = "Garmin"
Dim MPN As String = "010-00782-20"

'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.AU
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 = New CategoryType()
item.PrimaryCategory.CategoryID = "156955"

item.ProductListingDetails = New ProductListingDetailsType()

'Specifying UPC as the product identifier. Other applicable product identifiers
'include ISBN, EAN, Brand-MPN.

item.ProductListingDetails.UPC = UPC

'If multiple product identifiers are specified, eBay uses the first one that
'matches a product in eBay's catalog system.
item.ProductListingDetails.BrandMPN = New BrandMPNType()
item.ProductListingDetails.BrandMPN.Brand = Brand
item.ProductListingDetails.BrandMPN.MPN = MPN

'For listing to be pre-filled with product information from the catalog
item.ProductListingDetails.IncludePrefilledItemInformation = True

'Include the eBay stock photo with the listing if available and use it as the gallery picture
item.ProductListingDetails.IncludeStockPhotoURL = True
item.ProductListingDetails.UseStockPhotoURLAsGallery = True
item.ProductListingDetails.UseStockPhotoURLAsGallerySpecified = True

'If multiple prod matches found, list the item with the 1st product's information
item.ProductListingDetails.UseFirstProduct = True
' List the item even if no product match found
item.ProductListingDetails.ListIfNoProduct = True

'Add pictures
item.PictureDetails = New PictureDetailsType()

'Specify GalleryType
item.PictureDetails.GalleryType = GalleryTypeCodeType.Gallery
item.PictureDetails.GalleryTypeSpecified = True

AddFPItemCall.Item = item

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

Console.WriteLine(AddFPItemCall.ApiResponse.ItemID)
End Sub End Class End Namespace

How well did this answer your question?