Send emails by calling SMTP Server directly

[JohnPapa]

I can use MS Access to send emails using an email client like MS Outlook.

I could not find any way for MS Access to send emails directly to the SMTP server, essentially bypassing MS Outlook or any other email client.

Is this possible?

 

[ebs17]

Sending Emails from Access with VBA and CDO

 

[JohnPapa]

Sending Emails from Access with VBA and CDO

Was not aware that CDO existed.

Many thanks. I will try to use it.

 

[JohnPapa]

I tried the following, but unfortunately does not send. The xxx, were replaced for valid email addresses.

It tells me "The transport failed to connect to the server"

What should I put in

config.Fields(cdoSMTPServer).value

Should I put the Outgoing Server of my ISP? I believe I placed the correct server name.

    Dim mail    As CDO.message
    Dim config  As CDO.Configuration
  
    Set mail = CreateObject("CDO.Message")
    Set config = CreateObject("CDO.Configuration")
  
    config.Fields(cdoSendUsingMethod).value = cdoSendUsingPort
    config.Fields(cdoSMTPServer).value = "xxx"
    config.Fields(cdoSMTPServerPort).value = 587   '25
    config.Fields.update
  
    Set mail.Configuration = config
  
    With mail
        .To = "xxx@xxx.org"
        .From = "xxx@xxx.com"
        .Subject = "First email with CDO"
        .TextBody = "This is the body of the first plain text email with CDO."
      
        '.AddAttachment "C:\path\to\a\file.dat"
      
        .send
    End With
  
    Set config = Nothing
    Set mail = Nothing

 

[Gasman]

Why not look and see?

Google Search

 

[JohnPapa]

Why not look and see?

Google Search

Thanks for your reply. I did.

 

[ebs17]

Some SMTP servers require authentication before allowing a connection. Research in this direction.

 

[JohnPapa]

Some SMTP servers require authentication before allowing a connection. Research in this direction.

Will look into what you mention.

I tried to send an email using ISP icdSoft. I used

    config.Fields(cdoSendUsingMethod).value = cdoSendUsingPort
    config.Fields(cdoSMTPServer).value = "mail.s427.sureserver.com"
    config.Fields(cdoSMTPServerPort).value = 587
    config.Fields.update

icdSoft specifies the following

Incoming and outgoing server	Protocol	Port	Information
mail.s427.sureserver.com	IMAPS	993	IMAP with SSL/TLS encryption
POP3S	995	POP3 with SSL/TLS encryption
SMTP	587	Supports SSL/TLS encryption with STARTTLS
SMTPS	465	SMTP with SSL/TLS encryption

 

[JohnPapa]

I will also ask icdSoft

 

[Gasman]

@isladogs dogs has a CDO Email tester app

CDO EMail Tester

Used to test sending HTML or plain text emails directly from Access without using Outlook. Attachments can also be added. Attachments can also be added. EMail settings can optionally be included in the email body.

isladogs.co.uk

 

[JohnPapa]

I asked icdSoft and the email requires authentication with one of my use accounts

I will also ask icdSoft

 

[JohnPapa]

Some SMTP servers require authentication before allowing a connection. Research in this direction.

You were correct. Needs authentication, at least with my ISP.

 

[JohnPapa]

@isladogs dogs has a CDO Email tester app

CDO EMail Tester

Used to test sending HTML or plain text emails directly from Access without using Outlook. Attachments can also be added. Attachments can also be added. EMail settings can optionally be included in the email body.

isladogs.co.uk

I downloaded the example you mention, I ran it. Nothing happens when I click on any of the buttons "Send Email", "Help", "Quit"

 

[Gasman]

Works for me, just using Plain Text as it initially loads??

 

[JohnPapa]

Works for me, just using Plain Text as it initially loads??

I did.

Nothing happens when I click on any of the 4 buttons.

 

[Gasman]

I did.

Nothing happens when I click on any of the 4 buttons.

Do you have any warnings to trust the app?, is it in a trusted location?

 

[JohnPapa]

Do you have any warnings to trust the app?, is it in a trusted location?

No warnings. I will check the trusted location.

 

[JohnPapa]

Do you have any warnings to trust the app?, is it in a trusted location?

No warnings. I will check the trusted location.

 

[JohnPapa]

No warnings. I will check the trusted location.

It was a problem with the trusted location. I would have expected a message. It now gives one of the errors which appear in the documentation.

 

[JohnPapa]

Success! Thanks Gasman (and IslaDogs)