CDO.Message method Send()

[Natter]

Hi, all !

For several years, from time to time, used the program sending messages using CDO. Now needed to make the list, but get the error:
Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND
What could be the reason ?

[Antonio Linares]

Please review this thread:

viewtopic.php?p=173383#p173383

[Natter]

Antonio, thanks for your answer !
I made a double authentication for Google account and received the password of the application. How should I use this password from your program ?

[Antonio Linares]

Could you provide a small self contained example PRG of what you are testing ? thanks

[Natter]

Code: Select all  Expand view  RUN

procedure GMAdr(m_nam, pss, s_nam, adr, sbj, fil)
local st, zz, cBcc:=""
local oEmlCfg := CREATEOBJECT( "CDO.Configuration" )
** m_nam - Inbox
** pss   - password
** s_nam - sending
** adr   - address list
** sbj   - {Titul, Msg Text}

  WITH OBJECT oEmlCfg:Fields
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.gmail.com"
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 465
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2   // Remote SMTP = 2, local = 1
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .T.
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := m_nam // Gmail A/c ID
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := pss  // Password
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30

     :Item( "http://schemas.microsoft.com/cdo/configuration/languagecode"):Value:= 1049
     :Item( "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext"):Value:= .T.

     :Update()
   END WITH

   oEmlMsg := CREATEOBJECT ( "CDO.Message" )
   for st=1 to len(adr) // address list
 
     WITH OBJECT oEmlMsg
       :Configuration = oEmlCfg
*      :BodyPart:CharSet = "windows_1251" // language

       :From = chr(34)+" "+s_nam+" "+chr(34)+"<"+m_nam+">" // This will be displayed as From address
       :To = adr[st]      // To Email ID
       :BCC = cBcc        // BCC Id бЄалв п Є®ЇЁп
       :Subject = sbj[1]  // Titul
       :TextBody = sbj[2] // Msg Text
       for zz=1 to len(fil)
         :AddAttachment(fil[zz])  // attached files
       next
       :Fields:update()
     END WITH
     oEmlMsg:Send()
     sysrefresh()
     inkey(0.1)
   next
   inkey(0.1)
Return

[Rick Lipkin]

Natter

The gmail account has to be configured to sign-in with 'less secure apps' .. see link

Rick Lipkin

https://myaccount.google.com/intro/security

[Natter]

Thanks, Rick ! All work fine !!!

[damianodec]

hi
I'm trying this code:

Code: Select all  Expand view  RUN

  oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
  WITH OBJECT oEmailCfg:Fields
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value             := "smtp.gmail.com"
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value         := 465
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value              := 2  
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value       := .t.
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value             := .T.
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value           := "myemail@gmail.com"
     :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value           := "mypsw"
     :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30
     :Update()
  END WITH


    oEmailMsg := CREATEOBJECT ( "CDO.Message" )
    WITH OBJECT oEmailMsg
        :Configuration      := oEmailCfg
        :From               := "myemail@gmail.com"
        :To                 := "myfriendemail@tiscali.it"
        :Subject            := "Soggetto"
        :TextBody            := "Testo"
        :BCC := ""
        :Fields:Update()
        :Send()
    END WITH

but I get always:
Error description: Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND

any help?

[damianodec]

ok solved!

[James Bott]

Damiano

Please tell us how you solved it.

James

[damianodec]

hi James
I followed Rick Lipkin suggestion.
in this link: https://myaccount.google.com/intro/security