Hi - I'm trying to attach a comma-delimited output file created from ACCESS
to an email message to send to a supplier. Someone at the ACCESS newsgroup
suggested the following code:

Public Sub SendMailCDO(ToWHom As String, FromWhom As String, Subject As
String, Body As String, Optional AttachmentPath As String)

Const cdoDefaults = -1
Const cdoIIS = 1
Const cdoOutlookExpress = 2

Dim Message As Object 'CDO.Message

Set Message = CreateObject("CDO.Message")

With Message
'Use dafault config from system
.Configuration.Load -1

.To = ToWHom
If Len(FromWhom) 0 Then
.From = FromWhom
End If

.Subject = Subject

.TextBody = Body

If Len(AttachmentPath) 0 Then
.AddAttachment AttachmentPath
End If

.Send

End With

End Sub

I get a runtime error (at the .Send, I imagine) which says that the message
could not be sent to the server.

Can you shed any light on this? A couple of possibilites that have occurred
to me a

(1) Only works with Outlook, not OE - I'll use Outlook if that'll fix it
(2) How does the routine know I want to send to OE anyway?
(3) Does the CDO library support this functionality from XP?

Thanks,
dave
--
Dave
PHONE SOURCE
www.thephonesource.com