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

Unless this e-mail needs to be sent from a web server, you're using the wrong
programming library. CDOSYS (which is what you're using) is much different
from CDO 1.21, which is an alternative programming library compared to using
the Outlook Object Model with VBA (or any COM aware development language).

If you need to send e-mail with any mail client, you need to use the Simple
MAPI library:

Programming with Simple MAPI:
http://msdn.microsoft.com/library/en...asp?frame=true

But you should really take a look at Access' SendObject method, which allows
you to e-mail Access objects easily. It should do everything you need.

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"David" wrote:

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