Sending mail more than one recepient with TMail

[Horizon]

Hi,

I try to use this function to send mail (I have to use local outlook mail)

Code: Select all  Expand view

function DirectMessage()

   local oMail

   DEFINE MAIL oMail ;
      SUBJECT "FiveWin Mail-control power" ;
      TEXT    "This is real xBase power at your fingertips!" ;
      TO      "abc@abc.com.tr"

   ACTIVATE MAIL oMail

   MsgInfo( oMail:nRetCode )

return nil

This function is working good. But I have to send more than one recepient.

I have try

Code: Select all  Expand view

TO      "abc@abc.com.tr","ddd@abc.com.tr"

But it does not work.

Can you help me?

[hmpaquito]

Try so:

Code: Select all  Expand view

TO      "abc@abc.com.tr;ddd@abc.com.tr"

[Horizon]

Try so:

Code: Select all  Expand view

TO      "abc@abc.com.tr;ddd@abc.com.tr"

Tried.

it gives an error code MAPI_E_UNKNOWN_RECIPIENT

Thanks,

[hmpaquito]

Now, try so:

Code: Select all  Expand view

TO      "abc@abc.com.tr,ddd@abc.com.tr"

[Horizon]

Now, try so:

Code: Select all  Expand view

TO      "abc@abc.com.tr,ddd@abc.com.tr"

same error.

[hmpaquito]

Newly, try so:

Code: Select all  Expand view

TO      "John Newman <abc@abc.com.tr>","Paul Six <ddd@abc.com.tr>"

[Horizon]

Newly, try so:

Code: Select all  Expand view

TO      "John Newman <abc@abc.com.tr>","Paul Six <ddd@abc.com.tr>"

When I send, there is no error message. But mail can not delivered message is came from system mail admin.

It thinks name is John Newman <abc@abc.com.tr> mail adres is Paul Six <ddd@abc.com.tr>. so mail can not delivered.

[alerchster]

Code: Select all  Expand view

#include "fivewin.ch"
#include "mail.ch"

function DirectMessage()

   local oMail
   local i
   local aTo:={}

   aadd(aTo, {"abc@abc.com.tr"})
   aadd(aTo, {"ddd@abc.com.tr"})

   DEFINE MAIL oMail ;
      SUBJECT "FiveWin Mail-control power" ;
      TEXT    "This is real xBase power at your fingertips!"

    FOR i := 1 TO LEN( aTo )
     AADD( oMail:aRecipients, aTo[ i ] )
    NEXT i
   

   ACTIVATE MAIL oMail

   MsgInfo( oMail:nRetCode )

return nil