GhAeM
11 October 2005, 03:16 PM
عنوانش خيلي سخت بود!
اين روش رو من بلدم ! يعني توسط اين صفحه outlook (و يا هر sender پيش فرضي) با مشخصات و متون دلخواه ما اجرا ميشه!
بطور مثال :خود برلند براي ارسال REG فايلهاي نرم افزارهاش به ايميل يه همچين كاري رو انجام ميده!
shellapi رو به قسمت uses اضافه كنيد.
يك كليد به صفحه اضافه كنيد و كد زير رو واردش كنيد:
VAR
EMAILDES,SUBJ,LINE1,LINE2,MAILSTRING:STRING;
begin
[Only registered and activated users can see links]
subj:='message subject';
line1:='it is first line';
mailstring:='mailto:'+emaildes+'?subject='+subj+'&body='+line1;
if (shellexecute(0,'',pchar(mailstring),'','',sw_show normal)<=32)then
showmessage('auto method failed.');
end;
اگه كسي راه بهتري بلده بگه !
اين روش رو من بلدم ! يعني توسط اين صفحه outlook (و يا هر sender پيش فرضي) با مشخصات و متون دلخواه ما اجرا ميشه!
بطور مثال :خود برلند براي ارسال REG فايلهاي نرم افزارهاش به ايميل يه همچين كاري رو انجام ميده!
shellapi رو به قسمت uses اضافه كنيد.
يك كليد به صفحه اضافه كنيد و كد زير رو واردش كنيد:
VAR
EMAILDES,SUBJ,LINE1,LINE2,MAILSTRING:STRING;
begin
[Only registered and activated users can see links]
subj:='message subject';
line1:='it is first line';
mailstring:='mailto:'+emaildes+'?subject='+subj+'&body='+line1;
if (shellexecute(0,'',pchar(mailstring),'','',sw_show normal)<=32)then
showmessage('auto method failed.');
end;
اگه كسي راه بهتري بلده بگه !