In the past you gave me this great macro that creates a e-mail to the contact I run it from based on a e-mail template. So is there a macro that using a contact again, will create an appointment with that contact not to the Outlook default calendar, but to a calendar that is a sub-folder of the default calendar from Outlook. Here is the macro just in case it would be easy to simply adjust this one. Thanks much and look forward to hearing back re this the other post. Public Sub MacroName
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
' Use a template
Set objMsg = Application.CreateItemFromTemplate("C:\Users\UserName\AppData\Roaming\Microsoft\Templates\TemplateName.oft")
objMsg.To = oContact.Email1Address
'displays the message form so you can enter more text
objMsg.Display
'use this to send to outbox
'objMsg.Send
Set objMsg = Nothing
End Sub
Set oContact = GetCurrentItem()
Dim objMsg As MailItem
' Blank message
' Set objMsg = Application.CreateItem(olMailItem)
' Use a template
Set objMsg = Application.CreateItemFromTemplate("C:\Users\UserName\AppData\Roaming\Microsoft\Templates\TemplateName.oft")
objMsg.To = oContact.Email1Address
'displays the message form so you can enter more text
objMsg.Display
'use this to send to outbox
'objMsg.Send
Set objMsg = Nothing
End Sub