email with CDO and attachment

[Marcelo Via Giglio]

Hello,

I have problems when I try to add attachment to email, the follow sample work when I comment the attachment line

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function main()
   LOCAL oEmailMsg
   LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/"
   
      oEmailMsg  := CREATEOBJECT ( "CDO.Message" )

      WITH OBJECT oEmailMsg
     
         :From     := "email@gmail.com"
         :To       := "email@gmail.com"
         :CC       := ""
         :BCC      := ""
         :Subject  := ALLTRIM( "ALGO" )
         :TextBody := "CUERPITO"

         :AddAttachment( ALLTRIM( "email.prg" ) ) // <------ error aqui
             
         WITH OBJECT :configuration:Fields

            :Item( cSchema + "smtpserver" ):Value       := "smtp.gmail.com"
            :Item( cSchema + "smtpserverport" ):Value   := 465
            :Item( cSchema + "sendusing" ):Value        := 2
            :Item( cSchema + "smtpauthenticate" ):Value := .T.
            :Item( cSchema + "smtpusessl" ):Value       := .T.
            :Item( cSchema + "sendusername" ):Value     := "email@gmail.com"
            :Item( cSchema + "sendpassword" ):Value     := "somepassword"
            :Item( cSchema + "smtpconnectiontimeout"):Value := 30

            :Update()

         END WITH        

         :Send()

      END WITH

RETURN NIL
 

I get

Code: Select all  Expand view  RUN

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 05/04/18, 08:39:19
   Error description: Error CDO.Message/3  DISP_E_MEMBERNOTFOUND: ADDATTACHMENT
 

I try :attachments:add("file"), :attachment := "file" and other alternatives, but I can't get that it work, I 'm testing in win10

Some help

Regards

Marcelo

[Wanderson]

Try to put the entire file path even though it is in the folder.

[Marcelo Via Giglio]

yes, this resolve the problem

thanks very much

Marcelo

[Marc Venken]

Is mailing with CDO a better way than with :

DEFINE MAIL oMail ;
SUBJECT oRsEmail:header;
TEXT cText;
FILES cFile, cFile ;
TO cMail

Just Curious...

[Enrico Maria Giordano]

MAPI is for a single mail (manual) while CDO is for a batch of mails (automatic).

EMG

[Marc Venken]

Thanks.

I was using MAPI in a loop ))

I will look into the sample above. Seems more parameters can be coded like with server,...

Marc

[Enrico Maria Giordano]

I was using MAPI in a loop ))

Yes, but you still have to confirm manually each mail sending.

EMG

[Marc Venken]

Indeed. If I use the FROM USER clause, I need to corfirm them one by one.

Without the FROM USER (it uses the selected send user) than it works in the loop.

The CDO however can be set better, so I will recode my sendmail function for better performance and control.

Thanks for the info.

[Enrico Maria Giordano]

Indeed. If I use the FROM USER clause, I need to corfirm them one by one.

Without the FROM USER (it uses the selected send user) than it works in the loop.

No, MAPI doesn't work in automatic mode anymore since years.

EMG

[Marc Venken]

Aha, Then I suppose i'm not using MAPI, sorry ))

This i Use (then there is another mail option (CDO, this one and MAPI) I will look into CDO.

if empty(cFile)
DEFINE MAIL oMail ;
SUBJECT oRsEmail:header;
TEXT cText;
TO cMail
else
DEFINE MAIL oMail ;
SUBJECT oRsEmail:header;
TEXT cText;
FILES cFile, cFile ;
TO cMail
endif

ACTIVATE MAIL oMail

For me automatic is when I loop and all mails are send. (Ok, They come into my sendbox, but they go out without my action)

[Enrico Maria Giordano]

Ok, works fine for me too, after a confirm dialog that can be avoided. Great!

I'm using Thunderbird. Can you test with Oulook, please?

EMG

[Marc Venken]

Also Thunderbird. Never Outlook

[Enrico Maria Giordano]

I'm afraid that it will not work with Outlook. Anybody can test it?

EMG