• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 356
  • Last Modified:

I need script for attaching files using sendmail?

I am using perl subroutine in order to sendmail
what should I change or add to this subroutine in order
to sendmail with attachment.

sub mailto
{
($To,$Su,$Bod)=@_;
local($sr)='mailto' ;
open(MAIL,"|/usr/lib/sendmail -t")||die(&logger($sr,"can not open process sendmail"));
print MAIL "To: $To\n";
print MAIL "From: someone\@tase.co.il\n";
print MAIL "Subject: ".$Su."\n\n";
print MAIL "".$Bod ;
close(MAIL);
}
I dont want to use package  as MIME:lite
0
tzahi
Asked:
tzahi
  • 2
1 Solution
 
tzahiAuthor Commented:
Edited text of question
0
 
tzahiAuthor Commented:
Edited text of question
0
 
b2piCommented:
sendmail doesn't deal with attachments, per se.  It just sends the text you have given it. It is generally the job of one of the MIME packages to create attachments.  What is your objection to using a package?
0
 
ahoffmannCommented:
check some of your mails how it is constructed using attachements, then `print' this information to MAIL,
finally you have to uuencode (or encode64) your file and print
the result of it to MAIL (don't forget the final attachment string).
That's it.

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now