indy smtp ile email gönderilmesi

[csyasar]

Kod: Tümünü seç

uses idMessage;

function TfrmMain.SendMail(FileToSend: String): String;
var
  MailMsg        : TidMessage;
  MailFile       : TidAttachment;
begin
  // attachment la birlikte gönderiyor
  MailMsg := TidMessage.Create(idSMTP);
  // from
  MailMsg.From.Address := 'gondericiadresi@delphiturkiye.com';
  MailMsg.From.Name    := 'gondericiadı';
  MailMsg.Recipients.Add;
  MailMsg.Recipients.Items[0].Address := 'gonderilenadres@delphiturkiye.com';
  //
//  MailMsg.ReplyTo.      := GetOption('FromAddress');
  MailMsg.Subject      := 'Screenshot created on ' +
                          FormatDateTime('dd.mm.yyyy hh:nn:ss', Now);
  // attachment işte burda
  MailFile             := TidAttachment.Create(MailMsg.MessageParts, FileToSend);
  MailFile.DisplayName := MailMsg.Subject;

  // server a bağlanıyor
  try
    idSMTP.Connect();
  except
    on E : Exception do
       Exit;
  end;

  // gönderiyor
  try
    idSMTP.Send(MailMsg);
  except
    on E: Exception do
        Exit;
  end;
  AddToLog('Message sent.', clGreen);

  // işlem bitince hafızayı temizliyor.
  idSMTP.Disconnect;
  MailFile.Free;
  MailMsg.Free;
end;