E-Posta mesajı nasıl oluştururum?

KeyWords: How can I create the email message?, programımdan nasıl eposta oluşturabilirin.

using ShellAp;

var
  cmdx: String;
  ePostaAdresi:String; //email
  konu:String; //subject
  Mesaj:String; //body
  DosyaEki:String; //file
begin
  ePostaAdresi:='eposta@datakent.com';
  konu:='test mesajı';
  Mesaj:='bu bir denemedir.';
  DosyaEki:='C:\tmp\liste.doc';

  cmdx := 'mailto:'+ePostaAdresi+'?subject='+konu+'&body='+Mesaj+'&file='+DosyaEki;

  ShellExecute(0, 'open', PChar(cmdx), nil, nil, SW_SHOWNORMAL);
end

KeyWords: How can I create the email message?, programımdan nasıl eposta oluşturabilirin.

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
murat turan Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Admin Group Datakent Kayıt Tarihi: 01.Ekim.2003 Bulundugu Yer: Turkey Online: Sitede Değil Gönderilenler: 1797	Alıntı Cevapla Konu: E-Posta mesajı nasıl oluştururum? Gönderim Zamanı: 29.Temmuz.2017 Saat 10:39
	E-Posta mesajı nasıl oluştururum? using ShellAp; var cmdx: String; ePostaAdresi:String; //email konu:String; //subject Mesaj:String; //body DosyaEki:String; //file begin ePostaAdresi:='eposta@datakent.com'; konu:='test mesajı'; Mesaj:='bu bir denemedir.'; DosyaEki:='C:\tmp\liste.doc'; cmdx := 'mailto:'+ePostaAdresi+'?subject='+konu+'&body='+Mesaj+'&file='+DosyaEki; ShellExecute(0, 'open', PChar(cmdx), nil, nil, SW_SHOWNORMAL); end KeyWords: How can I create the email message?, programımdan nasıl eposta oluşturabilirin.
	Kasa Takip \| Cari Takip \| Evrak Takip \| ETA SQL Mobil