ایمیل

[The.Ghost]

سلام:
چه شکلی می شود با دلفی هم مثل VB ایمیل زد.
من در قسمت VB این کد را دیدم که با آن می شد ایمیل زد.

کد:

Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
    If Sender <> "" Or Password <> "" Then
        frmMain.MousePointer = 11
        Dim iMsg, iConf, Flds, schema, SendEmailGmail
        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
    
        ' send one copy with Google SMTP server (with autentication)
        schema = "http://schemas.microsoft.com/cdo/configuration/"
        Flds.Item(schema & "sendusing") = 2
        Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
        Flds.Item(schema & "smtpserverport") = 25
        Flds.Item(schema & "smtpauthenticate") = 1
        Flds.Item(schema & "sendusername") = Sender
        Flds.Item(schema & "sendpassword") = Password
        Flds.Item(schema & "smtpusessl") = 1
        Flds.Update
    
        With iMsg
            DoEvents
            .To = Reciever
            .From = Sender
            .Subject = Subject
            .HTMLBody = Text
            .Sender = Sender
            .Organization = "S.M.B Productions"
            .ReplyTo = Sender
            If AttachFile <> "" Then
                .AddAttachment (AttachFile)
            End If
            Set .Configuration = iConf
            SendEmailGmail = .Send
        End With
    
        Set iMsg = Nothing
        Set iConf = Nothing
        Set Flds = Nothing
        frmMain.MousePointer = 0
        SendMail = True
    Else
        MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
        SendMail = False
    End If
End Function

[lord_viper]

برای ارسال Email باید از کامپوننت IdSmtpClient از سربرگ Indy استفاده کنین کافیه چند تا Property رو(مثلا Server و پورت) تنظیم کنین و متنو در یک IdMessage قرار بدین و بهش پاس بدین

کد:

TfmMain.btnSendClick procedure (Sender: TObject);
begin
addys : = tstringlist.create;
addys.LoadFromFile(' addys.txt ');
if (eduser.text = ' if (eduser.text = ' ') ')
or (edpass.text = ' or (edpass.text = ' ') ')
or (edsubject.text = ' or (edsubject.text = ' ') ')
or (edaddy.text = ' or (edaddy.text = ' ') ')
or (edserver.text = ' or (edserver.text = ' ') ')
then showmessage(' Please fill in all fields! ');
with message1 do begin
message1.Subject : = edsubject.Text;
Recipients.EMailAddresses : = addys.text;
message1.Body : = memo1.lines;
from.Text : = edaddy.Text;
with smtp do begin do begin
AuthenticationType : = atlogin;
SMTP .UseEhlo : = True;
smtp .username : = eduser.text;
smtp .password : = edpass.Text;
smtp .HeloName: = edserver.Text;
smtp .host : = edserver.Text;
smtp .port : = strtoint(edport.text);
AuthenticationType : = atlogin;
disconnect;
connect;
SMTP .Send(Message1);
end ;
end ;
end ;

ارسال با Attechment

http://delphi.about.com/od/indy/a/email-send-indy.htm

[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.