私のかわいいＩｎｄｙ坊やについてご相談します。 (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;

←解決時は質問者本人がここをチェックしてください。

戻る