Mail de resim gönderme

[Dostk]

Merhaba.

Mailı ('C:\web\default.html') kullanarak gönderiyorum, fakat default.html'de firma logosu olan bir resim varsa bu resim maila ekli olarak gitmiyor, bu resmin gidebilmesi için ne yapmam gerek?

Kod: Tümünü seç

procedure TForm1.GonderButtonClick(Sender: TObject);
begin
  try
   Gonder.Caption := 'Bekleyiniz...';
    with EPostaFDQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * From EPOSTA');
      Prepared := True;
      Open;

      IdSMTP1.Host := FieldByName('HOST').AsString;
      IdSMTP1.Username := FieldByName('USERNAME').AsString;
      IdSMTP1.Password := FieldByName('PASSWORD').AsString;
      IdSMTP1.Port := FieldByName('PORT').AsInteger;
      IdSMTP1.AuthType := SatDefault;
      IdSMTP1.ConnectTimeout := 1000;
      IdMessage1.From.Address := FieldByName('ADDRESS').AsString;
      IdMessage1.From.Name := 'XXX;
      IdMessage1.Subject := 'Şifre Hatırlatma';
      IdMessage1.Recipients.EMailAddresses := 'XXXX@hotmail.com';
    end;

    IdMessage1.Body.LoadFromFile('C:\web\default.html'); // -<<<--------

    IdMessage1.ContentType := 'Text/Html; charset=UTF-8';
    IdMessage1.ContentTransferEncoding := '8bit';
    IdSMTP1.Connect;
    IdSMTP1.Send(IdMessage1);
    IdMessage1.Clear;
    Form1.Caption := 'E-Posta Adresinize Kullanıcı Bilgileriniz Gönderildi!';
    if IdSMTP1.Connected then
    begin
      GonderButton.Caption := 'Gönder';
      IdSMTP1.Disconnect;
    end;
  except
    ShowMessage('Bağlantı Kurulamadı');
  end;
end;

[denizfatihi]

Merhaba,

Ben resim gönderirken aşağıdaki şekilde yapıyorum, inşallah işine yarar.

Kod: Tümünü seç

begin
IdSMTP1.Host:='mail.kont.com.tr';
IdSMTP1.AuthType:=satNone;//atLogin;//şifre var
IdSMTP1.Username:=Edit2.Text;
IdSMTP1.Password:=Edit3.Text;
IdSMTP1.Port:=25;
IdSMTP1.Connect;

IdMessage1.From.Name:='Crea Finans';//Edit10.Text;   //Gönderenin adı
IdMessage1.From.Address:='Crea_Finans@crea.com.tr';//Edit11.Text; //gönderenin adresi
IdMessage1.Subject:=Edit15.Text;//Başlık


IdMessage1.Recipients.EMailAddresses:=Edit12.Text;//Buraya Yolla
IdMessage1.CCList.EMailAddresses:=Edit11.text;

with TIdText.Create(IdMessage1.MessageParts, nil) do
  begin
    Body.LoadFromFile('C:\MailKontBilgi\Resim\Bilgi.html');
    Body.Text := StringReplace(Body.Text,'src="Bilgi.files/img0.jpg"','src="cid:img0.jpg"', [rfReplaceAll]);
    Body.Text := StringReplace(Body.Text,'src="Bilgi.files/img1.jpg"','src="cid:img1.jpg"', [rfReplaceAll]);
    ContentType := 'text/html';
    CharSet:= 'iso-8859-9' //'windows-1250';
  end;
  with TIdAttachmentFile.Create(IdMessage1.MessageParts, 'C:\MailKontBilgi\Resim\Bilgi.files\img0.jpg') do
  with TIdAttachmentFile.Create(IdMessage1.MessageParts, 'C:\MailKontBilgi\Resim\Bilgi.files\img1.jpg') do
  begin
    ContentID := '56789';
    ContentType := 'image/jpeg';
    FileName := 'img0.jpg';
    FileName := 'img1.jpg';
    ContentType := 'text/html';
    CharSet:= 'iso-8859-9' //'windows-1250';
  end;

  IdMessage1.ContentType := 'multipart/related; type="text/html"';
  IdMessage1.CharSet:= 'multipart/related; type="windows"';
IdSMTP1.Send(IdMessage1); //yolla
IdSMTP1.Disconnect;