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

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

سألتكم بالله

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

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

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

تحياتي

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

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

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

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

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

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

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

تحياتي

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

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

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

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

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

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

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

لو امكن ارفاق الحل حتى نستفيد من هذه الطريقة .

مع الشكر

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

كود 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