Archive for February, 2013

Idea for Facebook application – Friend’s gift

Wednesday, February 20th, 2013

anyone may select some product(s) in online shop(s) and their friends may “transfer” the part of sum to “basket”. When the total amount in basket is equal or greater than product price, this product will be ordered and sent/delivered to original user.
May be integrated with ebay, aliexpress etc

PS today announced the similar service:


Monday, February 18th, 2013

Еще недавно основным способом коннектиться в интернет был dialup. У меня до сих пор лежат несколько модемов среди хлама, который жалко выбросить (а вдруг еще пригодиться)

А вот интересно – сейчас им кто-то активно пользуется? По идее наверное нет. Ведь есть всякие 3G для кратковременного использования…


Thursday, February 14th, 2013

Скоро поздравлять будут роботы. По СМС пришло поздравление от страховой (PZU), по почте от всяких inet магазинов. Даже google вываливает персонально на главном экране:

Happy Birthday 2013

SMMsg suite: how to create the .eml file from code

Friday, February 1st, 2013

I created the new sample project where I shown how you may create the .eml file from your code using SMMsg suite:

uses SMMsg, SMMSGTags;
procedure TfrmMain.btnCreateEMLClick(Sender: TObject);
  eml: TSMEMLFile;
  eml := TSMEMLFile.Create(Self);
    eml.Properties.AddTypedValue(PR_SENT_REPRESENTING_EMAIL_ADDRESS, '[email protected]');
    eml.Properties.AddTypedValue(PR_RCVD_REPRESENTING_EMAIL_ADDRESS, '[email protected]');
    eml.Properties.AddTypedValue(PR_CLIENT_SUBMIT_TIME, Now());
//    eml.Properties.AddTypedValue(PR_MESSAGE_CODEPAGE, 1251);
    eml.Properties.AddTypedValue(PR_SUBJECT, 'Subject');
               'you may visit our site'#13#10+
               'or contact by email [email protected]'#13#10+
               'With best regards, Mike Shkolnik');
               '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'#13#10+
               '<p>you may visit our site <a href=""></a><br>'#13#10+
               'or contact by email <a href="mailto:[email protected]">[email protected]</a></p>'#13#10+
               '<p>With best regards, Mike Shkolnik</p>'#13#10+
    eml.Properties.AddAttachmentFile(ExtractFilePath(Application.ExeName) + 'scalfaq.gif');
    eml.SaveToEMLFile(ExtractFilePath(Application.ExeName) + 'test.eml', True)
  ShowMessage('File ' + ExtractFilePath(Application.ExeName) + 'test.eml' + ' created succesfully');