Access to Outlook Automation

[lewds]

Is there a possible method to take an Access Memo and transfer to an Outlook journal entry? For a particular day?

 

[lewds]

Here is what I have so far, and this works to save Journal Entry in my default folder.

Dim objOutlook As Object
Dim objItem As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olJournalItem)

objItem.Subject = "No Joke?"
objItem.Start = Now()
objItem.Body = "ha ha ha ha ha"
objItem.Save

Set objOutlook = Nothing

I need to know the objItem that will set the path to a Public Folder?

 

[lewds]

Got it. Not the objitem to set the path

Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyFolder1 = olns.Folders("Public Folders")
Set MyFolder2 = MyFolder1.Folders("All Public Folders")
Set MyFolder3 = MyFolder2.Folders("Division")
Set MyFolder4 = MyFolder3.Folders("PlantID ")
Set MyFolder5 = MyFolder4.Folders("Log Type")
Set MyFolder6 = MyFolder5.Folders("Unit Log")


Set objItem = MyFolder6.Items.Add

objItem.Subject = "No Joke?"
objItem.Start = Now()
objItem.Body = "ha ha ha ha ha"
objItem.Save

Set ol = Nothing