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

توجد مشاركات كثيرة بهذا الخصوص وهذه احداها

ارسال رسالة عن طريق Outlook

وطبعا للصدار الموجود على الجهاز من outlook express

الف الف شكر ولكن لم اجد شيئا

up

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

Shell "Outlock.exe Mimo@yahoo.com

طبعا مع وضع مسار برنامج الوت لوك كاملا + مسافة + عنوان البريد الالكترونى

لم اجربها قبل ذلك

الف الف شكر لك عزيزي محترف برمجة

ولكن الكود اعلاه هو لفتح الاوت لوك فقط كذلك لا يفتح نافذة ارسال رسالة جديدة

ايضا يقوم بفتح برنامج الآوت لوك في طور التصغير في شريط المهام بالأسفل

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

اخواني انا وجدت هذا الكود ارجو التعديل عليه ليتم عمل ما اريده في المشاركة الاولى ارجو التعديل على الكود

علماً ان الكود يفتح برنامج مايكروسوفت آوت لوك اللي ينزل مع الأوفيس والمطلوب هو آوت لوك اكسبرس اللي ينزل مع الويندوز

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

الكود

Option Explicit

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
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMAXIMIZED = 8
Private Sub Command1_Click()

Dim Success As Long

	Success = ShellExecute(0&, vbNullString, "mailto:layan@hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL)
End Sub

المشروع كاملاً

http://www.arabteam2000.com/Files/Code/Fil...ail&Web.zip

اختي الكريمة ضعي هذا الكود في المكان المناسب أو في كوماند

Dim OutlookItem
Const olByValue = 1
	Set OutlookItem = Application.CreateItem(0)
	OutlookItem.To = "he_nd@hotmail.com"
	OutlookItem.Subject = "عنوان الرسالة هنا"
	OutlookItem.Body = "موضوع الرسالة هنا "
 '=====================================
 ' تجهيز المرفقات
   OutlookItem.Attachments.Add "C:\FileName.txt", olByValue, 1, "File Attachment"
	OutlookItem.Display

ملاحظة : لاتنسي اضافة مكتبة Outlook من خلال الريفرنس على المشروع وإلا سوف لن يعمل الكود

تحياتي

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

ياليت ترفق لي مكتبة Outlook

واكن لك من الشاكرين

مكتبة Outlook تأتي مع الاوتلوك . فإن لم يكن الأوتلووك مثبتاً فلا جدوى من استخدام الكود .

عليك تثبيت الأوتلووك الموجود مع مجموعة Microsoft Office 2003

تحياتي

إذا كان الجهاز به أوفيس 2003

سوف تجدينها في الريفرنس باسم Microsoft Outlook 11.0 Object Library

وفي المرفقات تجدينها ايضا ويجب وضعها في المسار التالي :

C:\microsoft Office\Office11\

بييث يصبح مسارها كالتالي

C:\microsoft Office\Office11\MSOUTL.OLB

تحياتي

MSOUTL.rar

ارجو الاطلاع على الكود التالي حيث انه يقوم بفتح نافذة ارسال رسالة عن طريق الآوت لوك اكسبرس

ويظهر بريد المرسل إلية وهذا جيد

ولكن لايظهر العنوان والمرفقات

Option Explicit

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
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMAXIMIZED = 8
Private Sub Command1_Click()

Dim Success As Long

	Success = ShellExecute(0&, vbNullString, "mailto:mem2020@hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL)
End Sub

هذا التعديل لاظهار العنوان :

Success = ShellExecute(0&, vbNullString, "mailto:mem2020@hotmail.com?subject=ضع الموضوع هنا", vbNullString, "C:\", SW_SHOWNORMAL)

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

تحياتي

وهذا مثال أعددته على عجاله يقوم بتنفيذ فكرة الكود السابق

تحياتي

Send_Mail.rar

Send_Mail.rar

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

ولكن المرفقات هي اهم ما في الموضوع والبرنامج بشكل عام

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

تحياتي............ز

UP

upup upup pupupupupup

upup upup upupupupupup

upup upup upup upup

upup upup upup upup

upup upup upupupupupup

upup upup upupupupupup

upupupupupup upup

upupupupupup upup

upup

upupup

لا اله الا الله محمد رسول الله

السلام عليكم

يبدو انك فقدتي الصبر

للاسف ShellExecute لا تدعم ارفاق الملفات في تنادي البرنامج فقط . ولم استطع ان امرر له التعليمة ولم اجد اي حل لها بعد البحث لمدة3 ساعات متواصلة بما فيها موقع ميكروسوفت

   Success = ShellExecute(0&, vbNullString, "mailto:mem2020@hotmail.com?subject=Try here &Attach=C:\dd.txt &body=Put the Message here", vbNull, vbNull, SW_SHOWNORMAL)

اعتقد ان الطريقة السابقة تفي بالغرض .

وتعمل بكفاءة .

تحياتي

الف الف شكر

ولكن معقول لا يوجد طريقة او حل لمشكلتي

up

تكلمة للاكواد السابقة والحاق ملف

Dim mfile As String, mSubject As String, Ret As Long


	mfile = "c:\myfile"  ----- change file
	mSubject = "subject"

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

	' انتظر حتى تشتغل
   Do While Ret = 0
'	  ابحث عن الاوتولك
   DoEvents
		Ret = FindWindow(vbNullString, mfile )
	Loop

'تنقل بالمفاتيح حتى نصل الى الالحاق 
	' Send keys Alt-I-A, the zip file name,
	' two TABs, and Enter.
	SendKeys "%ia" & mfile & "{TAB}{TAB}{ENTER}"

ولجعل الاوتلوك اكسبرس الافتراضي يجب تشغيل الامر

"C:\PROGRAM FILES\OUTLOOK EXPRESS\MSIMN.EXE" /reg

وان شاء الله انه يكون حل نافع وفعال

TareqVB

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

لم افهم الكود لأنني بصراحة انا مبتدئ

ياليت تكتب لي الكود كاملاً وتقولي بالتفصيل اين اضع الاكود

والف بل مليون شكر لك

ياليت باسرع وقت ممكن

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

لكن اهم شيء في هذا الموضوع وهو الذي لم يتم السؤال عنه من قبل هل لديك ايميل يمكنك ان تستعمله في الاوتلوك لارسال الرسائل ؟