Mail gönderme kodlarımız:
Kod: Tümünü seç
procedure Mailgonder;
var
ImagePart: TIdAttachmentFile;
HtmlPart:TIdText;
begin
try
//setup mail message
// Burada EPosta componenti TIdMessage tipinden. Form üzerinde duruyor.
EPosta.Clear;
EPosta.From.Address := 'info@bizimsirket.com';
EPosta.From.Name := 'Bizim Şirket Ltd. Şti.' ;
EPosta.ReplyTo.EMailAddresses:= EPosta.From.Address;
EPosta.Recipients.EMailAddresses := 'alici@aliciltd.com';
EPosta.Subject := 'Buraya mail konusu yazılacak';
//[b] İşin sırrı burada işte [/b]
EPosta.ContentType:='multipart/related; type="text/html"';
EPosta.Body.Text := '';
EPosta.CharSet := 'iso-8859-9'; // Türkçe ayarı
// Burada HtmlPart, TIdText türünden
HtmlPart := TIdText.Create(EPosta.MessageParts);
HtmlPart.ContentType := 'text/html';
HtmlPart.CharSet := 'iso-8859-9';
HtmlPart.Body.LoadFromFile('c:\test.html'); // Burada mail içeriği bir dosyadan yükleniyor
// html dosyası içerisindeki image linkleri <IMG SRC="cid:logo.jpg"> şekline çevrilmeli
ImagePart := TIdAttachmentFile.Create(EPosta.MessageParts, 'c:\logo.jpg');
ImagePart.ContentType := 'image/jpeg';
ImagePart.ContentDisposition := 'inline';
ImagePart.ExtraHeaders.Values['content-id'] := ExtractFileName('c:\logo.jpg');
ImagePart.DisplayName := ExtractFileName('c:\logo.jpg');
SMTP1.Host := 'mail.bizimsirket.com';
SMTP1.AuthType := atDefault;
SMTP1.Username := 'info@bizimsirket.com';
SMTP1.Password := 'xxxxxx';
SMTP1.Port := 25;
SMTP1.ConnectTimeout:=2000;
SMTP1.Connect;
SMTP1.Send(EPosta);
except
raise;
end;
end;
HTML dosyasını içeriği (Yani c:\test.html)
Kod: Tümünü seç
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<title>Deneme postası</title>
</head>
<body>
<p>Deneme Postası</p>
<p><img src="cid:logo.jpg"></p>
<p>Merhaba Dünya</p>
</body>
</html>
Kod: Tümünü seç
procedure TForm1.EPostaInitializeISO(var VHeaderEncoding: Char;
var VCharSet: String);
begin
VCHarSet := 'iso-8859-9';
end;
