try lcBody = this.txt_MessageBody if len(m.lcBody) < NUMBEROFATTACHMENTS then lcBody = padr(m.lcBody, NUMBEROFATTACHMENTS, " ") ENDIF lcOldMessage = set("Message") set message to 'Sending an e-mail...' if m.lAuto oGW = createobject('NovellGroupwareSession') oMsg = oGW.Login.RootFolder.messages.add oMsg.Subject = m.Host.ReportTitle oMsg.BodyText = m.lcBody if '@' $ m.Host.EMail loRecipients = oMsg.Recipients.add(m.Host.EMail,'NGW','0') else loRecipients = oMsg.Recipients.AddByDisplayName(m.Host.EMail) endif loRecipients.Resolve() oMsg.Attachments.add(m.lcFile) oMsg.send() release oGW else && interactive mode lcResult = "" oGW = createobject("GroupWiseCommander") oGW.Execute("NewMail()", @lcResult) oGW.Execute([TextSetTo("] + m.Host.EMail + [")], @lcResult) oGW.Execute([TextSetSubject("] + m.Host.ReportTitle + [")], @lcResult) oGW.Execute([TextSetMessage("] + m.lcBody + [")], @lcResult) oGW.Execute([AttachmentAdd("] + m.lcFile + [")], @lcResult) endif set message to (m.lcOldMessage) catch to loException messagebox(thisform.txt_EmailFailed + ":" + chr(13) ; + m.loException.message + chr(13) + chr(13) ; + strtran(thisform.txt_SendManually, "$EMAIL", m.Host.EMail)+".", 16, m.Application.caption) endtry