=**************************************
= Name: Email Client in Tk
= Description:Send Emails with attachments
= By: Damian myerscough
=
= Inputs:To
From
Subject
Message
Attachment
=
= Returns:Sends an email with an attachment
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=588&lngWId=6=for details.=**************************************
#!/usr/bin/perl -w
#
# [*] Email Client with Attachment capability
# [*] Coded By; Damian Myerscough
# [*] 0xSoftware Inc
#
use Tk;
use Tk::Dialog;
require Tk::LabFrame;
##################################
# Create Main window
#################################
$Windows = MainWindow->new;
$Windows->title("0xSoftware Inc Email Client");
$Windows->geometry("500x500");
$Windows->configure(-background => "#33CCFF");
######################################
# Creates Lables and text entrys and
# places them on the window
######################################
my $ToForm = $Windows->LabFrame(-borderwidth => '1',
-background => "#33CCFF",
-label=> "To:",
-labelside=> "acrosstop",
-relief => 'flat');
$ToForm->pack;
my $FromForm = $Windows->LabFrame(-borderwidth => '1',
-background => "#33CCFF",
-label=> "From:",
-labelside=> "acrosstop",
-relief => 'flat');
$FromForm->pack;
my $SubjectForm = $Windows->LabFrame(-borderwidth => '1',
-background => "#33CCFF",
-label=> "Subject:",
-labelside=> "acrosstop",
-relief => 'flat');
$SubjectForm->pack;
my $MessageForm = $Windows->LabFrame(-borderwidth => '1',
-background => "#33CCFF",
-label=> "Message:",
-labelside=> "acrosstop",
-relief => "flat");
$MessageForm->pack;
my $AttachmentsForm = $Windows->LabFrame(-borderwidth => '1',
-background => "#33CCFF",
-label=> "Attachments:",
-labelside=> "acrosstop",
-relief => "flat");
$AttachmentsForm->pack;
my $To = $ToForm->Entry(-cursor => "",
-font=> "Tahoma 8 normal",
-justify => "left");
$To->pack;
my $From = $FromForm->Entry(-cursor=> "",
-font => "Tahoma 8 normal",
-justify=> "left");
$From->pack;
my $Subject = $SubjectForm->Entry(-cursor=> "",
-font => "Tahoma 8 normal",
-justify=> "left");
$Subject->pack;
my $Message = $MessageForm->Text(-borderwidth => '1',
-font=> "Tahoma 8 normal",
-relief => "solid");
$Message->pack;
my $Attachments = $AttachmentsForm->Entry(-cursor=> "",
-font => "Tahoma 8 normal",
-justify => "left");
$Attachments->pack;
#####################################
# Start to place the Text boxes and
# labels into their correct places
#####################################
$ToForm->place(-width => 490,
-height => 100,
-x => 1,
-y => 3);
$To->place(-width => 450,
-height => 17,
-x => 10,
-y => 2);
$FromForm->place(-width => 490,
-height => 324,
-x => 3,
-y => 50);
$From->place(-width => 450,
-height => 17,
-x => 10,
-y => 2);
$SubjectForm->place(-width => 490,
-height => 374,
-x => 3,
-y => 100);
$Subject->place(-width => 450,
-height => 17,
-x => 10,
-y => 2);
$MessageForm->place(-width => 490,
-height => 200,
-x => 3,
-y => 150);
$Message->place(-width => 450,
-height => 150,
-x => 10,
-y => 3);
$AttachmentsForm->place(-width => 490,
-height => 375,
-x => 7,
-y => 330);
$Attachments->place(-width => 450,
-height => 17,
-x => 7,
-y => 2);
###################################
# Create Send and exit buttons
###################################
my $Send = $Windows->Button(-activebackground => "#FFFCBF",
-activeforeground => "#0000FF",
-background=> "#33CCFF",
-borderwidth => 1,
-text => "Send Email",
-command => sub{ SendEMail() },
-cursor=> "",
-font => "Tahoma 8 bold",
-foreground=> "#140F7B",
-relief=> "solid"
);
my $Exit = $Windows->Button(-activebackground => "#FFFCBF",
-activeforeground => "#0000FF",
-background=> "#33CCFF",
-borderwidth => 1,
-text => "Exit",
-command => sub{ &Exit },
-cursor=> "",
-font => "Tahoma 8 bold",
-foreground=> "#140F7B",
-relief=> "solid"
);
my $Clear = $Windows->Button(-activebackground => "#FFFCBF",
-activeforeground => "#0000FF",
-background=> "#33CCFF",
-borderwidth => 1,
-text => "Clear",
-command => sub{ &Clean },
-cursor=> "",
-font => "Tahoma 8 bold",
-foreground=> "#140F7B",
-relief=> "solid"
);
$Send->pack;
$Exit->pack;
$Clear->pack;
#######################################
# Place buttons on the screen at a
# certain coordinate
######################################
$Send->place(-width => 100,
-height => 20,
-x => 15,
-y => 380);
$Exit->place(-width => 100,
-height => 20,
-x => 120,
-y => 380);
$Clear->place(-width => 100,
-height => 20,
-x => 225,
-y => 380);
sub SendEMail()
{
####################################
# Collect the users information
####################################
my $EmailTo = $To->get;
my $EmailFrom = $From->get;
my $EmailSubject = $Subject->get;
my $EmailMessage = $Message->get('1.0', 'end');;
my $EmailAttachments = $Attachments->get;
if(($EmailTo) && ($EmailFrom) && ($EmailSubject) && ($EmailMessage) && ($EmailAttachments))
{
print"All Data has been inputted correctly\n";
$Sender = new Mail::Sender{ smtp => 'mail.smtpserver.com',
from => "$EmailFrom"
};
##############################
# Email Configuration
##############################
$Sender->MailFile({to => "$EmailTo",
from=> "$EmailFrom",
subject => "$EmailSubject",
msg => "$EmailMessage",
file=> "$EmailAttachments"});
#############################
# Create a DialogBox
#############################
$DialogBox = $Windows->Dialog(-title=> "Email Sent Sucesfully: $EmailTo",
-text=> "The email was sucessfuly sent to: $EmailTo",
-buttons => ["OK"]);
$DialogBox->Show();
}elsif(($EmailTo) && ($EmailFrom) && ($EmailSubject) && ($EmailMessage))
{
$Sender = new Mail::Sender{ smtp => 'mail.smtpserver.com',
from => "$EmailFrom"
};
##############################
# Email Configuration
##############################
$Sender->MailMsg({to => "$EmailTo",
from=> "$EmailFrom",
subject => "$EmailSubject",
msg => "$EmailMessage"
});
#############################
# Create a DialogBox
#############################
$DialogBox = $Windows->Dialog(-title=> "Email Sent Sucesfully: $EmailTo",
-text=> "The email was sucessfuly sent to: $EmailTo",
-buttons => ["OK"]);
$DialogBox->Show();
}else{
$DialogBox = $Windows->Dialog(-title=> "Error",
-text=> "Error Field Missing ",
-buttons => ["OK"]);
$DialogBox->Show();
}
}
sub Exit()
{
$DialogBox = $Windows->Dialog(-title=> "0xSoftware Inc",
-text=> "This Email Client was coded By: Damian Myerscough ",
-buttons => ["OK"]);
$DialogBox->Show();
exit;
}
sub Clean()
{
$Attachments->delete(0, 'end');
$Subject->delete(0, 'end');
$From->delete(0, 'end');
$To->delete(0, 'end');
}
MainLoop;
|
