Hi:

Have created this code to allow me to select a folder I want to put my send
mail item in or if I don't want it in a specific folder, I hit "cancel" and
it puts it in my Send Folder.
***********
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objNS As NameSpace
Dim objFolder As MAPIFolder

If Not Autoforward Then

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder

If TypeName(objFolder) "Nothing" Then
Set Item.SaveSentMessageFolder = objFolder
End If

Set objFolder = Nothing
Set objNS = Nothing
End If
Autoforward = False
End Sub
**************

Now what I want to do is when I put an appointment in my calendar, I want
that same popup selection to allow me to COPY that appointment into another
selected calendar (public folder calendar). Is this possible? Thanks.

Wanda