CDO-mail werkt niet

Beste mede knutselaars,
Ik heb onderstaande code van Ron de Bruin maar om een of andere reden werkt het bij mij niet?

Ik heb onderstaande programmering gebruikt in Excel 2013 op een Windows 7 machine.

Helaas krijg ik de volgende fout melding

Fout-2147220975 (80040211) tijdens uitvoering
Het bericht kan niet worden verzonden naar de SMTP-server.
De foutcode van het transport is 0x80040217.
Reactie van de server not: not available.

Please Login or Register  to view this content.

Ik gebruik hiervoor mijn eigen G-mail account als afzender en gewoon e-mail adres als geadresseerde.
Wat doe ik fout of vergeet ik?

B.v.d.
Cor Assa

Please Login or Register  to view this content.

have you changed google setting to less secure

You can find a gmail code example in the workbook with examples that you can download below. There is more information about the code in the workbook.
Note : Possible that you must also enable the "Less Secure" option for GMail
https://www.google.com/settings/security/lesssecureapps