Sending E-mails with Outlook from A2002

[Dirk Goossens]

Hello!

I'm sending E-mails to mailadresses in a table, using the code below.
How can I send more than one attachment?
Access can find the file to be send in this field: MY_EMAILATTACHM ENT_FIELD
I have also a field with the name MY_EMAILATTACHM ENT_FIELD2
Combining the field names with an &-sign doesn't work, even when I put a ;
in between.
Thanks for a helping hand!

Dirk
= = = = = = WORKING CODE FOR A SINGLE ATTACHTMENT = = = = = = = =
Private Sub ButtonMakingMai ls_Click()

On Error GoTo LABEL1

Dim evFile As String

Dim Response As Byte

Dim rs As Recordset

Dim olApp As Outlook.Applica tion, olItem As Outlook.MailIte m

Set olApp = New Outlook.Applica tion

Set rs = CurrentDb.OpenR ecordset("selec t * from MYTABLE where
([MY_E-MAIL_FIELD] Is Not Null)")

Response = MsgBox("Start sending E-Mails via Outlook?", vbYesNo)

If Response = vbNo Then Exit Sub

Do Until rs.EOF

Set olItem = olApp.CreateIte m(olMailItem)

olItem.To = rs("MY_E-MAIL_FIELD")

olItem.Subject = Me.MY_EMAILSUBJ ECT_FIELD

olItem.Body = Me.MY_EMAILBODY _FIELD

If Me.My_EMAILATTA CHMENT_FIELD = "" Then

Else

evFile = Me.MY_EMAILATTA CHMENT_FIELD

' Here, two invalid lines - Error message: Invalid file or path name

' evFile = Me.MY_EMAILATTA CHMENT_FIELD & "; " &
Me.MY_EMAILATTA CHMENT_FIELD2

' evFile = Me.MY_EMAILATTA CHMENT_FIELD & " " &
Me.MY_EMAILATTA CHMENT_FIELD2
' End of the not working part

olItem.Attachme nts.Add evFile

End If

If Me.MY_AUTOSEND_ FIELD = -1 Then

olItem.Send

Set olItem = Nothing

Else

olItem.Display

Set olItem = Nothing

Response = MsgBox("Next email?", vbYesNo)

If Response = vbNo Then

rs.Close

Exit Sub

End If

End If

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

Set olApp = Nothing

LABEL2:

Exit Sub

LABEL1:

MsgBox Err.Description

Resume LABEL2:

End Sub

[Rick Wannall]

Use a separate .Add line for each file.