Belajar Delphi

Delphi sangat banyak digunakan dalam pembuatan aplikasi (sofeware)... nah sekarang saya sudah mengutip dari postingan teman kita dan sekarang anda bisa baca lebih lanjutnya.....

sekarang kita akan belajar untuk mengirimkan email dengan menggunakan Delphi... Siap untuk belajar????????

Let's Goooooooooo!!!!!

yang harus dibuat adalah sebagai berikut ,perhatikan gambar :

jadi ketika Button 1 di klik, maka akan mengarahkan langsung kita ke Ms Outlook, perhatikan kodenya :

unit unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,ShellApi;

type
TForm1 = class(TForm)
//maksudnya menggunakan 1 button dan 1 label
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
//aksi ketika button 1 di klik
procedure TForm1.Button1Click(Sender: TObject);
var
strTujuan, strSubject, strIsi,Param : String;

begin
//tujuan email
strTujuan := ‘invertmotion@Gmail.com’;
//subjek email
strSubject := ‘Subject’;
//isi email
strIsi := ‘Isi Text’;

Param :=’mailto:’ + strTujuan + ‘?subject=’ + strSubject +’&Body=’ + strIsi;

ShellExecute(Form1.handle,’open’,PChar(Param),nil,nil,SW_SHOWNORMAL);

end;

end.

jika bingung dan ada yang error silahkan dikoreksi, komen aja….

atu agar lebih sahnya silahkan ke blog teman kita yang menulis postingan ini di

http://sipk.wordpress.com/2010/05/22/belajar-delphi-latihan-kirim-email-lewat-delphi-new/