#!/usr/local/bin/perl -w
    use Net::SMTP::SSL;
    $smtp = Net::SMTP::SSL->new('mailhost');
    $smtp = Net::SMTP->new('smtp.bizmail.yahoo.com', Port=>465);
    $smtp->auth($user, $password);
    $smtp->mail();
    $smtp->to('xxx');
    $smtp->data();
    $smtp->datasend("To: xxx\n");
    $smtp->datasend("\n");
    $smtp->datasend("$mime->as_string");
    $smtp->dataend();
    $smtp->quit;
[download]

# Prepare the message
  my $body = <<'AMBUSH_READY';
  Dear Santa
  
  I have killed Bun Bun.
  
  Yes, I know what you are thinking... but it was actually a total acc
+ident.
  
  I was in a crowded line at a BayWatch signing, and I tripped, and st
+ood on his head.
  
  I know. Oops! :/
  
  So anyways, I am willing to sell you the body for $1 million dollars
+.
  
  Be near the pinhole to the Dimension of Pain at midnight.
  
  Alias
  
  AMBUSH_READY
  
  # Create and send the email in one shot
  Email::Stuff->from     ('cpan@ali.as'                      )
              ->to       ('santa@northpole.org'              )
              ->bcc      ('bunbun@sluggy.com'                )
              ->text_body($body                              )
              ->attach   (io('dead_bunbun_faked.gif')->all,
                          filename => 'dead_bunbun_proof.gif')
              ->using     ('SMTP', Host => 'smtp.mail.yahoo.com')
              ->send;
[download]

Cheers,

Brent

Hi Brent Here's what I'm doing (and it doesn't work). I'm feeling pretty stupid about this.

use Email::Stuff;
use IO::All;

 $body = 'this is a test';

  # Create and send the email in one shot
  Email::Stuff->from     ('brejen@comcast.net'                      )
              ->to       ('ailithir@yahoo.com'              )
              ->bcc      ('slyder2412@hotmail.com'                )
              ->text_body($body                              )
              ->attach   (io('test.doc')->all,
                          filename => 'test.doc')
              ->using     ('SMTP', Host => 'smtp.mail.yahoo.com')
              ->send;
[download]

"and it doesn't work" isn't a lot for us to go on, did you read How do I post a question effectively??

This question comes up often, see Sending Mail trough Perl using ActivePerl on windows or use super search for further examples.

Martin

I use MIME::Lite frequently with no trouble. Do you set the send address?

use strict;
use warnings FATAL => 'all';
use MIME::Lite;

my $toAddress = 'to@address.here';
my $fromAddress = 'from@address.here';
my $ccAddr;
my $buildPath;
my $options = "";

my $msg = MIME::Lite->new
  (
  From    => $fromAddress,
  To      => $toAddress,
  Subject => "build $buildPath",
  Data    => "build $buildPath $options"
  );

$msg->Add (Cc => $ccAddr) if $ccAddr;
MIME::Lite->send ("smtp", "smtp.of.your.ma");
$msg->send;
[download]

Use MIME::Lite. Configure it to use SMTP instead of sendmail (should be the default on Win32), configure it to use the requested mail server with a proper username and password. The first two examples in the Synopsis section of the documentation should really be helpful. Copy the second example (right below "Create a multipart message [...] and send it SMTP"), insert your e-mail addresses and host names, and run it. Note that you will very likely need to provide an account name and a password for sending via yahoo, so add the AuthUser and AuthPass parameters to send, as shown further down in the documentation.

Adapt the code to suit your needs. If you run into problems, show us your code and the error messages.

Alexander

use Win32::OLE   qw(with);
my $Message = Win32::OLE->new("CDO.Message");

$Message->{From}="a\@b.c";
$Message->{To}="b\@b.c";
$Message->{Bcc}="c\@b.c";
$Message->{Subject}="test subj";
$Message->{TextBody}="ahahahahahah\n\ndjhdjkfhdasjkfh";
$Message->Send()||die $Win32::OLE::LastError,$^E;
[download]

thanks to all! I got my procedure working by initializing smtp with 'localhost'...it did work with 'mail.yahoo.com' but yahoo didn't like it and rejected the messages after the 1st few. Also Yahoo wanted authentication and that added another wrinkle.