Sending Email CDO Schemas

[Darkbob]

So I've got some code that sends email using Gmail. It relies on schemas.microsoft.com but the link seems to have very recently gone dead. I was thinking it might have changed from http to https but that's not working either. Any ideas?

Here's my code snippet:

   schema = "http://schemas.microsoft.com/cdo/configuration/"
   Flds.Item(schema & "sendusing") = 2
   Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
   Flds.Item(schema & "smtpserverport") = 465
   Flds.Item(schema & "smtpauthenticate") = 1
   Flds.Item(schema & "sendusername") = Email$
   Flds.Item(schema & "sendpassword") = SMTPPass$
   Flds.Item(schema & "smtpusessl") = 1
   Flds.Update

Thanks in advance for any help.

[dilettante]

Those are not web site URLs. They are just strong names.

They also exist as predefined constants so your concatenation isn't necessary.

[DllHell]

add

smtpusessl = 1

and change the port to 587