View Single Post
  #6  
Old February 8th 07, 07:13 AM posted to microsoft.public.outlook.program_vba
Dasha
external usenet poster
 
Posts: 18
Default copy values from one to another form

It's easier then I thought:
Set olns = Item.Application.GetNameSpace("MAPI")
Set MyFolder1 = olns.Folders("Public Folders")
Set MyFolder2 = MyFolder1.Folders("All Public Folders")
Set MyFolder3 = MyFolder2.Folders("payment")
Set MyItem = MyFolder3.Items.Add

'filling fields
MyItem.UserProperties("fCardType").Value =
Item.UserProperties("fCardType").Value

Thanks to all

Ads