ms access - Send email using CDO no longer working -
since last week, no longer able send email via gmail's smtp server. error " -2147220973 transport failed connect server" whenever try send email. however, if try using network (ex. mobile broadband) works. below code sending email.
set cdomsg = createobject("cdo.message") set cdoconf = createobject("cdo.configuration") cdoconf.load -1 ' cdo source defaults set cdofields = cdoconf.fields cdofields .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "example@gmail.com" .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "abc" .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465 .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true .item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .update end
what possible problem? thank you.
Comments
Post a Comment