Hi guys...

Been trying to send e-mail using CDO 1.2.1 from my Access ADP project as I want to bypass MS Outlook. However, I am facing some AccessDenied error...

The error message is as stated:
[Collaboration Data Objects - [E_ACCESSDENIED(80070005)]]
Stepping through my code, the error is generated at the .Send Statement (see code below).

Any help is greatly appreciated. Thanks in advance.

Below is my code:

Private Sub CmdSendEmail_Click()
    Dim cdoSession As MAPI.Session
    Dim cdoFolder As MAPI.Folder
    Dim cdomessages As MAPI.Messages
    Dim cdomessage As MAPI.Message
    Dim cdoRecipient As MAPI.Recipient
    Dim cdoRecipients As MAPI.Recipients
    Set cdoSession = New MAPI.Session
    cdoSession.Logon "Outlook"

    Set cdoFolder = cdoSession.Outbox
    Set cdomessages = cdoFolder.Messages
    Set cdomessage = cdomessages.Add
    Set cdoRecipients = cdomessage.Recipients

    With cdomessage
        .Text = Me!txtMessage
        .Subject = "Issue Resolution"
        Set cdoRecipient = cdoRecipients.Add
        cdoRecipient.Name = "Scripts"
        cdoRecipient.Type = CdoTo
        cdoRecipient.Address = "SMTP:[email protected]"
        .Update '<- No problem here.
        .Send '<- This is where the error is generated

    End With

    cdoSession.Logoff
    Set cdoSession = Nothing

End Sub

Scripts82

__________________
Scripts82

That code looks like you are going through Outlook, not avoiding it. Here is generic code to avoid outlook.

'-----Code Starts-----
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Sample Subject"
objMessage.Sender = "[email protected]"
objMessage.To = strRecipient
objMessage.TextBody = "Message text"

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==
'-----Code Ends-----

HTH

mmcdonal

Thanks mmcdonal
Think what you are using is the CDOEX.dll Library right?
Made a switch to that yesterday and its working...
Code is as what you have.

Thanks Nevertheless!

Scripts82