مساعدة من فضلكم

ســوف أخبرك اليوم إن شاء الله

انتظرني

أرجــو أن لاأكــون قد تأخرت عليك . . (gift)

procedure TForm1.Label2Click(Sender: TObject);

begin

shellexecute(handle,'open','iexplore.exe','mailto:yourname@hotmail.com','',sw_show);

end;

التعليمة مكتوبة في label عند الضغط عليه يفتح البريد بالعنوان الذي تريده لكتابة الرســالة

ولكن يوجد أداة تســهل ذلك لم أراها بعد..

((اذا كان أحد الأعضاء يملك هذه الأداة فأنا بحاجـة أيضاً اليها وشـــكراً . .))

مـــــــع تحيــــــــات : soft_maxell(f)(f)

الرد الذي أعطاك اياة Soft_maxcel صحيح وممتاز , ولكن ربما لم يعمل وذلك ببساطة لإنة يجب أولا :

*- يجب إضافة الوحدة shellapi الى الوحدات المستخدمة ""في أعلى الشفرة"

بالطريقة التاليه :

ثم نقوم بكتابة السطر الذي أعطاك اياة الصديق سوفت ماكسل المعتمد على تعليمة shellapi التي هي تعليمة رائة تمكننا من فتح أي ملف وإجراء العمليات علية : وليس فقط Out lock والجميل بالأمر أنة سوف يكتب لك عنوان البريد الألكتروني الذي تحددية تلقائيا ويكون جاهز للإرسال

...

حظا موفقا

صديقك أبو ديلفي .....

العزيز أبو ديلفي . . .

اذا كنت تملك أداة تســاعد في ذلك أرســـلها لو ســمحت لي:o

soft_maxell:cool:

الى الصديقين:SOFT_MAXELL,أبو الديلفي

شكراجزيلا لكما على المساعدة

و أرجو أن أرى هذه المساعدة منكم دائما

طديقتكم كارمن;);)

الى الأصدقاء:

التعليمة السابقة تفتح لي برنامج الINTERNET EXPLORER مع برنامج

الOUT LOOK

و أن أريد فتح برنامج الOUT LOOK EXPRESS فقط

فأرجو المساعدة:'(

اخي الكريم

نفس الاجراء متبع عندي في احدى برامجي ، وهو لا يقوم بفتح الاكسبلورر ! :

   ShellExecute(HInstance, 'Open',PChar('mailto:abohany@hotmail.com?subject=Hello'),nil,nil,SW_Normal);

عذرا يا كارمن وردت عندي بعض الأخطاء الكتابية في ردي السابق عليك .

الأخ Soft Maxel و الأخ أبو هاني أعطوك الشفرة الصحيحة . ولكن كما قلت لك يجب إضافة الوحدة ShellApi إلى الوحدات .