in reply to Re^3: OLE OUTLOOK Security
in thread OLE OUTLOOK Security

I will try it again but I believe thats what I used last time, SMTP and MIME-Lite. But for securtiy purposes I wasnt able to send emails directly through SMTP. I will let you know how that goes. Thanks.... Fue

Replies are listed 'Best First'.
Re^5: OLE OUTLOOK Security
by Fuism (Beadle) on Aug 23, 2005 at 22:45 UTC
    OK, I just tried it, here's the msg I got '5.7.3 client does not have permission to submit mail through this server.'. I guess I can sit here and press the 'yes' button on the popup but it doesnt serve the purpose of automation when alot of my reports are sent out late at night. Thanks

      A bit of code to see what you're doing may help. Although I'd also ask the IT support folks for ideas on how they would propose you could send your emails. We've had some of our machines locked down behind some tough firewalls, and I just asked for an SMTP server to use, and they set it up to allow me to do the same thing. Obviously, you're in your own unique situation, but perhaps what worked for me will work for you ;-)

      Good luck!

        I did ask them, the only way is if my machine has a static IP, which it doesnt. Only Servers here get static IPs. The only way they can give you access is if you have a static IP. Here is the code I used:
        #!/usr/bin/perl use MIME::Lite; use Net::SMTP; ### Adjust sender, recipient and your SMTP mailhost my $from_address = 'me@address'; my $to_address = 'me@address'; my $mail_host = 'EMAIL.com'; ### Adjust subject and body message my $subject = 'A message with 2 parts ...'; my $message_body = "Here's the attachment file(s) you wanted"; ### Adjust the filenames my $my_file_gif = 'my_file.gif'; my $your_file_gif = 'your_file.gif'; my $my_file_zip = 'my_file.zip'; my $your_file_zip = 'your_file.zip'; ### Create the multipart container $msg = MIME::Lite->new ( From => $from_address, To => $to_address, Subject => $subject, Type =>'multipart/mixed' ) or die "Error creating multipart container: $!\n"; ### Add the text message part $msg->attach ( Type => 'TEXT', Data => $message_body ) or die "Error adding the text message part: $!\n"; ### Send the Message MIME::Lite->send('smtp', $mail_host, Timeout=>60); $msg->send;
        Thanks again all...