Indy de Mime Versiyon

[naile]

Indy kullanarak mail gönderimi yapıyorum. IDMessage ın Encoding i için meMime seçili. ContentType olarak da multipart/mixed. Gönderdiğim mailin headersında şöyle bir satır ekleniyor:

X-Antivirus-GUNES-1.24-st-qms: added fake MIME-Version header
MIME-Version: 1.0

add fake MIME-Versiyon olmasından dolayı sanırım maili spama atıyor. Ben eğer MimeVersiyonu kendim yazdırabilirsem bu sorun ortadan kaybolabilir diye düşünüyorum ama tabi yine de tam emin değilim. Böyle bir sorunla karşılaşmış olan var mı? Veya mime versiyonu elimle verebilir miyim?

[lazio]

ContentType ı text/html olarak deneyin birde..
Bu durumda da Hotmail de sorun çıkabilir, Linki inceleyebilirsiniz.
viewtopic.php?p=75303#75303

[naile]

text/html kullanmıştım onda da aynısını yapıyor. verdiğin koddaki gibi delphide de mime versiyon belirlenebilse sanırım olay hallolacakta işte öyle bir özellik bulamadım.

[lazio]

Kod: Tümünü seç

procedure TForm1.Send_Mail(_UserName, _Password, _Host : String; _Port : Integer;_AuthenticationType : TAuthenticationType;
_SenderEMailAdress, _To, _Cc, _Bcc, _Subject, _BodyText : String;
_Priority, _ReceiptRecipient : Byte; _Attachments : TStrings);
var
  xSMTP : TIdSMTP;
  xMessage : TIdMessage;
  x : Integer;
begin
  ShowMessage('Gönderiliyor..');
  xSMTP := TIdSMTP.Create(Self);
  try
    with xSMTP do
    begin
      Username := Trim(_UserName);
      Password := Trim(_Password);
      Host := Trim(_Host);
      Port := _Port;
      AuthenticationType := _AuthenticationType;
      Connect;
    end;
  except
    ShowMessage('SMTP Sunucusuna Bağlantı Sağlanamadı..');
    xSMTP.Free;
    Exit;
  end;
  xMessage := TIdMessage.Create(Self);
  try
    with xMessage do
    begin
      From.Text := Trim(_SenderEMailAdress);
      ReplyTo.EMailAddresses := Trim(_SenderEMailAdress);
      Recipients.EMailAddresses := Trim(_To);
      CCList.EMailAddresses := Trim(_Cc);
      BccList.EMailAddresses := Trim(_Bcc);
      Subject := Trim(_Subject);
      Body.Text := Trim(_BodyText);
      Priority := TIdMessagePriority(_Priority);
      if _ReceiptRecipient = 1 then
        ReceiptRecipient.Text := Trim(From.Text)
      else
        ReceiptRecipient.Text := '';

      if _Attachments.Count > 0 then
        for x := 0 to _Attachments.Count - 1 do
          TIdAttachment.Create(xMessage.MessageParts, _Attachments.strings[x]);

      try
        xSMTP.Send(xMessage);
      finally
        xSMTP.Disconnect;
      end;
    end;
    xSMTP.Free;
    xMessage.Free;
  except
    ShowMessage('Mail Gönderilemedi..');
    xSMTP.Free;
    xMessage.Free;
    Exit;
  end;
  ShowMessage('Gönderildi..');
end;

Yukarıdaki kodu sorunsuz şekilde kullanmıştım. Sanırım bu durumda Mime version ve ContentType default olarak kalıyor..

[naile]

Burdaki linki kullanarak sorunumu halletim:

http://www.dragonsoftru.com/articles/indy-email.html