delphi - 使用 Indy 向 Gmail 地址发送电子邮件会被视为垃圾邮件

Question

您好，我正在尝试从 delphi (indy) 向 gmail 地址发送消息。当我访问 Gmail 时，我在垃圾邮件文件夹中发现了我的邮件。如果我尝试使用 PHPMailer 从网络发送相同的消息，它可以正常工作。这是代码。

谢谢

//setup SMTP
SMTP.Port := 25;
SMTP.ConnectTimeout := 1000;
SMTP.Host := 'smtp.xxxxxx.it';
SMTP.Username := 'info@xxxxxx.it';
SMTP.Password := 'xxxxxx';
SMTP.Connect();

if SMTP.Authenticate then
begin
    //setup mail message
    MailMessage.From.Name := 'xxxxxx';
    MailMessage.From.Address := 'info@xxxxxx.it';
    MailMessage.Recipients.EMailAddresses := 'xxxxxx@gmail.com';

    MailMessage.Subject := ledSubject.Text;
    MailMessage.ContentType := 'multipart/mixed';
    htmpart := TIdText.Create(MailMessage.MessageParts, nil);
    htmpart.Body := Body.Lines;
    htmpart.ContentType := 'text/html';

    //send mail
    try
        try
            SMTP.Send(MailMessage);
        except on E:Exception do
            StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
        end;
    finally
        if SMTP.Connected then SMTP.Disconnect;
    end;
end;

Answer 1

也许我已经发现问题了。我在“原始模式”下查看消息，我在标题中发现谷歌说“缺少 ID”，然后我尝试添加以下代码:

    MailMessage.MsgId := '1234567890@drinkmessage.it';
    MailMessage.ExtraHeaders.Values['Message-Id'] := MailMessage.MsgId;

现在看起来工作正常。

谢谢