Telnet is a software application that connects one machine to another, allowing you to log on to that other machine as a user.  If you don’t have telnet, you can easily download it for free from the web

Free SMTP servers links below.

http://www.gr0w.com/help/email_help_smtp_servers.htm
http://www.uic.edu/depts/accc/ecomm/smtpmove/isps.html
http://www.thebestfree.net/free/freesmtp.htm
http://www.registerdirect.co.nz/help/smtp_servers.html
http://www.bu.edu/pcsc/email/remote/smtplist.html

Once you’ve selected a server, open the command prompt, and type:   telnet xxxxxx.com 25

(Obviously replace the x’s with the SMTP server you’ve selected) now type the following:

HELO targetsmailserver.com
MAIL FROM: whoever@whatever.com
RCPT TO: target@address.com
DATA
from: whoever@whatever.com
to: target@address.com
subject: whatever
received: xxx.xxx.xxx.xxx
x-header: xxx.xxx.xxx.xxx
The body of the message goes here
.

*Note 1: Remember to end with “.” on a line by itself as directed.
*Note 2: Adding x-header and received allows you to alter the IP information found in the headers of the mail, making it untracable and totally anonymous**
*Note 3: There are ISPs that have port 25 (SMTP) blocked. Be sure your settings and ISP allow connections to port 25. If all else fails, get the SMTP sever address from your ISP

Related posts:

1. Send and Receive Hotmail through Evolution in ubuntu
2. Yahoo Hacking Programs – Are They Needed?
3. How to setup a DNS server with bind in Ubuntu linux

Let’s run IMAP using PERL. I use ifrom for listing, printing, and moving messages on an IMAP server. I also run it nightly for backing up my IMAP mail

Listing Inbox Mails

Invocation of ifrom is just so, without any options. It will access your INBOX mailbox on the IMAP server and list your mails in a numbered list. The -host option tells ifrom which IMAP server to contact.

Note that ifrom uses the AppConfig module, which provides for default values, among other nice features.

Authentication in ifrom is done with plain LOGIN

The authinfo file is used by other programs, and the format is variable depending on what those programs need; ifrom parses it looking for the machine, login, password, and port keywords. If any of those keywords are not specified, the defaults are used. The authinfo file overrides the -user and -password command-line switches. Make sure your authinfo file is only readable by you!

The machine name is your IMAP server’s name. The machine name in the authinfo file has to match exactly the name given to ifrom with the -host switch.

When ifrom connects to the server, it sets the Peek variable to 1, so that messages we examine are not marked read.

Next, ifrom opens the mailbox specified by the -mailbox switch. This is INBOX by default: the standard IMAP main mailbox.

After all this trouble, ifrom prints out messages using this format:

Follow the link to the Authmechanism capability of the Mail::IMAPClient package in Resources. You can use CRAM-MD5 authentication with the -crammd5 switch; no other mechanisms are supported by Mail::IMAPClient, so I did not bother to set up a generic -authentication switch. Note that you can implement your own authentication; see the Mail::IMAPClient documentation.

if ($config->CRAMMD5())
{
 my $authmech = "CRAM-MD5";
 if ($imap->has_capability($authmech))
 {
  print "Switching to $authmech authentication\n";
  $imap->Authmechanism($authmech);
 }
}

You can specify your name and password from the command line with the -user and -password switches, or through an authinfo (AKA netrc) file. The authinfo file stores a list of authentication options, such as:

maachine imap.yourserver.here login webnesbay password test1234
machine imap.yourserver.there password test1234 port 244

Print a message header

printf "%5d %-35.35s %s\n", $count, $address,
   ((defined $data->{Subject}->[0]) ? $data->{Subject}->[0] : '');

The sender's address in $address is extracted from the full user name whenever possible, using a simple regular expression match.

If you give ifrom the -dump switch, it will also print the message's contents after the header. This is very useful if you don't have time to launch your e-mail application to see the contents of a last-minute message. It's okay to interrupt ifrom while it's printing a large message; the message will not be deleted or otherwise affected, since we opened the server with the Peek option set to 1.

Note that the -dump switch uses the body_string() function, whereas the -backup option we'll see later uses the message_string() function.
Moving Mails

Occasionally, you want to move messages from one mailbox to another. If there are many messages and your mail client loses the connection to the IMAP server while moving them (as happens often over a slow network link), this capability is for you. Just use the -mailbox and -to options. It's that simple. Run ifrom like this:

ifrom -mailbox newmail -to archive

How the messages get moved by Perl

foreach my $message (@msg_list)
 {
  $count++;
  if ($config->TO)
  {
   die "Could not move message $message: $!" unless $imap->move($config->TO, $message);
   print "Moved message $message to " . $config->TO, "\n";
   $imap->expunge() if $config->EXPUNGE_OFTEN;
   last if $count >= $config->N;
  }
 }

 if ($config->TO)
 {
  $imap->expunge();
 }
Moving messages in IMAP does not respect the Peek setting. Even if it is set to 1, Peek is only relevant to looking at messages. Moving the messages will always delete their originals after the copies have been made in the destination mailbox, as implemented by Mail::IMAPClient.
Expunging and deleting mailboxes
 

The -expunge_often flag is for moving messages when you are on an unreliable link and could get disconnected any time. It ensures that after every message is moved, expunge() will be called (otherwise, the message will remain in the mailbox). It is better, however, to use plain expunge() after all the messages are moved, in combination with the -n flag. That way, expunge() will be called after every 10, 15, or however many messages you specify, are moved.
I also gave ifrom the -delete_mailbox_really option. When given that option, ifrom will delete whatever mailbox is named by the -mailbox switch, so don't use it on the default INBOX mailbox! The Perl code involved couldn't be simpler
When moving messages above, you must have noticed the mysterious expunge() function. It simply tells the IMAP server to flush the mailbox, removing all messages marked as deleted. Normally, when listing messages, we don't mark them as deleted because we have Peek set to 1. The move() function, however, will mark them as deleted as mentioned above. In order to really delete those messages, the expunge() function must be called.

Deleting a mailbox

if ($config->DELETE_MAILBOX_REALLY)
{
 $imap->delete($config->MAILBOX)
  or warn "Could not delete mailbox " . $config->MAILBOX . "\n";
}

Backing up IMAP mail

To back up your mail using ifrom, just give it the -backup flag. The -savedir switch is also important — set it to wherever you want the saved messages to go. Everything else — authentication, host, port, and so on — works just like the regular ifrom. The -mailbox parameter doesn’t work, because ifrom backs up all the mailboxes. I could have had a special -backup_mailbox flag to override “all mailboxes,” but frankly I never needed it.

Back up your mails

 foreach my $message (@msg_list)
  {
   my $filename = "$dir/$f/$message";
   next if -e $filename;
   print "saving message $f/$message to $filename\n" if $config->VERBOSE;
   my $data_fh = new IO::File $filename, "w";
   my $data = $imap->message_string($message);
   warn "Empty message data for $f/$message" unless defined $data && length $data;
   $data_fh->print($data);
  }

The body_string() function used by the -dump switch earlier skips the messages headers, which are usually not interesting when you're looking at e-mail quickly.
I have already used the ifrom backups several times, when I've lost important mail by accident. It's a load off my mind to know that even if the ISP that runs my IMAP server should lose my mailboxes (it's happened to me before), I will lose at most one day's worth of mail.

Reference: IBM.com

Related posts:

1. Send sms using perl
2. Send and Receive Hotmail through Evolution in ubuntu
3. send email with attachments in perl