Re^6: OLE OUTLOOK Security

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!

Comment on Re^6: OLE OUTLOOK Security

Replies are listed 'Best First'.
Re^7: OLE OUTLOOK Security by Fuism (Beadle) on Aug 24, 2005 at 19:36 UTC
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; [download] Thanks again all...	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: OLE OUTLOOK Security
by Fuism (Beadle) on Aug 24, 2005 at 19:36 UTC

#!/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;
[download]

[reply]
[d/l]