- ベストアンサー
MIME::EntityやNet::SMTPを使わずに、HTMLメールはできるのでしょうか？
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Mail::Sendmail を使えば出来ます。 http://alma.ch/perl/Mail-Sendmail-FAQ.html#HTML これは、pure perl なのでインストールする必要はなく 置くだけで使えます。 /cgi-bin/sendmail.cgi ------------------------ /cgi-bin/Mail/Sendmail.pm ↓を保存するだけ。 http://search.cpan.org/~mivkovic/Mail-Sendmail-0.79_16/Sendmail.pm
関連するQ&A
- net::smtp port設定
以下のコードでメールを送信したいのですが、デバッグのために書いたConnect failed over tls at /var/www/cgi-bin/net_smtp.cgi line 13.エラーが消えません。 ポートの部分を取り払うとコンパイルは出きるのですが、送信してくれません。何か間違っているところがあるのでしょうか？ #!/usr/bin/perl -w use POSIX; use Net::SMTP; use MIME::Entity; my $un = "****"; my $pw = "****"; my $SMTP_Port = '587'; #オブジェクトの作成 $smtp = Net::SMTP->new( Port=> $SMTP_Port, '********', #SMTPサーバ Hello=>'********')|| die "Connect failed over tls"; #SMTPサーバのドメインを指定 $smtp->auth(<*$un*>, <*$pw*>); #ヘッダ部の組み立て $smtp->mail('*******@********');#送信元の指定 $smtp->to('*******@**********'); #宛先の指定 #データ部の組み立て(MIME::Entityによるデータの作成) $smtp->data(); #$oMime = MIME::Entity->build( From => 'test', #送信元(データ部) To => 'test', #宛先(データ部） Subject => "easy mail sending", #件名 Data => ["simple mail2¥n", "MailTest¥nhello world¥n"]); $smtp->dataend(); #SMTP接続の終了 $smtp->quit;
- 締切済み
- CGI
- NET::SMTPについて
おねがいします。 NT環境からperlでメール送信したいと思っています。 NET::SMTPをPPMでダウンロードしました。 以下のサンプルプログラムを得て、SMTPサーバ名など を入れました。でも、エラーにはなりませんが送信されず。 そもそも、IDとpassの認証部分がないですよね。 このサンプルだと「SMTPサーバ名さえわかれば誰でも そのSMTPサーバからメールできちゃう」ってことに なりませんか？？ 他の方の質問にあった、 $smtp->auth( USERNAME, PASSWORD ); も試しましたが、エラーになりました。 認証うける方法があるのでしょうか？ よろしくおねがいします。 #!/usr/local/bin/perl -w use Net::SMTP; $smtp = Net::SMTP->new('mailhost'); $smtp->mail($ENV{USER}); $smtp->to('postmaster'); $smtp->data(); $smtp->datasend("To: postmaster\n"); $smtp->datasend("\n"); $smtp->datasend("A simple test message\n"); $smtp->dataend(); $smtp->quit;
- 締切済み
- Perl
- Net::SMTPだけで添付ファイルつきのメールを送信したいです。
フォームの内容をCSVファイルに出力し、CSVファイルをメールに添付して送信する機能をPerlで実現したいのですが、 諸事情によりパッケージ(MIMEなど)の導入ができないため、ActivePerlに標準で入っているNet::SMTPだけを使用して実現する必要があります。 どうすれば実現可能か御教示いただけると幸いです。 IIS6.0 ActivePerl 5.10.0
- 締切済み
- Perl
- MIME::LiteをSMTPで送信すると「ファイル番号が違います。」というリターンが帰って来る。
MIME::Liteパッケージについての質問です。 現在MIME::Liteパッケージを使用してメールを転送する プログラムを作成しております。 メールは正常に送信できるのですが、MIME::Liteのsendメソッド実行後の"$!"に「ファイル番号が違います。」というメッセージが格納されます。これは何を意味しているのでしょうか？よろしくお願いします。 <コード> #!/usr/bin/perl # パッケージ指定 use Net::SMTP; use Net::POP3; use MIME::Lite; use MIME::Base64; use Jcode; # メールcfgを読み込み require "$ARGV[0]"; # メールサーバを指定 $MAILSERVER = 'hoge'; # コンテナを作成 my $msg = MIME::Lite->new( From => "$FROM", To => "$TO", cc => "$CC", Bcc => "$BCC", Subject => "$SUBJECT", Type => 'multipart/mixed' ); # メッセージを追加 $msg->attach( Type => 'text/plain; charset="iso-2022-jp"', Data => "$MESSAGE" ); # 添付ファイルが指定されているかチェック if (! $FILEPATH eq "" ) { # 添付ファイルが存在するかチェック if (! -e $FILEPATH ) { print "添付ファイル名:$FILEPATH\n"; exit 67; } else { # FILENAMEをGET $NUM = rindex($FILEPATH,'/'); $FILENAME = substr($FILEPATH, $NUM+1); # 添付ファイルを追加 $msg->attach( Type => 'application/octet-stream', Disposition =>'attachment', Encoding => 'Base64', Filename => "$FILENAME", Path => "$FILEPATH" ); } } # メール送信 $msg->send('smtp', $MAILSERVER); if (! "$!" eq "" ) { exit 68; } print "メールの送信が完了しました\n"; exit 0; <環境> OS:solaris 8 Perl:version 5.005_03
- ベストアンサー
- Perl
- SMTPでメール送信するメールフォーム
Perlを学んでまだ数ヶ月の初心者ですが、今SMTPを用いたメールフォームを作ろうとしています。 sendmailを用いたものは、色々な参考書などを参考にして何とかできたのですが、SMTPの方はよく分からず困っています。 SMTPでメール送信するにはモジュール(Net::SMTP)を使わないといけないのですか？ またモジュールを導入しようと試みたのですが、難しくて分かりませんでした(モジュールの設置場所なども)。 こちらの方も分かる方がいらっしゃいましたら、教えて頂けると幸いです。 よろしくお願いします。
- ベストアンサー
- Perl
- Net::SMTPでのメール送信について
Net::SMTPモジュールを利用してメール送信をしています。 複数の宛先にメールを送る場合に、 my ($smtp) = Net::SMTP->new($smtp_server); $smtp->to('****@hogehoge.com', '**@mogemoge.com'); とすれば、複数に送れるのですが、 my ($mail_to) ='\'****@hogehoge.com\',\'**@mogemoge.com\''; として $smtp->to($mail_to); とするとメールを送信することが出来ません。 何故でしょうか？教えてください。
- ベストアンサー
- Perl
- Mail_mimeを使用したHTMLメールについて
PEARのMail_mimeを使用してHTMLメールを送信するプログラムを組んでいます。 携帯へ送信した際に背景色や文字色は問題なく反映されているのですが メール内に記載した<img src="××××">だけが、表示されません。 現状ではsoftbankでのみ検証しており、Au、Docomoでは未検証です。 PCで表示されているためURLに問題はなく、画像サイズも携帯サイトで使用しているので 問題があるとは思えないのですが、他に原因がありましたら、お分かりになる方ご教授いただけませんでしょうか？ 何卒よろしくお願い致します。
- ベストアンサー
- PHP
- ＨＴＭＬエンティティ生成は使った方がいいですか？
「ＨＴＭＬエンティティ生成」というソフトを見つけたのですが やはり使った方がいいのでしょうか？ 専門家の方は使っていらっしゃいますか？ わりと大きなサイトで確認してみたのですが 使用さえれていないようなので素人の私にはピンときません。 それで、もし使う方が良いという事でしたら何か注意すべきことはありますでしょうか？ それとも素人には難しいことなのでしょうか・・ 宜しくお願い致します。
- ベストアンサー
- スパイウェア
- IE6.0でレスポンスメッセージに含まれるMIMEに準拠させたい
レスポンスメッセージ中のエンティティヘッダフィールドにMIMEで text/plain を指定しているにもかかわらず、IE6.0では、HTML文書として処理を行ってしまいました。 これは多くの場合で間違っていないかもしれませんが、正確に従ってほしい時に余計です。 現在、MIMEで指定された形式のファイルとして処理してほしい状況にあります。 IEが勝手にファイル形式を特定せず、MIMEで指定された形式のファイルであるとして処理をさせる方法はないのでしょうか？
- 締切済み
- ブラウザ
- PerlでSMTP-AUTH認証をする
現在、さくらのレンタルサーバにてperlスクリプトを稼動しています。 今回、さくらのレンタルサーバのメール認証がPOP before SMTPからSMTP認証(SMTP-AUTH)に変更になりましたので、perlスクリプト内で自動メール送信させるのにNet::SMTP::TLSモジュールを利用することにしました。そこで (1)SMTPサーバー名、ポート番号、ユーザー名、パスワードを設定する (2)宛先などの必要な設定をする (3)メール内容を設定する (4)メールヘッダを設定する (5)メールを送信する という流れで現在perlスクリプトを以下のように記述しました。 #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use Net::SMTP::TLS; use Authen::SASL; my $smtp = Net::SMTP::TLS->new($mailhost, Port => $mailport, User => $mail_username, Password => $mail_password ); $smtp->mail($from_mail); $smtp->to($tomail); $smtp->data(); $smtp->datasend($header); $smtp->datasend($message); $smtp->dataend(); $smtp->quit; 変数の値は割愛していますが、 上記のスクリプトは、POP before SMTPの時は問題なくメール送信できたのですが、サーバのメール認証がSMTP認証(SMTP-AUTH)に変更になってからは以下のようなエラーが出ます。 invalid SSL_version specified at /usr/local/perl/5.8/lib/perl5/site_perl/5.8/IO/Socket/SSL.pm line 418 何か間違いであるとか、他に必要な設定がありますでしょうか? 宜しくご教授お願いいたします。
- ベストアンサー
- Perl
