Hello,
I have the same problem with renaming files in FP8. In addition the attachment is losing its extension. The extension is disappearing in the following checked cases: xls (application/excel), xlsx (application/excel), csv (checked for application/excel and application/csv). I tried to use both functions cmf.sendtoperson and cmf.send with same results.
Thx in adv.
Yurry
function long create.xml.header(
ref string sourcefile.list(,),
ref domain tcmail rec.list(),
domain tcmcs.s300m subject,
domain tcmcs.s999m body.file,
domain tfgld.user sender,
domain tcmail sender.mail)
{
domain tcdsca user.name
long message.ID, from.ID, to.ID, attachment.ID
long rec.list.size(2), file.list.size(2), dummy, i
for i = 1 to 2
rec.list.size(i) = 0
file.list.size(i) = 0
endfor
array.info(rec.list, dummy, rec.list.size)
array.info(sourcefile.list, dummy, file.list.size)
| subject()
message.ID = cmf.create()
ret.lng = cmf.setClass(message.ID, "CMF.NOTE")
ret.lng = cmf.setSubject(message.ID, subject)
| Set FROM recipient
if not tt.user(sender, user.name) then
user.name = tt.comp.desc()
endif
from.ID = cmf.createRecipient(message.ID, ttcmf.role.from)
ret.lng = cmf.setRecipientName(from.ID, trim$(user.name))
ret.lng = cmf.setRecipientAddress(from.ID, sender.mail)
ret.lng = cmf.setRecipientType(from.ID, "SMTP")
| Set TO recipient
if rec.list.size(2) then
for i = 1 to rec.list.size(2)
if not isspace(rec.list(1, i)) then
to.ID = cmf.createRecipient(message.ID, ttcmf.role.to)
| ret.lng = cmf.setRecipientName(to.ID, recipient.name)
ret.lng = cmf.setRecipientAddress(to.ID, trim$(rec.list(1, i)))
ret.lng = cmf.setRecipientType(to.ID, "SMTP")
ret.lng = cmf.setRecipientResponsibility(to.ID, "TRUE")
endif
endfor
endif
| Set attachment
if file.list.size(2) then
for i = 1 to file.list.size(2)
if not isspace(sourcefile.list(1, i)) then
attachment.ID = cmf.createAttachment(message.ID)
ret.lng = cmf.setAttachmentBody(attachment.ID, ttyeno.yes)
ret.lng = cmf.setAttachmentMIME(attachment.ID,
trim$(find.mimetype(sourcefile.list(1, i))))
ret.lng = cmf.setAttachmentFileName(attachment.ID,
sourcefile.list(1, i),
trim$(find.file.name(sourcefile.list(1, i))))
endif
endfor
endif
if not isspace(body.file) then
attachment.ID = cmf.createAttachment(message.ID)
ret.lng = cmf.setAttachmentBody(attachment.ID, ttyeno.yes)
ret.lng = cmf.setAttachmentMIME(attachment.ID, trim$(find.mimetype(body.file)))
ret.lng = cmf.setAttachmentFileName(attachment.ID, body.file)
endif
return(message.ID)
}
The XML result:
<CMF1>
<IDENTIFICATION MESSAGE-ID="0" CREATE-TIME="2012-06-03 13:33:05Z" CLASS="CMF.NOTE" SUBJECT="Report sent by ######" />
<DELIVERY/>
<RECIPIENTS>
<FROM NAME="#### - ### - ####" ADDRESS="######@######.###" TYPE="SMTP" />
<TO ADDRESS="####@#####.###" TYPE="SMTP" RESPONSIBILITY="TRUE" />
</RECIPIENTS>
<ATTACHMENTS>
<ATTACHMENT BODY="TRUE" MIME-TYPE="application/msexcel" LINK="mime.csv" FILENAME="mime.csv" />
<ATTACHMENT BODY="TRUE" MIME-="" TYPE="text/html" LINK="report_alert.htm" FILENAME="report_alert.htm" />
</ATTACHMENTS>
</CMF1>