الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارسال رسالة بالبريد................... ارجو الدخول

مغلقرائج
بدأه layan في 7 يوليو 2007 · 58 رد · 5,576 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#51

اين انتم يامبرمجون

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#52

سألتكم بالله

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#53

لماذا انتي مصرة على استخدام ShellExecute مع انه هناك اكثر من طريقة للتعامل مع البريد الالكتروني وقد قام الاعضاء بارفاق امثله .

أفضل بكثيير عن استخدام ShellExecute

عليك مراجعة المرفقات السابقة . وانا متأكد من ان الطرق السابقة كفيلة بحل اشكاليتك .

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#54

المشكلة هو من سيستخدم البرنامج

وهو لارسال ملف معين من عدة مستخدمين مثلاً D:\layan.rar وهذا الملف موجود 100% في اجهزتهم

إلى شخص واحد او بريد معين

كذلك هم يستخدمون برنامج الآوت لوك أكسبرس وهم مجبرون على استخدام هذا البرنامج من قبل جهات العمل

هذا مايجعلني مصر على الآوت لوك اكسبرس

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#55

المثال الذي قمت باعداد سابقاً يفي بالغرض . أي أنه يستخدم الاوت لووك أكسبرس . فقط بحاجة الى تحديد مسبق.

سوف اعدله وارفقه من جديد

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#56

الف الف شكر لك عزيزي

وأنا بأنتظارك على احر من الجمر

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#57

الف الف شكر لعزيزي الاخ omani

بفضل من الله ثم بجهود استاذي omani الفاضل ثم عمل المطلوب وبنسبة نجاح 1000%

فله مني جزيل الشكر والعرفان

وياليت اقدر اتصل فيه مرة ثانية

وانا بأنتظارك

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#59

تفضل اخي الكريم

كود PHP:
 Option Explicit 
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
Const SW_SHOWNORMAL = 1 
Private Sub Command1_Click() 
Dim mfile As String, mSubject As String, Ret As Long 


	mfile = "c:\dd.rar" ' ----- change file 
	mSubject = "mem2020" 

	' Start Outlook Express email. 
	ShellExecute Me.hwnd, "Open", _ 
		"mailto:mem2020@gmail.com?subject=" & mSubject & _ 
		"&body=Body Text", vbNullString, _ 
		vbNullString, vbNormalFocus 

	' ÇäÊÙÑ ÍÊì ÊÔÊÛá 
   Do While Ret = 0 
'	  ÇÈÍË Úä ÇáÇæÊæáß 
   DoEvents 
   Ret = FindWindow(vbNullString, mSubject) 
	Loop 

DoEvents 
DoEvents 

	SendKeys "%ia" & mfile & "{ENTER}" 
	 SendKeys "^{ENTER}" 

	End Sub

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

هذا الموضوع مغلق.

مواضيع مشابهة