Email Using Perl in Windows

[atinti]

I'm tyring to write something that will send a simple email using Perl

so far this is what I have

#!/usr/bin/perl -w
use strict;
 
my $executable = "saplotus.exe';
my $server = 'test@domain';
my $from = '[e-mail]';
my $to = '[e-mail]';
my $subject = 'Test: Perl system call';
my $body = "Test: Perl system call";
 
my @args = (  "$executable", "-server", "$server", 
                     "-from", "$from", 
                     "-to", "$to", 
                     "-subject", "\"$subject\"", 
                     "-body", "\"$body\""
                  );
my $result = system(@args);
print "$result";
 

I also have the following but as I now understand I can't use this unless in Unix

#!/usr/bin/perl
use CGI;
 
my $query    = new CGI;
my $sendmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: [e-mail]";
my $subject  = "Subject: Confirmation of your submission";
my $content  = "Thanks for your submission.";
my $to       = $query -> param('send_to');
my $file     = "subscribers.txt";
 
unless ($to) {
  print $query->header;
  print "Please fill in your email and try again";
}
 
open (FILE, ">>$file") or die "Cannot open $file: $!";
print $to,"\n";
close(FILE); 
 
my $send_to  = "To: ". $query->param('send_to');
 
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);
 
print $query->header;
print "Confirmation of your submission will be emailed to you.";
 

I know there's a way to get sendmail to work with windows I just haven't been able to figure it out ... can someone help me fix this script or offer on that will work? thank you

[BobVDP]

Use this...

#!C:\Perl\bin\perl.exe
 
use Net::SMTP;
 
my $relay='name-of-your-smtp-mailserver-here';
my $to='[e-mail]';
my $from='[e-mail]';
my $file='your_file.html';
 
open(FILE,"$file");
@body=<FILE>;
 
my $smtp = Net::SMTP->new($relay) || die "Did Not Connect\n" if !($smtp);
 
$smtp->mail($from);         # use the sender's address here
$smtp->to($to);              # recipient's address
$smtp->data();                              # Start the mail
 
# Send the header.
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Content-type: text/html\n\n");
 
# Send the body.
$smtp->datasend(@body);
$smtp->dataend();                           # Finish sending the mail
$smtp->quit;                                # Close the SMTP connection
 

[atinti]

Thanks, it's not connecting but it compiles :) one battle down one to do ... I may not be able to connect to google this way anymore which may be the problem. Thanks Again for all you help

[Merv]

BobVDP,

Thanks for your post it was a real help for me! I got the script to connect by using the SMTP server IP addres, not the server name.

Thanks,

Merv

[numberwhun]

Atinti and BobVDP,

You really need to please use code tags whenever you post code in the forums. They are required and are mentioned in the Posting Guidelines, which you should have already read. If not, please do so.

If you don't add them, us Moderators need to clean up behind you and we really prefer you add them when you post.

Thank you!

Regards,

Jeff
(Perl Forum Leader)

[eWish]

The OP made this post over a year ago. I am willing to bet they may not get the warning message.

--Kevin
(peon moderator) :)

[numberwhun]

The OP made this post over a year ago. I am willing to bet they may not get the warning message.

--Kevin
(peon moderator) :)

You know, I (again) didn't think to look at the dates. You would think that I would learn.

Merv: You need to respond to newer posts. Not that the older posts don't deserve an answer, but if they haven't posted regarding the issue in that long then they either fixed the issue or don't care.

Regards,

Jeff