Magkumar has asked for the wisdom of the Perl Monks concerning the following question:
Hi monks,
I've been trying to send a sample email using below sample script and receiving an error,
Code:
#!/usr/bin/perl use strict; use warnings; use plmconst ':constants'; use lib "C:\\Strawberry\\perl\\lib"; use lib "C:\\Strawberry\\perl\\site\\lib"; use lib "C:\\Strawberry\\perl\\vendor\\lib\\Email"; use lib "C:\\Strawberry\\perl\\vendor\\lib"; use lib "C:\\Users\\magesh\\SF\\Personal Folders\\Material master\\Mat +erial_Master_Prod\\Test"; use lib "C:\\Strawberry\\perl\\c\\bin"; use plm_sap_material_master_constant_definitions ':constants'; # first, create your message use Email::MIME::Creator; use Email::Sender::Success; use Email::Sender::Transport::SMTP qw(); use Email::Sender::Role::CommonSending; use Email::MIME::Header::AddressList; use Email::Sender::Transport; use Email::Sender; use Email::MIME; use Throwable; use Throwable::Error; use StackTrace::Auto; use IO::All; my $message = Email::MIME->create( header_str => [ From => SENDER_EMAIL, To => 'mzkuma@abc.com', Subject => 'Happy birthday!', ], attributes => { encoding => 'quoted-printable', charset => 'ISO-8859-1', }, body_str => "Happy birthday to you!\n", ); my $mime_entity = $message->cast('Email::MIME'); # send the message use Email::Sender::Simple qw(sendmail); sendmail($mime_entity,{ from => SENDER_EMAIL, transport => Email::Sender::Transport::SMTP->new ({ host => MAIL_SERVER, port => MAIL_SERVER_PORT, }) });
Error: "Don't know how to handle Email::MIME at C:\Users\AADDAA~1\AppData\Local\Temp\11 par-616164646161646d696e\cache-59feac640e183270594e4311795b30444ad958c9\inc\lib Email/Sender/Role/CommonSending.pm line 78." Can you please help me to understand what I'm missing? Thanks a lot. BR, Magesh
|
|---|