3

您好，我正在尝试从 delphi (indy) 向 gmail 地址发送消息。当我转到 Gmail 时，我在垃圾邮件文件夹中发现了我的邮件。如果我尝试从 web 使用 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;
4

2 回答 2

4

可能我已经发现了问题。我在“原始模式”中查看消息，在标题中发现 google 显示“MISSING ID”，并尝试添加以下代码：

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

现在它似乎工作正常。

谢谢

于 2013-01-23T15:38:54.353 回答
1

您是否尝试过更改HeloNameand MailAgentof IdSMTP？如果您使用与 PHPMailer 相同的域，我的猜测是 GMail 将来自您的应用程序的电子邮件视为垃圾邮件，因为它不会检测/不喜欢发送它们的应用程序。

于 2013-01-23T14:40:53.640 回答