Thanks a lot Jenda...u're a real wizard :) There are still just two minor issues which I thought I should bring to your notice...
The time displayed is 30 mins more than the actual time here. The To \ From tab now reads : Aman Thind [[EMAIL PROTECTED]]. Can't I just do away with the email address ? Thanks again aman -----Original Message----- From: Jenda Krynicky [mailto:[EMAIL PROTECTED]] Sent: Friday, January 03, 2003 7:38 PM To: [EMAIL PROTECTED] Subject: Re: Sent time in a Net::SMTP mail From: Aman Thind <[EMAIL PROTECTED]> > Please help me sort the following two issues : See below. > 1 ) I cannot display the Sent time in MS Outlook in a mail generated > using Net::SMTP. > With the code I am using , the Sent field in the Outlook pane > comes > blank. > > 2 ) I cannot reply to the mail received using this code.The email > address information is lost on using names instead of email addresses > in the To and Cc tabs. How can I display names and allow a > reply-to-all too ? > > > Here is the code I am using : > > ---------------------------------------------------------------------- > ------ ----------------------------------------------------- > > use Net::SMTP; > > $sender = '[EMAIL PROTECTED]'; > > $subject = "Just a test...pls ignore"; > > $body = "\n > <html> > <body> > <font size= -1><font color = > red><B>IMPORTANT:</B></font> This information is for internal > authorized use only. > </font> > </body> > </html> > > "; > > my $smtp = Net::SMTP->new('my_mail_server_name'); > #what mailserver to use > # Sender's Address > $smtp->mail('[EMAIL PROTECTED]'); > # Who will receive the notification mail? > > $smtp->to('[EMAIL PROTECTED]','[EMAIL PROTECTED]','mkashyap@quark. > co.in' ); > > #place the actual data within the email > $smtp->data(); > $smtp->datasend("Content-type: text/html\n"); #time diference to GMT - Windows will not set $ENV{'TZ'}, if you know a better way ... my $GMTdiff; { my $time = time(); my @local = (localtime($time))[2,1,3,4,5]; # hour, minute, mday, month, year; I don't mind year is 1900 based and month 0-11 my @gm = (gmtime($time))[2,1,3,4,5]; my $diffdate = ($gm[4]*512*32 + $gm[3]*32 + $gm[2]) <=> ($local[4]*512*32 + $local[3]*32 + $local[2]); # I know there are 12 months and 365-366 days. Any bigger numbers work fine as well ;-) if ($diffdate > 0) {$gm[0]+=24} elsif ($diffdate < 0) {$local[0]+=24} my $hourdiff = $gm[0]-$local[0]; my $mindiff; if (abs($gm[1]-$local[1])<5) { $mindiff = 0 } elsif (abs($gm[1]-$local[1]-30) <5) { $mindiff = 30 } elsif (abs($gm[1]-$local[1]-60) <5) { $mindiff = 0; $hourdiff ++; } $GMTdiff = ($hourdiff < 0 ? '+' : '-') . sprintf "%02d%02d", abs($hourdiff), $mindiff; } my $date = localtime(); $date =~ s/^(\w+)\s+(\w+)\s+(\d+)\s+(\d+:\d+:\d+)\s+(\d+)$/$1, $3 $2 $5 $4/; $smtp->datasend("Date: $date $GMTdiff\n"; > $smtp->datasend("From: Aman Thind\n"); $smtp->datasend("From: \"Aman Thind\" <[EMAIL PROTECTED]>\n"); Same for the other addresses. > $smtp->datasend("To : Aman Thind\n"); > $smtp->datasend("Cc : Shishir Saxena; Manish Kashyap\n"); > $smtp->datasend("Subject : ".$subject."\n"); > #Here is the body > $smtp->datasend("\n"); > $smtp->datasend($body); > $smtp->dataend(); > $smtp->quit; HTH, Jenda ===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz ===== When it comes to wine, women and song, wizards are allowed to get drunk and croon as much as they like. -- Terry Pratchett in Sourcery -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
