About 12 years ago I wrote a membership program for a local charity in VFP. It has continued to work with the odd tweak ever since. It uses Microsoft CDO to send emails – I know CDO is obsolete, so is VFP but it works! 😊. The code is below, cribbed from SweetPotatoSoftware many years ago:
lcSchema = http://schemas.microsoft.com/cdo/configuration/
loConfig = CREATEOBJECT("CDO.Configuration")
WITH loConfig.FIELDS
.ITEM(lcSchema + "smtpserver") = "smtp.ionos.co.uk"
.ITEM(lcSchema + "smtpserverport") = 587
.ITEM(lcSchema + "sendusing") = 2
.ITEM(lcSchema + "smtpauthenticate") = .T.
.ITEM(lcSchema + "smtpusessl") = .F.
.ITEM(lcSchema + "sendusername") = lcUserName
.ITEM(lcSchema + "sendpassword") = lcPassword
.UPDATE
ENDWITH
I have been advised by our email provider that we must upgrade to TLS 1.2. I had hoped that it would be as simple as changing usessl to True but that doesn’t appear to be the case. I am out of my depth having been away from serious programming for many years. Any help or suggestions would be gratefully received!
John Weller
07976 393631
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---
Apparently you can:
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
On 22-Feb-2023 2:15 PM, Alan Bourke wrote:
Apparently you can:
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.
Hi Alan
Many thanks! I tried that and it failed but a bit more research showed me I had to change the port after which it worked fine - much to my relief.
John
John Weller 07976 393631
-----Original Message----- From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of Alan Bourke Sent: Wednesday, February 22, 2023 8:46 AM To: profoxtech@leafe.com Subject: Re: CDO Email
Apparently you can:
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
-- Alan Bourke alanpbourke (at) fastmail (dot) fm
[excessive quoting removed by server]
John, what port did you change to? I use 465 for my CDO email, but apparently 587 is generally preferred.
Mike
-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of John@johnweller.co.uk Sent: Thursday, February 23, 2023 3:24 AM To: profoxtech@leafe.com Subject: RE: CDO Email
Hi Alan
Many thanks! I tried that and it failed but a bit more research showed me I had to change the port after which it worked fine - much to my relief.
John
John Weller 07976 393631
-----Original Message----- From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of Alan Bourke Sent: Wednesday, February 22, 2023 8:46 AM To: profoxtech@leafe.com Subject: Re: CDO Email
Apparently you can:
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
-- Alan Bourke alanpbourke (at) fastmail (dot) fm
[excessive quoting removed by server]
I was using 587 and it didn't work so I changed it to the one recommended by the email provider which was 465 - that worked 😊
John
John Weller 07976 393631
-----Original Message----- From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of Michael Glassman Sent: Friday, February 24, 2023 1:04 AM To: profoxtech@leafe.com Subject: RE: CDO Email
John, what port did you change to? I use 465 for my CDO email, but apparently 587 is generally preferred.
Mike
-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of John@johnweller.co.uk Sent: Thursday, February 23, 2023 3:24 AM To: profoxtech@leafe.com Subject: RE: CDO Email
Hi Alan
Many thanks! I tried that and it failed but a bit more research showed me I had to change the port after which it worked fine - much to my relief.
John
John Weller 07976 393631
-----Original Message----- From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of Alan Bourke Sent: Wednesday, February 22, 2023 8:46 AM To: profoxtech@leafe.com Subject: Re: CDO Email
Apparently you can:
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
-- Alan Bourke alanpbourke (at) fastmail (dot) fm
[excessive quoting removed by server]