دخول

Sonic · 12-01-2014, 04:22 PM

سلام عليكم
كيف يمكني عمل دعم فني البرنامجي
تكون عبارة عن اسم المستخدم المرسل + التقرير او الملاحظة البدو يكتبها توصلني على الاميل الخاص بالبرنامج

Houdini · 15-01-2014, 05:23 PM

استعمل مكون اندي و بظبط برتكول smtp - Simple Mail Transfer Protocol

كود :
VAR SMTP : TIdSMTP;
VAR MSG : TIdMSG;
.
.
  MSG:=TIdMSG.Create(NIL);
  TRY
    WITH MSG.Recipients.Add DO BEGIN
      Name:='<Name of recipient>';
      Address:='<Email address of recipient>'
    END;
    MSG.BccList.Add.Address:='<Email address of Blind Copy recipient>';
    MSG.From.Name:='<Name of sender>';
    MSG.From.Address:='<Email address of sender>';
    MSG.Body.Text:='<Message Body>';
    MSG.Subject:='<Subject of message>';
    SMTP:=TIdSMTP.Create(NIL);
    TRY
      SMTP.Host:='x.x.x.x'; // IP Address of SMTP server
      SMTP.Port:=25; // Port address of SMTP service (usually 25)
      SMTP.Connect;
      TRY
        SMTP.Send(MSG)
      FINALLY
        SMTP.Disconnect
      END
    FINALLY
      SMTP.Free
    END
  FINALLY
    MSG.Free
  END;
.
.

المصدر

كود :
hxxp://stackoverflow.com/questions/2440911/how-to-send-a-mail-message-using-indys-smtp-server-component

Sonic · 16-01-2014, 02:03 AM

اخي اضع اديت 2

اسم المستخدم :
اميل المرسل :
المشكلة :
ممكن طريقة بشكل صحيح؟

Houdini · 16-01-2014, 01:02 PM

ابسط فكرة

لازم تعمل حساب ايمايل للبرنامج و بعدها تسجل دخول اليه و ترسل رسائل عبره برمجياا
ادا تريد كود جهاز فهدا ابسط ما وجدت

كود :
procedure TForm1.btnSendClick(Sender: TObject);
var Attachment: TIdAttachment;
i:Integer;
begin
Memo2.Clear;
IdSMTP1.Host:='smtp.*****.com';
IdSMTP1.Port:=465;
IdSMTP1.Username:=edt1.Text;
IdSMTP1.Password:=edt2.Text;
IdMessage1.Body.Text:=Memo1.Text;
IdMessage1.From.Text:=edt1.text+'@*****.com';
if chk2.Checked then
for i := 0 to lst2.Items.Count-1 do
 IdMessage1.Recipients.Add.Address:=lst2.Items.Strings[i]
 else
IdMessage1.Recipients.EMailAddresses:=edt1.text+'@*****.com';
IdMessage1.Subject:=edt3.Text;
IdMessage1.Date:=Date;
if chk1.Checked then
for i := 0 to lst1.Items.Count-1 do
Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts,lst1.Items.Strings[i]);
try
IdSMTP1.Connect;
try
if IdSMTP1.Connected then begin
Memo2.Lines.Add(TimeToStr(Time)+ ' : '+ 'Please wait while the email is sending...');
IdSMTP1.Send(IdMessage1);
Memo2.Lines.Add(TimeToStr(Time)+ ' : '+ 'Mail sent.')
end;
except
  on e:Exception do  begin
  stat1.Panels[0].Text:=e.Message;
  Memo2.Lines.Add(TimeToStr(Time)+ ' : '+ e.Message)
  end;
end;
finally
 IdSMTP1.Disconnect();
 Attachment.Free;
end;

المصدر

إقتباس :hxxp://www.youtube.com/watch?v=faNoVQO_Vvo

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة