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: wishkey.ru

Tags:,
Posted in Soft/Programming | No Comments »

dialup

Monday, February 18th, 2013

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

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

Tags:
Posted in Life/Personal | No Comments »

42

Thursday, February 14th, 2013

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

Happy Birthday 2013

Posted in Life/Personal | No Comments »

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);
var
  eml: TSMEMLFile;
begin
  eml := TSMEMLFile.Create(Self);
  try
    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');
 
    eml.Properties.AddTypedValue(PR_BODY,
               'Hello,'#13#10+
               #13#10+
               'you may visit our site http://www.scalabium.com'#13#10+
               'or contact by email [email protected]'#13#10+
               #13#10+
               'With best regards, Mike Shkolnik');
 
    eml.Properties.AddTypedValue(PR_BODY_HTML,
               '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'#13#10+
               '<HTML><HEAD>'#13#10+
               '</HEAD>'#13#10+
               '<BODY>'#13#10+
               '<p>Hello,</p>'#13#10+
               '<p>you may visit our site <a href="http://www.scalabium.com">http://www.scalabium.com</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+
               '</BODY></HTML>');
 
    eml.Properties.AddAttachmentFile(ExtractFilePath(Application.ExeName) + 'scalfaq.gif');
 
    eml.SaveToEMLFile(ExtractFilePath(Application.ExeName) + 'test.eml', True)
  finally
    eml.Free
  end;
 
  ShowMessage('File ' + ExtractFilePath(Application.ExeName) + 'test.eml' + ' created succesfully');
end;

Tags:
Posted in Soft/Programming | No Comments »