malumunuz delphide mail göndermenin en kolay yolu indy bileşenleri
yanlız bir problem yüzünden indy9 dan 10 geçiş yapmak zorunda kaldım
ve ondan sonra filim koptu
ben html olarak mesaj iiçinde resim gömerek gönderiyordum.
indy 10 a geçtiğimde attacment yerine attachmentfile ı kullandım zaten burdada örnekleri vardı
fakat şimdi göndrdiğim mailde resimler ek olarak görünüyor fakat mesajın içindeki resim görüntülenmiyor.
outlok expres resimleri gösteriyor fakat hotmail veya gmail gibi free maillerde resimler görüntülenmiyor.
işin ilgilinci 9 da gösterilen şey 10 da gösterilmiyor.
yaklaşık 1 haftadır uğraşıyorum kafayı yemek üzereyim lütfen yardım
Kod: Tümünü seç
smtp.Username := 'info@ben.com';
smtp.Password := '*****';
SMTP.Host := 'mail.ben.com';
SMTP.Port := 25;
IdMsgSend.Clear;
IdMsgSend.ContentType := 'Multipart/Alternative';
idtTextPart:=TIdText.Create(IdMsgSend.MessageParts,nil);
idtTextPart.ContentType:='text/plain';
idtTextPart.Body.Add(' ');
idtTextPart := TIdText.Create(IdMsgSend.MessageParts);
idtTextPart.Body.Text := (' ');
idtTextPart.ContentType := 'text/plain';
idtTextPart := TIdText.Create(IdMsgSend.MessageParts);
idtTextPart.Body.Text := '<html><body><b>işte resim burda</b><img src="dsd.jpg"></body></html>';
idtTextPart.ContentType := 'text/html';
idtImagePart := TIdAttachmentfile.Create(IdMsgSend.MessageParts, 'c:\dsd.jpg');
idtImagePart.ContentType := 'image/jpg';
idtImagePart.Headers.Add('Content-ID: <dsd.jpg>');
IdMsgSend.From.Address := 'info@ben.com';
IdMsgSend.From.Name := 'ben';
IdMsgSend.Sender.Address := 'info@ben.com';
IdMsgSend.Sender.Name := 'ben';
IdMsgSend.Recipients.clear;
with IdMsgSend.Recipients.Add do Address :=edit1.Text;
IdMsgSend.Subject := 'başlık işte';
try
try
SMTP.Connect;
SMTP.Send(IdMsgSend);
except
on e: Exception do
ShowMessage(e.message);
end;
finally
SMTP.Disconnect;
end;
showmessage('mail gitti');
end;