Hello,

I am trying to send mails from script.
We are maintaining the email ids in a table and sending mails to each user.
The code that I have is working fine for 2-3 mails but if there are more, every now and then it skips one or 2 mails..
below is the code.
can someone help me please?


select tfgei022.*
from tfgei022
where tfgei022._index1 = { :comp }
and tfgei022._compnr = 140
selectdo

|for attachment
shell_cmd = ""
shell_cmd = "uuencode " & filenm & " " & filenm & " > " & mail.attachfile
ret1 = shell(shell_cmd,0)

suspend(1)

|email body
shell_cmd = ""
shell_cmd = "cat " & mail.bodyfile & " " & mail.attachfile & " > " & mail.combinefile
ret1 = shell(shell_cmd,0)

suspend(1)

|mail command
shell_cmd = ""
shell_cmd = "mail -s " & chr$(34) & mail.subject & chr$(34) & " " & strip$(tfgei022.mail) & " < " & mail.combinefile
ret1 = shell(shell_cmd,0)

|ret1 = run.prog(shell_cmd,"",RP_WAIT)

|comd = "/bin/mail"
|args = " -s " & quoted.string(trim$(mail.subject)) & " " & strip$(tfgei022.mail)
|ret1 = run.prog(comd, args, RP_WAIT, trim$(mail.combinefile ))

suspend(10000)


selectempty
message("Distribution list not found. File extracted to " & filenm )
endselect


Thanks a lot in advance,

Is it more than one email address or if it has more than one email to send in the select do? If it is more than one email in the select do - then you might increase the suspend for the first two commands. That last one - well I would probably reduce it 1000 to 5000.

Not sure this makes a difference but I use shell(cmd, SHELL_NO_OUTPUT).

you can also gather the multiple email addresses first, separated by commas, before executing the mail command.