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

名前

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

本文 ソースが無いのでなんとも言えませんし、 単体で動くけど〜のくだりが意味不明です。 本家のコードを見ると特に特殊な設定は不要そうですが、 http://www.indyproject.org/sockets/blogs/rlebeau/2005_08_17_a.en.aspx コードはこんな感じですかね？(XE2のIndy10) //dekoさんのサンプルに添付ファイルを追加 //http://ht-deko.minim.ne.jp/tech057.html#tech112 //uses IdAttachment, IdAttachmentFile procedure TForm1.IdMessage_InitializeISO(var VHeaderEncoding: Char; var VCharSet: string); begin VHeaderEncoding := 'B'; VCharSet := 'UTF-8'; end; procedure TForm1.Button1Click(Sender: TObject); var SMTP: TIdSMTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Msg : TIdMessage; Attachment:TIdAttachmentFile; //追加 begin SMTP := TIdSMTP.Create(nil); try SMTP.Host := 'smtp.gmail.com'; SMTP.Port := 587; SMTP.Username := 'xxxxxx@gmail.com'; // UserName SMTP.Password := 'xxxxxx'; // Password SSL := TIdSSLIOHandlerSocketOpenSSL.Create; try SSL.Host := SMTP.Host; SSL.Port := SMTP.Port; SSL.Destination := SSL.Host + ':' + IntToStr(SSL.Port); SMTP.IOHandler := SSL; SMTP.UseTLS := utUseExplicitTLS; SMTP.Connect; Msg := TIdMessage.Create(SMTP); try Msg.OnInitializeISO := IdMessage_InitializeISO; Msg.ContentType := 'multipart/mixed'; //変更 Msg.CharSet := 'UTF-8'; Msg.ContentTransferEncoding := 'BASE64'; // BASE64 (7bit) //Msg.ContentTransferEncoding := '8bit'; // RAW(8bit) Msg.From.Name := 'xxxxxx@gmail.com'; Msg.From.Address := 'xxxxxx@gmail.com'; Msg.Recipients.EMailAddresses := 'xxxxxx@gmail.com'; Msg.Subject := 'Unicode String (subject)'; Msg.Body.Text := UTF8Encode('Ansi String (body)'); Attachment := TIdAttachmentFile.Create(Msg.MessageParts,'test.jpg'); //追加 Attachment.FileName := 'test.jpg'; //追加 Attachment.ContentType := 'image/jpeg'; //追加 SMTP.Send(Msg); finally Attachment.Free; Msg.Free; end; SMTP.Disconnect; finally SSL.Free; end; finally SMTP.Free; end; end;