Creating a new item in a custom folder

  • Thread starter Thread starter Kelley
  • Start date Start date
K

Kelley

I keep my customer information in a contacts folder called Customers
which is a sub folder of my Main Personal Folders, so it's on the same
level as the default Contacts folder. I successfully use VBA to pull
fields out of the Customers folder and to update fields in a Customer
contact item. However, the following code places the new record into
the default Contacts folder instead of the Customers folder.

Can anyone tell me what I'm doing wrong here?'

Using Outlook 2002, the VBA app is a project in Excel 2002.

Thanks,
_________

Option Explicit

Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim Fldr As Outlook.MAPIFolder
Dim olCi As Outlook.ContactItem
Dim olItems As Outlook.Items
Dim custFldr As Outlook.MAPIFolder

Private Sub btnOK_Click()

If txtLast.Value = "" Then
Beep
Else
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.Folders(1)
Set custFldr = Fldr.Folders("Customers")
Set olCi = olApp.CreateItem(olContactItem)

With olCi
.LastName = Me.txtLast.Value
.FirstName = Me.txtHusband.Value
.Spouse = Me.txtWife.Value
.MailingAddressStreet = Me.txtStreet.Value
.MailingAddressCity = Me.txtCity.Value
.MailingAddressPostalCode = Me.txtZip.Value
.Save

End With

[LName] = olCi.LastName
[Fname] = olCi.FirstName
[Sname] = olCi.Spouse
[AddrStreet] = olCi.MailingAddressStreet
[AddrCity] = olCi.MailingAddressCity
[AddrZip] = olCi.MailingAddressPostalCode



Unload Me
End If

End Sub
 
Back
Top