Howto send TWO attachment in DoCmd.SendObject..

[petrovlis]

I have now:

DoCmd.SendObject acSendReport, "repProductList", "HTML", Me.Email, , , StrSubject, strMessagetext

I like to make it with two attachments.

HOW ??

Thnaks William.

 

[HarleyQuinn]

Hi William,

As far as I know .SendObject doesn't support multiple attachments. You may be better off looking at/using Automation (with Outlook if you are using it) if you need to send multiple attachments.
Another idea (not sure if it is applicable in your case) is that you could just send two e-mails, one with each of the attachments?

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[orna]

Try that:
Dim myApp As New Outlook.Application
Dim myItem As Outlook.MailItem

Set myItem = myApp.CreateItem(olMailItem)
With myItem
.To = address
.Attachments.Add "c:\a.txt"
.Attachments.Add "c:\abc.txt"
.Subject = "SubjectSomthing"
.ReadReceiptRequested = False
.Body = str
.Display
End With
myItem = Nothing
myApp = Nothing

 

[HarleyQuinn]

There you go, Outlook Automation.

Just add a refernce to the 'Microsoft Outlook X.0 Object Library', X being the version of the library you have on your machine.

Harleyquinn

---------------------------------
For tsunami relief donations