delphi - Maximum length of message using Indy components -


i'm trying send message delphi-code use tidmessage. message consists of 2 parts: text/plain , text/html. have html-page template , large text need insert template (in special place marked ##text##). after merge template , text body of new message. send message (use tidmessage , tidsmtp), in result message contain second part of text. text have more 40,000 characters. when send message without html-tmplate (only large text) ok.

how can set length of message?

i tried set fidmessage.contenttransferencoding := 'quoted-printable' , fidsmtp.msglinelength := maxword; did not me.

thanks in advance.
here code:

var   fsmtp: tidsmtp;   fidmessage: tidmessage;   idx: integer;   i: integer;   fidtext: tidtext; begin   fsmtp := tidsmtp.create( nil );   fidmessage := tidmessage.create( nil );   try     try       fidmessage.extraheaders.clear;       fidmessage.messageparts.clear;        // attachments       idx := 0 attachments.count - 1         tidattachment.create( fidmessage.messageparts,           temailattachment( attachments.items[ idx ] ).flocaltemplatename );         fidmessage.from.text := ffrom;       fidmessage.recipients.emailaddresses := fto;       fidmessage.subject := fsubject;       if (fhtmltemplatefilepath <> '')       begin         fidmessage.contenttype := 'multiparts/related; type="text/html"';         addattachements(fidmessage);  // procedure added attachments          fidtext := tidtext.create(fidmessage.messageparts, nil);         fidtext.body.text := 'please view html version of email';         fidtext.contenttype := 'text/plain';           fidtext := tidtext.create(fidmessage.messageparts, nil);         fidtext.body.text := fbody;         fidtext.contenttype := 'text/html';        end       else       begin         fidmessage.body.text := fbody;       end;            fidmessage.cclist.clear;       fidmessage.receiptrecipient.text := '';        fsmtp.authenticationtype := fsmtpauthenticationtype;       fsmtp.userid := fsmtpuserid;       fsmtp.password := fsmtppassword;       fsmtp.host := fsmtphost;       fsmtp.port := fsmtpport;       fsmtp.msglinelength := maxword;        repeatretrycount := fsmtprepeatretrycount;       fsmtp.connect;        try             fsmtp.send( fidmessage );                    fsmtp.disconnect;        end;      except        end;       fsmtp.free;     fidmessage.free;   end; end; procedure addattachements(aidmessage: tidmessage); var   lcid: integer;   lfilename, lfileext, lsearchfolder: string;   lsearchresult: tsearchrec;   attachment: tidattachment; begin   fhtmlcids.clear;   lsearchfolder := extractfilepath(fhtmltemplatefilepath)+changefileext(extractfilename(fhtmltemplatefilepath),'');   if (findfirst(lsearchfolder + '_*', fadirectory, lsearchresult)=0) or      (findfirst(lsearchfolder + '.*', fadirectory, lsearchresult)=0)       lsearchfolder := lsearchresult.name;    findclose(lsearchresult);   if findfirst(extractfilepath(fhtmltemplatefilepath)+lsearchfolder+'\*.*', faanyfile - fadirectory, lsearchresult)=0   begin     repeat       attachment := tidattachment.create(aidmessage.messageparts, extractfilepath(fhtmltemplatefilepath)+ lsearchfolder + '\' + lsearchresult.name);       lcid := random(maxint);       attachment.extraheaders.values['content-id'] := inttostr(lcid);       lfilename := extractfilename(lsearchresult.name);       lfileext := extractfileext(lsearchresult.name);       if uppercase(lfileext) = '.xml'         attachment.contenttype := 'text/xml'       else if uppercase(lfileext) = '.png'         attachment.contenttype := 'image/png'       else if uppercase(lfileext) = '.thmx'         attachment.contenttype := 'application/vnd.ms-officetheme'       else if uppercase(lfileext) = '.jpg'         attachment.contenttype := 'image/jpeg'       else if uppercase(lfileext) = '.gif'         attachment.contenttype := 'image/gif'       else if uppercase(lfileext) = '.svg'         attachment.contenttype := 'image/svg+xml'       else if uppercase(lfileext) = '.tif'         attachment.contenttype := 'image/tiff'       else if uppercase(lfileext) = '.tiff'         attachment.contenttype := 'image/tiff'       else if uppercase(lfileext) = '.ico'         attachment.contenttype := 'image/vnd.microsoft.icon'       else if uppercase(lfileext) = '.bmp'         attachment.contenttype := 'image/bmp'       else if uppercase(lfileext) = '.css'         attachment.contenttype := 'text/css'       else if uppercase(lfileext) = '.js'         attachment.contenttype := 'application/javascript'       else if uppercase(lfileext) = '.jpeg'         attachment.contenttype := 'image/jpeg'       else if uppercase(lfileext) = '.wmz'         attachment.contenttype := 'application/x-ms-wmz'       else raise exception.createfmt('unknown file type "%s"', [lfileext]);       fhtmlcids.addobject(lsearchfolder+'/'+lfilename, tobject(lcid));       fhtmlcids.addobject(urlencode(lsearchfolder+'/'+lfilename), tobject(lcid));     until findnext(lsearchresult)<>0;     findclose(lsearchresult);   end;   fhtmlcids.sort; end;

tidmessage not impose limit on text length. else going on. guess not filling in tidmessage correctly. did not show addattachments() code, adding tidattachment objects before tidtext objects, , wrong, contenttype using. suggest read following blog article on indy's website proper structure of html email in tidmessage:

html messages

however, take notice of following warning:

unfortunately, indy 9 not handle plaintext+html+images scenerio should. indy 10 handles better...

you not using indy 10 (as evident fact passing filename tidattachment constructor - constructor moved new tidatttachmentfile class in indy 10).

also, fyi, not need set msglinelength property, has no effect whatsoever (in fact, did not know indy still had property - dead property used tidmessageclient.writefoldedline(), dead method not used anything).


Comments

Post a Comment

Popular posts from this blog

java - Spring Data JPA: Why findOne(id) executing delete query internally? -

i have 1 application using @manytomany annotation link 2 different entities 1 parent entity. not sure if have implemented properly. when execute .findone() on parent entity's repository find it, @ first fetch data along executing delete queries internally delete record mapping table (a table jpa creates after adding @manytomany annotation.). following generated sql queries , code snippet: java class @entity @table(name = "inventory") public class inventory { @id long id; // many other properties @manytomany(fetch=fetchtype.lazy) private list<stream> streams; @manytomany(fetch=fetchtype.lazy) private list<subject> subjects; } there no other annotation i've put in stream , subject entity class link inventory class. when run app, create following tables: inventory stream subject inventory_stream inventory_subject (inventory_stream , inventory_subject, 2 tables created automatically, don't k...
Read more

python - Mongodb How to add addtional information when aggregating? -

i beginner , wrote line pipeline works, wanna add other information output, screen name , or number of tweets.i tried add under $group gave me syntax error everytime here pipeline: def make_pipeline(): # complete aggregation pipeline pipeline = [ { '$match': { "user.statuses_count": {"$gt":99 }, "user.time_zone": "brasilia" } }, { "$group": { "_id": "$user.id", "followers": { "$max": "$user.followers_count" } } }, { "$sort": { "followers": -1 } }, { "$limit" : 1 } ]; i using on example : { "_id" : objectid("5304e2e3cc9e684aa98bef97"), "text" : "first week of school on :p", "in_reply_to_status_id" : null, "retweet_count" : null, ...
Read more

java - Incorrect order of records in M-M relationship in hibernate -

Image
i have 4 records in bridge table in mysql database. using @manytomany in hibernate, accurate order of employees incorrect incorrect of projects. following required material figure out doing mistake. this source. @entity @table(name="project") public class projectbean { @id @generatedvalue @column(name="project_id") private int projectid; @column(name="title") private string projecttitle; @manytomany(mappedby="projects") private collection<employeebean> employees; public projectbean() { employees = new arraylist<employeebean>(); } //getters & setters } @entity @table(name="employee") public class employeebean { @id @generatedvalue @column(name="employee_id") private int employee_id; @column(name="first_name") private string ...
Read more