******************************************************************** * Description.......: TestMail - program, which allows to demonstrate the problem with sending mails with attachments * Calling Samples...: * Parameter List....: * Created by........: Nadya Nosonovsky 02/05/2002 10:39:22 AM * Modified by.......: ******************************************************************** local lnFiles, lnI, oFSO, oFolder, lnCount, lcStr, CR, lnReturn lnCount = 0 CR = chr(13) oFSO = createobject('Scripting.FileSystemObject') oFolder = oFSO.GetFolder("\Redp\Appl\CommonWg\Progs") lcStr = 'List of sent files through the program:'+ CR with oFolder for each oFile in .files with oFile if upper(justext(.path))="PRG" lnCount = m.lnCount +1 FunctionID = m.lnCount FunName = juststem(.path) FunctionCode = filetostr(.path) FunPath = justpath(.path) ModiDate = .DateLastModified *insert into AllFunctions from memvar lcStr = lcStr + transform(m.lnCount)+" "+.path + CR lnReturn = MailWithGroupWise('nnosonov@thewarrengroup.com;Nosonovsky;',.path,'Hi Nadya, '+chr(13)+chr(10)+"This is a test of "+.path,.path) if m.lnCount > 15 && Stop now exit endif endif endwith endfor endwith do form statistics with m.lcStr,'GroupWise Test'And here is MailWithGroupWise program:
******************************************************************** * Description.......: MailWithGroupWise * Calling Samples...: MailWithGroupWise('nnosonov@thewarrengroup.com','SUBJECT HERE','TEXT MESSAGE HERE ','O:\REDP\OUTPUT\CUstomer\Fares\Trwc0122.zip') * Parameter List....: cSendTo,cSubject,cMessage,cAttachment * Created by........: Robert Peirce * Modified by.......: Nadya Nosonovsky 09/11/2001 01:37:42 PM ******************************************************************** lparameters cSendTo,cSubject,cMessage,cAttachment if vartype(m.cSendTo)<>"C" or empty(m.cSendTo) =messagebox('Invalid Send To parameter passed',48,"Invalid parameter") return -1 endif local oGW, lcOldError, lnReturn lcOldError=on('error') on error lnReturn=-1 lnReturn=0 oGW=createobject('NovellGroupwareSession') if vartype(oGW)='O' && Group Wise object was successfully created local oMsg, loRecipients, lnRecipients, lnI, lnAttachments oMsg=oGW.Login.RootFolder.messages.add oMsg.Subject=m.cSubject oMsg.BodyText=m.cMessage lnRecipients=alines(laRecipients,strtran(m.cSendTo,";",chr(13))) if vartype(m.cAttachment)='C' and !empty(m.cAttachment) cAttachment=strtran(m.cAttachment,',',';') && Replace comma with semicolon lnAttachments=alines(laAttachments,strtran(m.cAttachment,";",chr(13))) else lnAttachments = 0 && No attachments endif for lnI=1 to m.lnRecipients cSendTo=laRecipients[m.lnI] if '@' $ m.cSendTo if left(m.cSendTo,5)<>'inet:' m.cSendTo = 'inet:'+ m.cSendTo endif loRecipients=oMsg.Recipients.add(m.cSendTo,'NGW','0') else loRecipients=oMsg.Recipients.AddByDisplayName(m.cSendTo) endif loRecipients.Resolve() endfor for lnI=1 to m.lnAttachments cAttachment=laAttachments[m.lnI] if !file(m.cAttachment) =messagebox("File "+ m.cAttachment+" is not found!",48,'File not found') lnReturn=-1 exit endif oMsg.Attachments.add(m.cAttachment) endfor if m.lnReturn=0 && No errors yet oMsg.send endif release oGW else lnReturn=SendMails(,,m.cSendTo,m.cSubject,m.cMessage,m.cAttachment) && Wrapper for Nigel's class endif on error &lcOldError return m.lnReturnAs you see, I've ran it for 16 programs and about 4 of e-mails came without attachments. Do you see a problem in the Mail program? Do you experience similar problems? Could you please suggest a workaround?