ایمیل

[CRazYFULL]

يکم سرچ ...

کد:

unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
    Form1: TForm1;

implementation
    uses comobj,ActiveX;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyMail:OleVariant;
begin
try
    try
    CoInitialize(nil);
    MyMail:=CreateOleObject('CDO.Message');

    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') := 2;
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') := 'smtp.gmail.com';
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') := 465;
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') := 1;
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') := true;
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') := 'youraddress@gmail.com'; //Email
    myMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') := 'yourpassword'; //password
    myMail.Configuration.Fields.Update;

    myMail.Subject := 'salam';
    myMail.From := 'Mojtaba <youraddress@gmail.com>';
    myMail.To := 'cr4zyfull@yahoo.com';
    myMail.TextBody := 'salam chetori khobi?';
    myMail.Send;
    ShowMessage('Email Frestade shod.');
    except
    ShowMessage('Ferestade nashod!');
    end;
    
    finally
    myMail:=null;
    CoUninitialize;
    end;
end;

end.