I want to read email using delphi then send en email.

Posted on 2010-09-12
Last Modified: 2013-11-30

I am after some info to see if this has been done before but would like to create my own as I only need a very basic version.
I need to read emails from my hotmail account and only emails with a certain header.
For example all emails that say: Item no.20054342 - Notification of an Instant Payment Received from
Then only show that header in my delphi program in real time.
I then want to pre-type x250 serial numbers around 25 letters long.
Each time a new email arrives in my program a new serial number is sent to the new email, once a serial number has been sent it should be removed
and stored along with that email header with its own ref number which is the 25 letter serial number.
I should be able to change the header to look for as my item number will change every week.

where do I start and whats the best way to tackle this, I want to make sure my customers get there code faster than what I can do manually.
must be coded in delphi
Question by:Emailcoder1
  • 3

Expert Comment

ID: 33657283
You can deal with installed email client via MAPI interface to read messages and create them in this client's Inbox and Outbox. In some cases it's the best way. But it's not a very reliable solution (bugs in MAPI, poor documentation).

And You can use Indy components to handle SMTP and POP3 clients functionality directly in Your application. These components are called TIdPOP3, TIdSMTP, or even TIdIMAP4.
It's more reliable way to deal with mail. Samples of using these components are in the web. Just google for them.

Author Comment

ID: 33657307
Thanks, im using delphi 7 so i have a good selection of indy components. Can someone provide a working exmaple.

of a memo1 to use these components that as soon as the form is loaded, it imports all my inbox into memo1. Only messages starting with "item 220"

LVL 32

Accepted Solution

ewangoya earned 500 total points
ID: 33657366
procedure TForm1.Button2Click(Sender: TObject);
  I, MsgCount: Integer;
  EMessage: TIdMessage;
  if IdPOP31.Connected then

  IdPOP31.Host := 'POP3 Host';
  IdPOP31.Port := Port No;
  IdPOP31.Username := '';
  IdPOP31.Password := 'Password';
  MsgCount := IdPOP31.CheckMessages;

  for I := 1 to MsgCount do
    IdPOP31.Retrieve(I, EMessage);
    //Do something with your email
    //IdPOP31.Delete(I); //delete if you don't need it anymore
  IdPOP31.Disconnect; //It will delete the mail which was marked for deletion

Expert Comment

ID: 33657369
Collection of Indy demos "from first hands"

I have D7 too. In my one there is Indy ver 9.00.10 included.
So, download this file:

and use included project from folder "Indy9Demos\MailClient".

It's easy to understand because Indy in a whole use blocking mode of socket operations. Just try it!


Expert Comment

ID: 33657390
> it imports all my inbox into memo1. Only messages starting with "item 220"

The POP3 protocol does not allow to read message header without reading entire message. It's a limitation of the protocol. So, You need to download entire message to detect that it's subject begins with 'item 220'. If it's critical to filter messages before downloading, You should use IMAP4 vs POP3. IMAP4 can read messages, and download them partially. But I has no idea whether Hotmail supports IMAP4 or not. Do not forget to heck thos condition before consider to use IMAP4.

Featured Post

Do email signature updates give you a headache?

Do you feel like you are constantly making changes to email signatures? Are the images not formatting how you want them to? Want high-quality HTML signatures on all devices, including on mobiles and Macs? Then, let Exclaimer solve all your email signature problems today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
The biggest nightmare for any Exchange Server Administrator is to keep the server running without any issue. But the problems often come and they need to be resolved efficiently and timely. Here are important troubleshooting points: Define the Pr…
In this Experts Exchange video Micro Tutorial, I'm going to show how small business owners who use Google Apps can save money by setting up what is called a catch-all email address in their Gmail accounts. By using the catch-all feature, small busin…
A simple description of email encryption using a secure portal service. This is one of the choices offered by The Email Laundry for email encryption. The other choices are pdf encryption which creates an encrypted pdf of your email and any attachmen…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now