Tests and Notes for EMail Threads

**DocAElstein** · 01-15-2020, 09:55 PM

[code][color=black]
' '_- Program_(iv)
Sub CDOSendMailAttempt(ByRef FlagerMe As Boolean, ByVal UsrNme As String, ByVal PssWrd As String, ByVal SlutPussly As String, ByVal PatheticCake As String, ByVal ServiceChef As String, ByVal WayntkerUsed As String, ByVal ConnectingDoor As String, ByVal WaitSecs As String, ByVal Snd_Frm As String)
'Rem1 The deep down fundamental stuff , which includes stuff been there the longest goes by the name of Component Object Model. Stuff which is often, but not always, later stuff, or at a slightly higher level of the computer workings, or slightly more to a specific application ( an actual running "runtime" usage / at an instance in time , "instance of" ) orientated goes to the name of Object Linking and Embedding. At this lower level, there are protocols for communicating between things, and things relate are grouped into the to Office application available Library, CDO. An important object there goes by the name of Message.
'Rem 1) Library made available ====================#
With CreateObject("CDO.Message") ' Folders mostly but not always are in some way referenced using dll, either as noted with the extension or maybe refered to as dll Files or dll API files.
'Rem 2 ' Intraction protocols are given requird infomation and then set
'2a) 'With --------------------* my Created LCDCW Library, (LCD 1.0 Library ) (Linking Configuration Data_Cods Wollups) which are used and items configured for the Exchange at Microsoft's protocol thereof; http://schemas.microsoft.com/cdo/configuration/ ......This section provides the configuration information for the remote SMTP server
Dim LCD_CW As String: Let LCD_CW = "http://schemas.microsoft.com/cdo/configuration/" ' Linking Configuration Data : defines the majority of fields used to set configurations for various Linking Collaboration (LCD) Objects Cods Wollops: These configuration fields are set using an implementation of the IConfiguration.Fields collection. https://msdn.microsoft.com/en-us/library/ms872853(v=exchg.65).aspx
.Configuration(LCD_CW & "smtpusessl") = SlutPussly ' ' ' HTTPS (Hyper Text Transfer Protocol Secure) appears in the URL when a website is secured by an SSL certificate. The details of the certificate, including the issuing authority and the corporate name of the website owner, can be viewed by clicking on the lock symbol on the browser bar. in short, it's the standard technology for keeping an internet connection secure and safeguarding any sensitive data that is being sent between two systems, preventing criminals from reading and modifying any information transferred, including potential personal details. ' SSL protocol has always been used to encrypt and secure transmitted data
.Configuration(LCD_CW & "smtpauthenticate") = PatheticCake ' ... possibly this also needed .. When you also get the Authentication Required Error you can add this three lines.
' ' Sever info
.Configuration(LCD_CW & "smtpserver") = ServiceChef ' "smtp.gmail.com" ' "securesmtp.t-online.de" '"smtp.gmail.com" "smtp.mail.yahoo.com" "smtp.live.com" "pod51017.outlook.com" "smtp-mail.outlook.com" "smtp.live.com" "securesmtp.t-online.de" 465 SMTP is just used to mean the common stuff..... Simple Mail Transport Protocol (SMTP) server is used to send outgoing e-mails. The SMTP server receives emails from your Mail program and sends them over the Internet to their destination.
' The mechanism to use to send messages.
.Configuration(LCD_CW & "sendusing") = WayntkerUsed ' Based on the LCD_OLE Data Base of type DBTYPE_I4 , 2 will use the default account
.Configuration(LCD_CW & "smtpserverport") = ConnectingDoor ' 465 or 25 for t-online.de ' 465 'or 587 'or 25 ' The port of type somehow refered to by the last line
.Configuration(LCD_CW & "sendusername") = UsrNme ' .... "server rejected your response". AFAIK : This will happen if you haven't setup an account in Outlook Express or Windows Mail .... Runtime error '-2147220975 (800440211)': The message could not be sent to the SMTP server. The transport error code is 0x80040217. The server response is not available
.Configuration(LCD_CW & "sendpassword") = PssWrd
' Optional - How long to try ( End remote SMTP server configuration section )
.Configuration(LCD_CW & "smtpconnectiontimeout") = 30 ' Or there Abouts

' Intraction protocol is Set/ Updated
.Configuration.fields.Update ' 'Not all infomation is given, some will have defaults. - possibly this might be needed initially .. .Configuration.Load -1 ' CDO Source Defaults
'End With ' -------------------* my Created LCDCW Library ( Linking Configuration Data Cods Wollups) which are used and items configured for the Exchange at Microsoft's protocol therof;
'2b) ' Data to be sent
.to = "123456789012@t-online.de"
.CC = "" ' 1234567890@gmail.com"
.BCC = ""
.From = Snd_Frm ' """Avinash_gMail_Send"" <" & UsrNme & ">"
.Subject = "Hello from " & UsrNme & "" ' "Pro für " & DieseArbeitsmappe1.LisWbProWb.Name
.TextBody = "Hi" & vbCr & vbLf & "Testing automated EMail sending. Please ignoor this EMail"
'.HTMLBody = MyLengthyStreaming
'.htmlbody = ProTble
' Add text file attachments
' make file if it does not exist, or add to it
Dim Highway1 As Long: Let Highway1 = FreeFile(0) [color=darkgreen]'range 1

**DocAElstein** · 10-20-2019, 12:28 AM

**DocAElstein** · 01-15-2020, 01:39 AM

**DocAElstein** · 01-15-2020, 09:50 PM

LCJÖSJSÖJ

**DocAElstein** · 01-15-2020, 09:53 PM

DJJDASO

**DocAElstein** · 01-15-2020, 09:55 PM

CJKÖLSC

**DocAElstein** · 11-15-2022, 01:45 AM

**DocAElstein** · 11-15-2022, 11:43 AM

In support of this forum post
https://eileenslounge.com/viewtopic.php?f=27&t=38916

The Problem

Previously we could use our normal Username and password for any gmail account in a CDO send mail type coding, (provided that we make one adjustment to our default account settings: We must enable less secure apps in gmail account
https://www.youtube.com/watch?v=Ee7PDsbfOUI )
However, since end of May 2022, Google gmail are usually not allowing this to be done.
https://i.postimg.cc/DwWgVM37/Less-S...-available.jpg
Less Secure Apps no longer available.JPG

So if we now run a previously working CDO send mail which uses a normal free mail gmail account, then we experience the typical error which we used to get if we had not enable less secure apps:
https://i.postimg.cc/bNVTBjM6/Typica...ecure-Apps.jpg
TypicalErrorForNoEnableLessSecureApps.jpg

In this and the next and nearby posts, a solution will be discussed.

A Solution
The short answer:
There has been in parallel for some time, (I don’t know exactly how long), another way to use gmail in CDO send type codings. It finally works similar to how other Email providers have always organised these things: You need to organise a second password to be used in things such as the CDO send mail codings.

The solution often goes under the names of, or you hear often the word when discussing these things of: _ "2 step verification"_ ; _ "Apps passwword"

Here is the shortened story of what you actually do:
There are broadly speaking 2 main parts to what you do
_Part1) You must enable (Turn on) 2 step verification on the gmail account
_Part2) You must generate an "Apps password"
_3) That "Apps password" is now an extra second password for that gmail account which, amongst other things, is what you use in the sendpassword part of the configurations in a CDO send message type coding. ( In other words, you no longer use your main password in the coding. Instead use the generated "Apps password". )

Ref
https://stackoverflow.com/questions/...dditional-info
https://stackoverflow.com/questions/...60767#54960767

**DocAElstein** · 11-15-2022, 01:48 AM

In support of this forum post
https://eileenslounge.com/viewtopic.php?f=27&t=38916
This is the example coding used throughout the next posts

Part 1
Log in and enable 2 – Step Verification https://excelfox.com/forum/showthrea...ll=1#post19038
https://excelfox.com/forum/showthrea...age3#post19038

Part 2 Generate Apps Password https://excelfox.com/forum/showthrea...ll=1#post19039
https://excelfox.com/forum/showthrea...age3#post19039

Part 3 Using a gmail "Apps password" in a CDO send mail coding https://excelfox.com/forum/showthrea...ll=1#post19040
https://excelfox.com/forum/showthrea...age3#post19040

Code:

Option Explicit
Sub SendUsinggmail()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets.Item(1)
Rem  EMail send 'For info see:  http://www.excelfox.com/forum/showthread.php/2233-Urgent-support-needed-Multiple-emails-multiple-Excel-workbooks-at-once#post10519
'Working at my end With my With End With Created LCDCW Library, (LCD 1.0 Library ) (Linking Configuration Data_Cods Wollups)
    With CreateObject("CDO.Message") ' -Linking Cods Wollups--------
    Dim LCD_CW As String: Let LCD_CW = "http://schemas.microsoft.com/cdo/configuration/"
     .Configuration(LCD_CW & "smtpusessl") = True '
     .Configuration(LCD_CW & "smtpauthenticate") = 1  '
    '  ' Sever info
     .Configuration(LCD_CW & "smtpserver") = "smtp.gmail.com"
    '  The mechanism to use to send messages.
     .Configuration(LCD_CW & "sendusing") = 2
     .Configuration(LCD_CW & "smtpserverport") = 25
    '
     .Configuration(LCD_CW & "sendusername") = "mail2taste@gmail.com" ' 
     .Configuration(LCD_CW & "sendpassword") = "mvxyzxjfgxabcbwo"  ' - This is the so called  "App Pasword"     '_- https://eileenslounge.com/viewtopic.php?p=300957#p300957  '  "FallyOverStkPlop.!*"    ' "qkl4diPlopsyPoo.!*"
'     .Configuration(LCD_CW & "sendusername") = "YourEMailAddress"
'     .Configuration(LCD_CW & "sendpassword") = "YourEMailPassword"
    ' Optional - How long to try
     .Configuration(LCD_CW & "smtpconnectiontimeout") = 30 '
    ' Intraction protocol is Set/ Updated
     .Configuration.Fields.Update '
    'End With ' ----------------------      my Created  LCDCW Library
    'With ' --- ' Data to be sent------     my Created  LCDCW Library
     Dim strHTML As String: Let strHTML = "" & ws.Range("B2").Value & "
How are you Today?"
    .To = "doc.aelstein@gmail.com" '
    .CC = "doc.aelstein@t-online.de"
    '.CC = "doc.aelstein@gmail.com"
    '.CC = "excelvbaexp@gmail.com"
    '.BCC = ""
    .from = """SendingFrom gmail"" "
    .Subject = ws.Range("A2").Value
    .htmlbody = strHTML
    '.AddAttachment ThisWorkbook.Path & "AnyFile.xyz"
    .Send ' Do it
    End With ' CreateObject("CDO.Message") -----my Created  LCDCW Library
End Sub

That coding when run, will send some simple text from range A2:B2

https://i.postimg.cc/tTxWWhK0/Coding...-via-gmail.jpg
Coding send simple text via gmail.JPG

**DocAElstein** · 11-15-2022, 12:31 PM

…continued … In support of this forum post
https://eileenslounge.com/viewtopic.php?f=27&t=38916

Here is the shortened story of what you actually do:
There are broadly speaking 2 main parts to what you do
_Part1) You must enable (Turn on) 2 step verification on the gmail account
_Part2) You must generate an "Apps password"
_3) That "Apps password" is now an extra second password for that gmail account which, amongst other things, is what you use in the sendpassword part of the configurations in a CDO send message type coding. ( In other words, you no longer use your main password in the coding. Instead use the generated "Apps password". )

https://eileenslounge.com/viewtopic....300957#p300957

The full detailed walkthrough story

Part 1 Log in and enable 2 – Step verification

_1) Log in to your gmail account as usual. _ https://accounts.google.com/ServiceLogin

https://i.postimg.cc/XJCfXHzS/1-Log-in-username.jpg

https://i.postimg.cc/GmKYhMkt/1-Log-in-Password.jpg

(This should be the account you want to use to send Emails using the CDO send mail type coding)

( _1b) If you are already logged into your gmail Email, then go to Manage your Google Account
https://i.postimg.cc/P5Sz78wc/1b-Man...le-Account.jpg

_2) Go to Security
https://i.postimg.cc/yxCFRmMJ/2-Security.jpg

_3) Go to 2- Step verification
https://i.postimg.cc/6pWfzhyn/3-2-Step-Verification.jpg

https://i.postimg.cc/DzDQvk5P/3-go-t...rification.jpg

_3b) You may probably need to log in again
https://i.postimg.cc/PfDyqxgp/3b-Pos...g-in-again.jpg
, and on doing so you will likely be asked to make some verification of some sort or another. (Typically I use the default SMS, which then arrives on my mobile phone)
https://i.postimg.cc/1zYB8NR6/3b-Ver...g-in-again.jpg

https://i.postimg.cc/V6xFRQCk/3b-Ver...bile-phone.jpg

https://i.postimg.cc/bwp3WhFG/3b-Ver...g-in-again.jpg

_4 ) The 2 –Step verification setting up proceeds

https://i.postimg.cc/s22KfJzs/4-proc...ion-set-up.jpg

_4b) Once again we are typically asked for verification

https://postimg.cc/KKBBVjMv jpg

https://i.postimg.cc/gkvggJ4F/4b-onc...rification.jpg

Add verification code https://i.postimg.cc/gkvggJ4F/4b-onc...rification.jpg

_5) We finally get to turn it on

https://i.postimg.cc/Z5HVhM1w/5-Fina...turn-it-on.jpg

_5b) We are finally turned on: We have 2- Step verification enabled.

https://i.postimg.cc/br19VCxH/5b-We-...-turned-On.jpg

So that’s it, finally for the first part, 2 – Step Verification is turned on

Notes:
_ Google gmail is very security conscious, and during the process you will likely get security warnings many times and likely be asked to confirm that you are the one doing things to your account. You should try to respond to these quickly, or else they may think something bad is going on and they will block your account which will throw an almighty spanner in the works and things will get very complicated!!
https://i.postimg.cc/DyVCQsrP/Floode...ity-Alerts.jpg

_ from now on, you will likely have a more complicated , 2 step verification process when trying to log into this gmail Email account
https://i.postimg.cc/pLRzvN53/We-now...il-account.jpg
https://i.postimg.cc/SR9CSkrb/We-now...il-account.jpg
https://i.postimg.cc/XNBwck01/We-now...il-account.jpg

In the next post we look at the second part, part 2 , of what you have to do, creating/ generating an "Apps password"