08-20-2009
Sending Attachment using MIME::Lite and Net::SMTP
Hello,
I'm a newbie perl scriptor and i'm trying to figure out why i can't send an email using MIME::Lite with Net::SMTP. I keep receiving the following error:
SMTP MAIL command failed:
5.7.1 Helo invalid .
at attach1.pl line 31
The error keeps coming from the very last line of my script. It seems like a syntax error but i'm stuck. The last line is:
$msg ->send();
Below is my script:
#!/usr/bin/perl -w
use warnings;
use MIME::Lite;
use Net::SMTP;
use strict;
my $msg = MIME::Lite->new(
From => 'elliot.anico@cellularatsea.com',
To => 'elliot.anico@cellularatsea.com',
cc => 'wms.nmc@cellularatsea.com',
Subject => 'Multiple attachments',
Type => 'multipart/mixed');
$msg->attach( Type =>'image/jpg',
Path =>'/export/home/omcadmin/bin/Sunset.jpg',
Filename =>'Sunset.jpg');
$msg->attach( Type =>'image/jpg',
Path =>'/export/home/omcadmin/bin/Winter.jpg',
Filename =>'Winter.jpg');
$msg->attach( Type =>'TEXT',
Data =>'This is a test for outside usage');
my $SMTP_SERVER = 'wmsexg01.corp.cellularatsea.com';
MIME::Lite->send('smtp', $SMTP_SERVER);
$msg ->send();
Can anybody assist me?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have read the related posts by perleo and those who assisted. I wish to do a similar thing, in that I wish to use the Net:smtp module.
I have downloaded it and followed the instructions for the install.
When I check the perldoc net::smtp, the information returns (thus showing it... (1 Reply)
Discussion started by: cheng
1 Replies
2. Shell Programming and Scripting
Hi Everyone,
I have a question related to using MIME::Lite module in perl.Below i mentioned code blocks used for sending mail through MIME::Lite.
$msg = MIME::Lite -> new (
From => $from,
To => $to,
Subject... (0 Replies)
Discussion started by: DILEEP410
0 Replies
3. Shell Programming and Scripting
I am running a perl script that generates an excel doc and then emails it as an attachment. I can generate the excel file fine. I can scp it from the box and open it with no problems. When I send it over email, the file does open properly. The file in email is only 288 B, but on the server it is... (1 Reply)
Discussion started by: Mike_the_Man
1 Replies
4. Shell Programming and Scripting
Hi,
I am using the below code for sending attachment in UNIX but only blank attachment is coming in email even the content is not coming.
Please help!!!
export CONTENT="${DIR}/${RUN_DATE}_mailbody.txt"
export SUBJECT="Search Result for Pattern - ${1}"
export ATTACH=${2}
(
echo... (9 Replies)
Discussion started by: rajesshh
9 Replies
5. Shell Programming and Scripting
Hi all,
i'm using the pearl package MIME::Lite zu send eMails via sendmail. I have the problem, that in the "Received From" part oft the email header occure the user and the hostname of my machine. I'd like to have a name or an email address instead of that:
Received: from... (0 Replies)
Discussion started by: andi25
0 Replies
6. Shell Programming and Scripting
#!/bin/ksh
(
echo "MIME-Version: 1.0"
echo "Content-Type: multipart/mixed; boundary=frontier"
echo "--frontier"
echo "Content-Type: text/html"
echo "Content-Disposition: inline"
echo "\n"
echo "<html><body><h1>this is html formatted text</h1></body></html>"
echo "--frontier"
echo... (1 Reply)
Discussion started by: thulasidharan2k
1 Replies
7. Shell Programming and Scripting
Hello all, we have an IMAP email system here that basically uses email as the transport for a transaction processing system. Users submit their transaction via an email, and our in-house application pulls the emails from the IMAP server and processes the transaction.
Our problem is that we have... (0 Replies)
Discussion started by: lupin..the..3rd
0 Replies
8. Shell Programming and Scripting
I've spent a good two weeks on trying to figure out a proper way to get the mime type of a file. The "file" command on the Sparc machine I'm working on is an older version and does not support the --mime flag. It outputs things like:
somefile.pdf: Adobe Portable Document Format (PDF) v1.5
... (3 Replies)
Discussion started by: mrwatkin
3 Replies
9. Shell Programming and Scripting
Hi All,
I just need to send an email using MIME protocol from perl script. The data of an email should be a HTML table(contains some datas). I just tried to send a normal text which is working fine whereas if i insert HTML tags i am getting errors. I just tried like below
$mail_host =... (3 Replies)
Discussion started by: prasanna2166
3 Replies
10. UNIX for Beginners Questions & Answers
Hello,
I am trying to send a gzip file on email using below command but the zipped file received on email is corrupt.
mailsend -smtp $smtpip -content-type 'application/x-gzip' -mime-type "application/x-gzip" -t $receiver -f $sender -sub "$subject" -M "$MSG" -attach $file
file name is ... (1 Reply)
Discussion started by: tushar.modgil
1 Replies
LEARN ABOUT DEBIAN
net::smtp::server::client
Server::Client(3pm) User Contributed Perl Documentation Server::Client(3pm)
NAME
Net::SMTP::Server::Client - Client session handling for Net::SMTP::Server.
SYNOPSIS
use Carp;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Net::SMTP::Server::Relay;
$server = new Net::SMTP::Server('localhost', 25) ||
croak("Unable to handle client connection: $!
");
while($conn = $server->accept()) {
# We can perform all sorts of checks here for spammers, ACLs,
# and other useful stuff to check on a connection.
# Handle the client's connection and spawn off a new parser.
# This can/should be a fork() or a new thread,
# but for simplicity...
my $client = new Net::SMTP::Server::Client($conn) ||
croak("Unable to handle client connection: $!
");
# Process the client. This command will block until
# the connecting client completes the SMTP transaction.
$client->process || next;
# In this simple server, we're just relaying everything
# to a server. If a real server were implemented, you
# could save email to a file, or perform various other
# actions on it here.
my $relay = new Net::SMTP::Server::Relay($client->{FROM},
$client->{TO},
$client->{MSG});
}
DESCRIPTION
The Net::SMTP::Server::Client module implements all the session handling required for a Net::SMTP::Server::Client connection. The above
example demonstrates how to use Net::SMTP::Server::Client with Net::SMTP::Server to handle SMTP connections.
$client = new Net::SMTP::Server::Client($conn)
Net::SMTP::Server::Client accepts one argument that must be a handle to a connection that will be used for communication.
Once you have a new client session, simply call:
$client->process
This processes an SMTP transaction. THIS MAY APPEAR TO HANG -- ESPECIALLY IF THERE IS A LARGE AMOUNT OF DATA BEING SENT. Once this method
returns, the server will have processed an entire SMTP transaction, and is ready to continue.
Once $client->process returns, various fields have been filled in. Those are:
$client->{TO} -- This is an array containing the intended
recipients for this message. There may be
multiple recipients for any given message.
$client->{FROM} -- This is the sender of the given message.
$client->{MSG} -- The actual message data. :)
AUTHOR AND COPYRIGHT Net::SMTP::Server / SMTP::Server is Copyright(C) 1999, MacGyver (aka Habeeb J. Dihu) <macgyver@tos.net>. ALL RIGHTS
RESERVED.
You may distribute this package under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl
README file.
SEE ALSO
Net::SMTP::Server::Server, Net::SMTP::Server::Relay
perl v5.10.1 1999-12-28 Server::Client(3pm)