Indy发送带有UTF-8字符的接收者的电子邮件

Question

我试图用Indy 10中的TIdSMTP组件发送一封电子邮件，我的接收者列表中有Unicode字符(比如Роман Безяк <roman_bezjak@yahoo.com>)。但是当邮件被发送时，在电子邮件的To标题中，我看到了以下内容："?????????" <roman_bezjak@yahoo.com>。有人能帮我解决这个编码问题吗？

我的程序是这样的：

procedure TMailClientForm.btnSendEmailClick(Sender: TObject);
var
  mes : TIdMessage;
  i : Integer;
begin
  with SMTPClient do begin
    Host := serverHost;
    Port := SmtpServerPort;
    Username := myUserName;
    Password := myPassword;
    UseTLS := utUseImplicitTLS;
  end;
  try 
    mes := tidmessage.Create(nil);
    try
      with mes do begin
        ContentType := 'text/plain';
        ClearBody;
        Body.Text := memoEmailBody.Text;
        Subject := txtEmailSubject.text;
        From.Address := SMTPClient.Username; 
        From.Name := myName; // cyrillic symbols!
        Recipients.Add.Address := myReceiver; // cyrillic symbols! like 'Роман Безяк <roman_bezjak@yahoo.com>'
        CharSet := 'utf-8';
      end;
      if fileNames.Count > 0 then // attachments - the files are in the stringlist fileNames
        mes.ContentType := 'multipart/mixed';
      for i := 0 to fileNames.count - 1 do begin
        if FileExists(fileNames[i]) then
          TIdAttachmentFile.Create(mes.MessageParts, fileNames[i]);
      end;
      try
        try
          try
            SMTPClient.Connect;
          except
            on e : Exception do begin
              MessageDlg('ERROR=' + SMTPClient.LastCmdResult.Text.Text, mtError,   [mbOK], 0);
              Exit;
            end;
          end;
          try
            SMTPClient.Send(mes);            
          except
            on e : Exception do begin
              MessageDlg('ERROR=' + SMTPClient.LastCmdResult.Text.Text, mtError, [mbOK], 0);
              Exit;
            end;
          end;
        finally
          if SMTPClient.Connected then
            SMTPClient.Disconnect;
        end;
        fileNames.clear;
      except
        on e:exception do begin
          MessageDlg(e.message, mtError, [mbOK], 0);
        end;
      end;
    finally
      mes.Free;
    end;
  except
    on e:exception do begin
      MessageDlg(e.message, mtError, [mbOK], 0);
    end;
  end;
end;

Answer 1

Recipients.Add.Address := myReceiver；//西里尔符号！比如“roman\_bezjak@yahoo.com”(РоманБезякРоманБезяк)

如果myReceiver同时包含名称和电子邮件地址，则需要使用TIdEMailAddressItem.Text属性而不是TIdEMailAddressItem.Address属性：

Recipients.Add.Text := myReceiver; // cyrillic symbols! like 'Роман Безяк <roman_bezjak@yahoo.com>'
// Name becomes 'Роман Безяк'
// Address becomes 'roman_bezjak@yahoo.com'...

TIdEmailAddressItem.Text属性setter方法解析输入字符串，并相应地将其拆分为TIdEmailAddressItem.Name和TIdEmailAddressItem.Address属性。

TIdEmailAddressItem.Address属性根本没有setter方法，因此您分配的任何内容都是按原样使用的。

在对电子邮件进行编码时，如果存在任何非ASCII字符，则TIdEmailAddressItem.Name值将按RFC 2047进行MIME编码。TIdEmailAddressItem.Address值没有得到MIME编码，因为假设电子邮件地址只包含ASCII字符(Unicode电子邮件地址确实存在，但尚未普遍使用)。电子邮件头必须位于ASCII中，因此您将看到Роман Безяк变成?????????，因为您将其插入TIdEmailAddressItem.Address属性，并且它被转换为ASCII (其中非ASCII字符变为?)，而不进行MIME编码。

因此，通过将Name与Address分开，您应该可以看到正确地处理Роман Безяк。