Hi,
I'm using the DoCmd.SendObject command to email shipping documents.
Often there is more than one document to be emailed, but when I use
the DoCmd.SendObject I can't see an option for more than one object,
and it ends up being multiple emails with single attachments.
Does anyone know how to automate attaching multiple objects to a
single email?
Thanks,
Franc.

"franc sutherland" <franc.sutherland (AT) googlemail (DOT) com> wrote

Here is a function I put together with examples from this group

'---------------------
' Create a email with attachments
' stSendTo Email address
' stBody Body of the message
' stSubject Subject of the message
' astAttach Array of strings listing the path to the attachments
' intAcount Number of attachments
' intSend True if the message should be sent without preview

Public Function EmailAttach(ByRef stSendTo As String, ByRef stBody As
String, ByRef stSubject As String, _
astAttach() As String, intAcount As
Integer, intSend As Integer) As Integer

On Error GoTo errEmailAttach

Dim oLook As Object
Dim oMail As Object
Dim i As Integer

Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.CreateItem(0)
With oMail
.To = stSendTo
.Body = stBody
.Subject = stSubject
.ReadReceiptRequested = True

If intAcount <> 0 Then
For i = 1 To intAcount
.Attachments.Add (astAttach(i - 1))
Next
End If

If intSend = True Then
.Send
Else
.Display
End If

End With

Set oMail = Nothing
Set oLook = Nothing
EmailAttach = True
Exit Function

errEmailAttach:

MsgBox "The following error was noted : " & Err.Description & Chr$(10) &
Chr$(13) & _
"Your email may not have been sent.", vbCritical, "Error"

On Error Resume Next
Set oMail = Nothing
Set oLook = Nothing
EmailAttach = False

End Function

franc sutherland <franc.sutherland (AT) googlemail (DOT) com> wrote:

That's one of the many limitations of SendObject.

SendObject's twenty limitations
http://www.granite.ab.ca/access/email/sendobject.htm

You need to use a different solution. One has been posted for Outlook. Also see
Microsoft Access Email FAQ http://www.granite.ab.ca/access/email.htm

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

"Tony Toews [MVP]" <ttoews (AT) telusplanet (DOT) net> wrote in
news:smkos35iinl6685fajlav0n93kpbo3t4g8 (AT) 4ax (DOT) com:

I can let you have some room on my site if you'd like to list them all! :-)

Hi,
Thanks for taking a look.
I'm afraid I can't get it to work however.
How do I input the array showing the locations of the objects to
send?
The final variable says ' ) as integer'. I don't know what to put in
there?
Sorry to be a pain, I'm still quite new to this stuff.
Thanks,
Franc.

paii, Ron wrote:

See inline comments

"franc sutherland" <franc.sutherland (AT) googlemail (DOT) com> wrote

In the event procedure where you now have DoCmd.SendObject; declare an array
of type string. fill the array with paths of the files you want to attach.
You will need to create these files beforehand.

dim fPath(2) as string

fPath(0) = "c:\test\Path\file.txt"
fPath(1) = "c:\test\Path\file2.txt"

Call EmailSend(Someone (AT) noname (DOT) com, "Test message with attachments", "This is
a test",fPath, 2, False)

I normaly put False to preview the message before sending. True will send
the message without preview, which on most system will generate a warning
message from windows.

lyle fairfield <lylefa1r (AT) yah00 (DOT) ca> wrote:

<smile>

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/