Macro to send a folder

[Mike Miller]

I am currently using a calendar program called Almanac to keep track of
personal events for my family. I have this running at both home and work; my
wife updates the calendar at home and then uses a macro I created in Outlook
to automatically send the calendar files to my work email address. I would
like to start using Outlook instead of Almanac, but don't know how to modify
the macro to work with a Calendar folder within Outlook.

Below is the macro I use currently. Is it possible to use a similar macro
to send a specific folder from Outlook, rather than the external files?

Sub SendAlmanac()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

'Set myOlApp = CreateObject("Outlook.Application")
'Set myItem = myOlApp.CreateItem(olMailItem)
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments

myItem.Recipients.Add "<email address>"
myItem.Subject = "Almanac overlays"

myAttachments.Add "<path and filename, repeated for each file>"

myItem.Send

Set myItem = Nothing
Set myAttachments = Nothing

End Sub