This is my code so far:

Sub Outlook_Calendar_Subfolder()

Dim olApp As Object
Dim olApt As Object
Dim olSubject As Range
Dim olBody As Range
Dim olDate As Range
Dim olLocation As Range

Set olSubject = Sheet1.Cells.Item(1, "A")
Set olBody = Sheet1.Cells.Item(1, "B")
Set olDate = Sheet1.Cells.Item(1, "C")
Set olLocation = Sheet1.Cells.Item(1, "D")
Set olApp = CreateObject("Outlook.Application")
Set olApt = olApp.CreateItem(1)
Set myNameSpace = olApp.GetNameSpace("MAPI")
Set myfolder = myNameSpace.GetDefaultFolder(9)
Set mynewfolder = myfolder.Folders("123 Anywhere St.")

With olApt
..AllDayEvent = True
..Start = olDate
..Subject = olSubject
..Location = olLocation
..Body = olBody
..BusyStatus = 0
..ReminderSet = False
..Save
End With

Set olApp = Nothing
Set olApt = Nothing

End Sub

As of now it still simply copies the information to the default folder.
How do i get it to copy the information into the referenced subfolder?


--
littlegreenmen1
------------------------------------------------------------------------
littlegreenmen1's Profile: http://www.excelforum.com/member.php...o&userid=23978
View this thread: http://www.excelforum.com/showthread...hreadid=385266