Adding multiple attachments from access into outlook

[Kosmos]

I have traveled the world and the seven seas and I have yet to come up with an answer to this question....
So I'm adding an attachment to an email from access...
The following is the code:

stSQL = "SELECT * FROM AddedToOutlook WHERE DatabaseReferen ceNumber = " _
& recSet1("Databa seReferenceNumb er2")

recSet6.Open stSQL, con6, adOpenKeyset, adLockOptimisti c
If recSet6.EOF Then
recSet6.AddNew

Dim objOutlookRecip As Outlook.Recipie nt
Dim outObj As Outlook.Applica tion
'Dim outItem As Outlook.Contact Item
Dim outAppt As Outlook.Appoint mentItem
Dim outOutlookAttac h As Outlook.Attachm ent
'Set outItem = outObj.CreateIt em(olContactIte m)
Set outObj = CreateObject("o utlook.applicat ion")
Set outAppt = outObj.CreateIt em(olAppointmen tItem)
With recSet8
.AddNew
.Fields("Start" ) = recSet1.Fields( "NotificationDa te2") _
& " " & recSet1.Fields( "ApptTime2" )
.Fields("Subjec t") = "Contract Notification/End" & " " _
& recSet1.Fields( "DatabaseRefere nceNumber2") _
& " " & recSet1.Fields( "Vendor2")
.Fields("Body") = "Contract Notification/End" & " " _
& recSet1.Fields( "DatabaseRefere nceNumber2") _
& " " & recSet1.Fields( "Vendor2")
.Fields("Remind erMinutesBefore Start") = recSet1.Fields( "ReminderMinute s2")
.Update
End With
With outAppt
.Start = recSet1.Fields( "NotificationDa te2") _
& " " & recSet1.Fields( "ApptTime2" )
.Duration = .AllDayEvent
.Subject = "Contract Notification/End" & " " _
& recSet1.Fields( "DatabaseRefere nceNumber2") _
& " " & recSet1.Fields( "Vendor2")
.Body = "Contract Notification/End" & " " _
& recSet1.Fields( "DatabaseRefere nceNumber2") _
& " " & recSet1.Fields( "Vendor2")
.ReminderMinute sBeforeStart = recSet1.Fields( "ReminderMinute s2")
.ReminderSet = True
.RequiredAttend ees = "JPollard@phcs. com"
.Save
End With

'DoCmd.RunComma nd acCmdSaveRecord
recSet6.Fields( "AddedToOutlook ") = True
recSet6.Fields( "DatabaseRefere nceNumber") = recSet1.Fields( "DatabaseRefere nceNumber2")
recSet6.Update
End If

recSet6.Close
'MsgBox "All done...", vbMsgBoxSetFore ground

and from here I go to the end (because the other part is in an If statement and that's in a loop...once the loop's finished, I've gathered the necessary information I would paste the full function but I already have in another place on this site and it is not pertinent to this question because it works...The problem is arising here:

' Send a message to your new contact.
Dim outMail As Outlook.MailIte m
Set outMail = outObj.CreateIt em(olMailItem)
' Fill out & send message...
outMail.To = recSet8.Fields( "RequiredAttend ees")
outMail.Subject = "Contract Notification/End..."
recSet8.MoveFir st
Do Until recSet8.EOF
outAppt.Start = recSet8.Fields( "Start")
outAppt.Duratio n = 15
outAppt.Subject = recSet8.Fields( "Subject")
outAppt.Body = recSet8.Fields( "Body")
outAppt.Reminde rMinutesBeforeS tart = recSet8.Fields( "ReminderMinute sBeforeStart")
outAppt.Reminde rSet = True
outAppt.Require dAttendees = recSet8.Fields( "RequiredAttend ees")
Set outOutlookAttac h = outMail.Attachm ents.Add(outApp t)
recSet8.MoveNex t
Loop
outMail.Body = _
"HI"
outMail.Send

recSet8, as you can see from the beginning code, is where I save all the necessary information...s o I have this outOutlookAttac h which I declared as an attachment (perhaps I need to declare as attachments but I could get that to work either) anyways I have it go through this loop but instead of returning the five results that it should (since there are five results in the table for this particular program at this point in time...but this number varies) it returns the last result in the email...but 5 times....which doesn't seem to make sense since if it is adding something every time, I should get an email with five different appointments or at least an email with just the last appointment.... Can anyone understand what's going on here and how I can add multiple attachments from Access into Outlook? Your help would be greatly appreciated.

[Kosmos]

okay so I have a new version of this that goes like:

' Send a message to your new contact.
Dim outMail As Outlook.MailIte m
Set outMail = outObj.CreateIt em(olMailItem)
Set myattachments = outMail.Attachm ents
' Fill out & send message...
outMail.To = recSet8.Fields( "RequiredAttend ees")
outMail.Subject = "Contract Notification/End..."
recSet8.MoveFir st
Do Until recSet8.EOF
outAppt.Start = recSet8.Fields( "Start")
outAppt.Duratio n = 15
outAppt.Subject = recSet8.Fields( "Subject")
outAppt.Body = recSet8.Fields( "Body")
outAppt.Reminde rMinutesBeforeS tart = recSet8.Fields( "ReminderMinute sBeforeStart")
outAppt.Reminde rSet = True
outAppt.Require dAttendees = recSet8.Fields( "RequiredAttend ees")
'Set outOutlookAttac h = outMail.Attachm ents.Add(outApp t)
myattachments.A dd (outAppt)
recSet8.MoveNex t
Loop
outMail.Body = _
"HI"
outMail.Send

but this still doesn't seem to work. It seems that this would work with multiple files but it's looking for a file extension...is there some file extension for the current temporary project for each declared value?

[Kosmos]

just trying to bring this back up on the list in case anyone has any suggestions...I worked all day yeasterday on this little problem and can't seem to figure it out

[Kosmos]

In continuous follow up on my own question lol...does outlook.attachm ents require a "real" file and outlook.attachm ent require an embeded file?

[maxamis4]

This question I can say yes too. I am looking at your orginial post as well. Have you also tried www.utteraccess .com. Those guys have a code archive that might have what you need.

[Kosmos]

Thanks...I have posted a new version of the code, as well...I generally make it a point not to double post but nobody had gotten back to me on this question :( ....but thank you I will check that other forum out...my newer code is here: http://www.thescripts. com/forum/thread584506.ht ml