LINUX.ORG.RU

письмо


0

0

Скажите как или подкиньте пример:

имеется скрипт где письмо хранимое в файле ( vasya.pupkin@domain.com.12354321) в таком же виде как оно хранилось бы в /var/spool/mail/vasya.

Мне надо его переслать по какому-то адресу и туда же кому оно было адресованно в скрипте?

вот кусок из него....

$message = Mail::Message -> new;
	$message = Mail::Message -> read($rfc_as_string);

	$from = $message -> head -> get("From");
	
	chomp($from);

       	$subject = $message -> head -> get("Subject");

	$body = $message -> body;
       	$body = $message -> decoded -> string;


.........

$smtp = Net::SMTP->new("$smtp_server");

	$smtp -> mail($from);
       	$smtp -> to("$user\@$mydomain");

        $smtp -> data();
  	$smtp -> datasend("To: $user\@$mydomain\n");
       	$smtp -> datasend("Subject: $subject\n");
       	$smtp -> datasend("$body");
	$smtp -> datasend();


.....................


Но все проблема была , что html в письме не отображался правильно, 
тогда я добавил 

$content_type = $message -> head -> get("Content-Type");

и все потом стало лучше , но как быть с атачами, они не запихиваются в письмо и поле "Content-Transfer-Encoding" не читается ни из "head" ни из "body"

Или есть простой способ как из скрипта
послать письмо, которое хранится в файле.

Спасибо заранее.










anonymous

Re: письмо

>Или есть простой способ как из скрипта послать письмо, которое хранится в файле.

я собственно так и непонял у тебя отдельный файл на каждое письмо или все письма в одном файле как в /var/spool/mail/vasya?

для первого случая

cat vasya.pupkin@domain.com.12354321|sendmail "$user\@$mydomain"

ещё обрати внимание на ключ -t

cvv ★★★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.