+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن عمل دعم فني البرنامج بدلفي (/showthread.php?tid=5852)
كيف يمكن عمل دعم فني البرنامج بدلفي - Sonic - 12-01-2014
سلام عليكم
كيف يمكني عمل دعم فني البرنامجي
تكون عبارة عن اسم المستخدم المرسل + التقرير او الملاحظة البدو يكتبها توصلني على الاميل الخاص بالبرنامج
كيف يمكني عمل دعم فني البرنامجي
تكون عبارة عن اسم المستخدم المرسل + التقرير او الملاحظة البدو يكتبها توصلني على الاميل الخاص بالبرنامج
كيف يمكن عمل دعم فني البرنامج بدلفي - Houdini - 15-01-2014
استعمل مكون اندي و بظبط برتكول 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
اخي اضع اديت 2
اسم المستخدم :
اميل المرسل :
المشكلة :
ممكن طريقة بشكل صحيح؟
كيف يمكن عمل دعم فني البرنامج بدلفي - Houdini - 16-01-2014
ابسط فكرة
لازم تعمل حساب ايمايل للبرنامج و بعدها تسجل دخول اليه و ترسل رسائل عبره برمجياا
ادا تريد كود جهاز فهدا ابسط ما وجدت
كود :
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