Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi ile Gmail Hesabından Mail Gönderimi
#1
Benim en çok kullandığım şeydir kendileri.
Yaptığınız exe dizininde  libeay32.dll ve ssleay32.dll dosyaları bulunması gerekiyor aksi takdirde ssl hatası alırsınız. dll dosyalarını Buradan İndirebilirsiniz. Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
İlk mail gönderiminde başarısız olacaktır ve gmail size bir mail gönderecektir “Şifrenizi başka biri biliyor”  gibi, o maili açarak o kişinin siz olduğunuzu işaretlemeniz gerekiyor ve ilgili ekran sizi bir kaç ayar yapmaya yönlendirecektir bu ayarları da yapmanız gerekiyor.
Bu ayarları yaptıktan sonra mail gönderimine başlayabilirsiniz.


var
SMTP:TIdSMTP;
EPosta: TIdMessage;
LHandler: TIdSSLIOHandlerSocketOpenSSL;
HtmlPart:TIdText;
mailhtml:string;
ImagePart: TIdAttachmentFile;
HtmlPart:TIdText;
begin
   SMTP:=TIdSMTP.Create(nil);
   EPosta:=TIdMessage.Create(nil);
   LHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
   try
   SMTP.Host:='smtp.gmail.com'  ;
   SMTP.Username:='xxxxx@gmail.com'; //gönderen Email
   SMTP.Password:='xxxxx'; //Gönderen Email şifresi
   SMTP.Port:= 587;
   SMTP.AuthType := satDefault;
   LHandler.Destination := SMTP.Host+'587';
   LHandler.Host := SMTP.Host;
   LHandler.Port := SMTP.Port;
   LHandler.DefaultPort := 0;
   LHandler.SSLOptions.Method := sslvTLSv1 ;
   LHandler.SSLOptions.Mode := sslmUnassigned;
   LHandler.SSLOptions.VerifyMode := [];
   LHandler.SSLOptions.VerifyDepth := 2;

   { // Email ile html gönderimi için
       HtmlPart := TIdText.Create(EPosta.MessageParts);
       HtmlPart.ContentType := 'text/html';
       HtmlPart.CharSet := 'iso-8859-9';
       HtmlPart.Body.LoadFromFile('html dosya dizini');
       
       TIdAttachmentFile.Create(EPosta.MessageParts, 'ek dizini');
       
       ImagePart := TIdAttachmentFile.Create(EPosta.MessageParts, 'fotoğraf dizini');
       ImagePart.ContentType := 'image/png';
       ImagePart.ContentDisposition := 'inline';
       ImagePart.ExtraHeaders.Values['content-id'] := ExtractFileName('fotoğraf dizini');
       ImagePart.DisplayName := ExtractFileName('fotoğraf dizini');
   }
   SMTP.IOHandler := LHandler;
   SMTP.UseTLS := utUseExplicitTLS;
   SMTP.ConnectTimeout := 10000;
   SMTP.Connect;
   EPosta.From.address := 'xxx@xx.com'; // gönderilecek e mail adresi aralarına ; koyarak bir çok kişiye gönderebiliriz.
   EPosta.Subject:= 'Android Mail Servisi'; // mail konusu
   EPosta.Body.Add(''); // Mail yazısı
   EPosta.From.Name := 'Android Mail Servisi'; // mail göneren ismi
   EPosta.Recipients.EMailAddresses := 'xxxxxx@gmail.com'; // gelen mailde görünecek mail adresi
   EPosta.CharSet:='iso-8859-9';
   SMTP.Authenticate;
   try
     SMTP.Send(EPosta);
   finally
     SMTP.Disconnect;
   end;
finally
   SMTP.Free;
   EPosta.Free;
   LHandler.Free;
end;
end;

Bilrax'a yardımlarından dolayı teşekkür ederim.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ile Json Parse İşlemi yhackup 11 682 18-02-2018, Saat: 14:33
Son Yorum: hakanharbeli
Question delphi 10.1'den 10.2' ye geçiş BY-HAYALET 10 174 18-02-2018, Saat: 12:33
Son Yorum: BY-HAYALET
  Delphi ile NVİ KPS (Kimlik Paylaşım Sistemi) web servislerine bağlanma. csunguray 9 314 07-02-2018, Saat: 13:30
Son Yorum: ismailkocacan
  Delphi Eval Hakkında narkotik 8 184 26-01-2018, Saat: 01:46
Son Yorum: narkotik
  Delphi Fonksiyonlar narkotik 6 212 15-01-2018, Saat: 23:32
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi