私のかわいいＩｎｄｙ坊やについてご相談します。 (ID:41240)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 皆様、ご心配をおかけしました。 私のindy坊やが帰ってくるようになりました。 先日、ご報告しました、 当「Ｑ＆Ａ掲示板」（ 2009/05/27(水)）の中で、 2009/06/28(日) 18:43:45 「ak」さんが回答されている内容を手がかりに openssl-0.9.8h-i386-win32-Indy-IntraWebEdition.zip をダウンロ-ドしてみたところ IdSSLOpenSSLHeaders10.pasと2つのＤＬＬ（libeay32.dll・ssleay32.dll）が内包されています。 IdSSLOpenSSLHeaders.pas は、新しいindy10ですでにインスト-ルしていますので、何もしないで 2つのＤＬＬ（libeay32.dll・ssleay32.dll）だけを、添付ファイル付きメ-ルを実行するデレクトリ-にコピ-していれたところ上手くいくようになりました。 単体としても、他のプログラムから呼び出してもＯＫです。 ただし、Monaa 様から、ご指摘いただきましたように添付ファイルのアドレスに日本語があるとだめみたいです。 私の場合 「C:\DFwork3\レシピ下さい\bZip\Re01E111114001cm.zip」 の中の 「レシピ下さい」がだめです。 とりあえず、windows xp delphi7 indy10 でうまくいきそうな プログラムを置かせてください。 //内容は、dekoさんのサンプルを参考に //http://ht-deko.minim.ne.jp/tech057.html#tech112 //添付ファイルの処理をを付け加えたものです //SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS procedure TMail_Send2F.IdMessage_InitializeISO(var VHeaderEncoding: Char; var VCharSet: string); begin VHeaderEncoding := 'B'; VCharSet := 'UTF-8'; end; procedure TMail_Send2F.GMail_Send; var SMTP: TIdSMTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Msg : TIdMessage; asubject,abody,aattach:String; Adr_Frm,Adr_To,PasWd:String; begin asubject:=Mail_subjectMake(MailSendSw,edtSubject.Text); // 単に subjectを作っているだけ abody :=memBody.Text; // jconvert.ConvertJCode // delphi7 indy10 になってから日本語変換は要らない ? 変換すると化ける //cccccccccccccccccccccccccccccccccc Adr_Frm:=NowHos.MlAdr; //送信元 Adr_To :=NowIri.i_MlAdr; //送信先 PasWd :=NowHos.Paswd; //SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SMTP := TIdSMTP.Create(nil); try SMTP.Host :=NowHos.Shost; // smtp.gmail.com SMTP.Port :=patoi(NowHos.Sport); // 587 SMTP.Username :=NowHos.Yname; SMTP.Password :=NowHos.Paswd; SSL := TIdSSLIOHandlerSocketOpenSSL.Create; try SSL.Host := SMTP.Host; // smto.gmail.com SSL.Port := SMTP.Port; // 587 SSL.Destination :=format('%s:%d',[ SSL.Host, SSL.Port ] ); SMTP.IOHandler := SSL; SMTP.UseTLS := utUseExplicitTLS; //SSSSSSS 送信 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS if SMTP.Connected then SMTP.Disconnect; try SMTP.Connect; try Msg := TIdMessage.Create(SMTP); try with Msg do begin OnInitializeISO := IdMessage_InitializeISO; ContentType := 'text/plain'; CharSet := 'UTF-8'; ContentTransferEncoding := 'BASE64'; // (7bit) From.Name := Adr_Frm; From.Address := Adr_Frm; Recipients.EMailAddresses := Adr_To; Subject := asubject; Body.Text := abody; end; // TTTTTT 添付ファイルの処理 TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT aattach:= edtAttach.Text; if aattach <> '' then begin msg.ContentType := 'multipart/mixed'; with TIdAttachmentFile.Create(Msg.MessageParts,aattach) do begin FileName:=JConvert.ConvertJCode(ExtractFileName(aattach), JIS_OUT); end; end; //ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss /// SousinCk(1); SMTP.Send(msg); except on E:Exception do //StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message); end; finally Msg.Free; end; finally SMTP.Disconnect; end; finally SSL.Free; end; finally SMTP.Free; ShowMessage('送信完了しました。'); end; end; //EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE Monaa 様のご助言が無ければ、くじけて 喉に小骨を刺したまま年をこしたかも知れません。 管理人様、誰かが付けた、解決のマ-クを外していただき、チャンスをいただけた事を感謝します。 問題が無い見たいので、完全解決といたします。 indy坊やと共にどうも、有難うございました。メリ-・クリスマス。