برامج ارسال بريد الكترونى مباشرةً بالمرفقات والصور من خلال أكسس

بسم الله الرحمن الرحيم

اخي Eng. Usama El-Mokadem

لايوجد مرفقات بالموضوع .. ربما يوجد خطأ ما .. تحياتي لك

أخوك اكسيرالحياة

اخي الفاضل المهندس العبقري اسامة المقدم

السلام عليكم ورحمة الله وبركاته

بارك الله فيك وجزاك الله كل خير

ما شاء الله تبارك الله اكثر من رائع

لقد اعجبتني الحيله التي استخدمتها بالنسبة لمقبض مربع النص

اخي الفاضل اكسير

لماذا دائما ننظر للإسفل

لقد كسر القاعدة استاذنا اسامه المقدم ووضع الملف المرفق في اعلى الصفحه

شوف ورايح تضحك من حالك

وتقول ياريت اني ما كتبت الرد ..... والله فشيله

لأننا متعودين دائما نحمل المرفقات من اخر المشاركه

خيرها في غيرها

الحمد لله اني جيت بعد زهره

وعرفت ان المرفقات فوق

ولا كان غسلتني

اخوي اكسير

لاترد ولا بكلمة - انا لو مكانك احمل الملف وانا ساكت بدون ماحد يدري

ههههههههههه - امزح معك لاتزعل

اقتباس

لقد كسر القاعدة استاذنا اسامه المقدم ووضع الملف المرفق في اعلى الصفحه

اقتباس

اخوي اكسير

لاترد ولا بكلمة - انا لو مكانك احمل الملف وانا ساكت بدون ماحد يدري

ههههههههههه - امزح معك لاتزعل

ياجماعة الخير .. مهلكم علي شوي

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

الا سطرا واحدا ........ فقط

برامج ارسال بريد الكترونى مباشرتاً بالمرفقات والصور من خلال أكسس

لا أعلى الصفحة ولا أسفلها .. ربما رديت والموضوع باقي ماكمل هذا معقول أما ارد والمرفق موجود بهذا الرد فلا

اسألوا المهندس ؟ كيف كتب الموضوع !!!!!

وضع العناوين ثم ذهب ...... وعاد واكمل فيما بعد ....... اسألوه انا راضي بحكمه

وعموما الله يعطيكم العافية .. ويجزاك خير أخي المهندس اسامة

السلام عليكم

في مشاركة سابقة ذكرت انني لم اشاهد اي مرفقات مع الموضوع ولا شرح ولا صور وتحديدا

الساعة 1:43 صباحا .. قمت بالبحث في محفوظاتي فوجدت دليل صدقي .. اليكم هذه الصورة

http://www.9q9q.org/index.php?image=ETZJmI370775FA

اقتباس

اخي الفاضل اكسير

لماذا دائما ننظر للإسفل

لقد كسر القاعدة استاذنا اسامه المقدم ووضع الملف المرفق في اعلى الصفحه

شوف ورايح تضحك من حالك

وتقول ياريت اني ما كتبت الرد ..... والله فشيله

لأننا متعودين دائما نحمل المرفقات من اخر المشاركه

خيرها في غيرها

اقتباس

اخوي اكسير

لاترد ولا بكلمة - انا لو مكانك احمل الملف وانا ساكت بدون ماحد يدري

ههههههههههه - امزح معك لاتزعل

تحياتي / اكسير الحياة

اخوي اكسير بالنسبة لي انا امزح والموضوع عادي ما اقصد فيه شيء

مجرد مداعبة

وعلى فكرة انا ما اضحك او امزح إلا مع اللي احبهم ( احتك معهم )

السلام عليكم

هذه أول مشاركة لى بمنتداكم الجميل.

لقد انضممت الى منتداكم ، خصيصا ، لكى أقدم لك الشكر على هذا البرنامج الرائع.

وأيضا كى أعبر عن إعجابى بلوجو الموقع ، فمصمم / مصممة هذا اللوجو ذو حس فنى معاصر.

وبعد ...

لقد استخدمت برنامجكم SendEmail ، واندهشت من السرعة والخلو التام من كل أنواع الصداع (نعم!).

فأنا لست من محبى آوتلوك.

كما أننى لا أرغب فى استخدام أى برنامج مسينجر لغرض ارسال رسائل إميل.

وأيضا ، لا أرغب فى فتح موقع ، خصيصا ، لغرض الدخول الى حساب الإميل الخاص بى ، حتى أتمكن من ارسال رسالة.

وأيضا ، نظرا لكونى أجلس أمام الكمبيوتر للعمل على أكسس ، فى معظم الأحوال ، فقد كنت بحاجة لوجود برنامجك.

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

أنا أستخدم أوفيس 2003 مع ويندوز إكس بى سيرفيس باك تو ، كلاهما باللغة الانجليزية.

كما أن اتصال النت موجود مسبقا عن طريق مودم. ولابد أن يكون الاتصال قائما أثناء إرسال الإميل.

أنا أذكر هذه المواصفات لكى أؤكد أن البرنامج يعمل جيدا بهذه الظروف.

مزيد من المعلومات:

1- أخبرنى البرنامج ، عند أول تشغيل ، بافتقاد ملف mshflxgd.ocx

قمت بتحميل الملف من أحد المواقع (397 ك ب ، اصدار 6.00.3005) ، وآمل أن يكون آمنا ، ثم قمت بتسجيله.

بعدها عمل البرنامج بالشكل الطبيعى المذكور سابقا.

2- عندما لايكون الاتصال بالنت مفتوحا ، لايعطى البرنامج إشارة تنبه الى ذلك.

لكنى أتذكر أنه يوجد كود يفحص إذا ماكان الاتصال نشطا.

ربما أبحث عن هذا الكود لأضيفه الى البرنامج ، قريبا.

غسيل ومكوه: :lol:

أعتقد أن وجود جدول بقاعدة البيانات لتخزين الرسائل المرسلة ، أمر جيد أيضا.

على أن يتم تخزين بيانات الراسل والمرسل إليه و اسم المرفق وحجمه ومساره ، بالإضافة الى نص الرسالة وتاريخ الارسال.

وأيضا ، أن يتم تخزين بيان عن نجاح/عدم نجاح عملية الارسال.

وأعتقد أن هذا كله أمر سهل.

حبذا:

أرجو منكم التأكيد على إذا ما كان برنامجكم SendEmail.dll ، يعمل تحت الاصدارات الأخرى من ويندوز.

أرجو منكم التأكيد على إذا ما كان برنامجكم SendEmail.dll ، له علاقة باصدارات أكسس.

أرجو منكم التأكيد على إذا ما كان برنامجكم SendEmail.dll ، قد يعطى رسائل خطأ/تنبيه بلغات أخرى غير الإنجليزية.

وأخيرا:

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

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني واخواتي

الأخ الفاضل ...

SendEmail_v2.zip الإصدار 2.00 ، يحتوى على بعض الممزايا، أهمها أستخدام SSL3 وإمكانية الإرسال من خلال حسابك (Gmail مثلاً)، راجع المثال فى المجلد Version2 الموجود مع الملف المرفق.

شكراً جزيلاً للأخ الفاضل ... MAXXIN، فى الحقيقة الأمثلة المرفقة الهدف منها توضيح كيفية استخدام والاستفادة من المكون (SendEmail Component) فقط، ولك مطلق الحرية فى التأكد من اتصال الانترنت أو تخزين قيم فى جدول ... الخ بالطريقة التى تجدها مناسبة لتضيفها فى برنامجك لتطويره، فالتركيز هنا فقط على كيفية ارسال البريد، ومرفق امثلة بعدة لغات للتوضيح وتحقيق اكبر استفادة على مستوى اكبر وقاعدة أعرض من المبرمجين :)

شكراً

للاسف لم يتم الإرسال سواء بالمرفقات او غيره ولكن هناك استفسار

هل يجب ان يكون الاتصال بالانترنت دايل اب ..... لأن اتصالي بالانترنت DSL فهل هذا يؤثر على سير عمل البرنامج ؟

السلام عليكم

أخي الكريم...........جازاك الله عنا كل خير.........

البرنامج رائع وعملي.............وأكثر من رائع.......

ولكني لاحظت أنه عند إزالة الصح من مربع الـ chkHTML ومن إعادة اختياره ثانية يحدث خطأ في صفحة الhtmlBody حيث تظهر بيضاء وكأنه لم يتم إعادة تحميلها مرة أخرى.......فهل هناك حل لهذه المسألة

بارك الله فيك يامهندسنا برنامج رائع ومريح جدا

اخي المبرمج 2003 اتصالي dsl وجربت ارسل مرفقات كله تما م ولله الحمد 000 لكن :s

عندما اردت ان اجربه على(((( جهاز اخر لم ينجح !!)))

للايضاح

نزلت ملف dnsapi.dll في السيستم للويندز وللتاكيد في system32 وكمان فيsystem

ولكن عندما RegSvr32.exe SendEmail.dllحاولت تسجيله اعطى رسالة فشل العثور على الوحدة النمطية المحددةloadlibibrary"sendemail.dll" !!!

رجعت للملف في السيستم وطلبت تسجيله اعطى رسالة((( بانه تم تحميله في سيستم الوندز) لكن تعذر العثور على نقطة الادخال diiregister server

هل المشكلة عندي في الوندز ؟؟ بسبب عمله في جهاز وجهاز لم يعمل

ام اني اغفلت نقطه لم افعلها ؟

اعتذر للاطالة

ومازلت في محاولة معرفة سبب رفضة لتسجيل الملف

آمل من ممن لدية الجواب التكرم بذلك

أخي اسامه

ما شاء الله عليك اللهم لا حسد

دائماً مشاركاتك رائعة ولا أفوتها أبداً لأنني أجني من ورائها ثمار أفكار عبقرية .

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

تمنياتي لك بالتوفيق

السلام عليكم

أخي أسامة وجميع الأخوة

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

أنا دائماً مثل أخي مصلح الحريصي والكثير من الأخوة ننتظر بشغف مشاركات أخونا أسامة ولكن هذه المشاركه لم أراها إلا الآن فقط

أخي اسامة ربما لم يسبق لنا التحدث مباشرة ولكن أشكرك على ما تقدمه من روائع برمجية تنم عن وعي وذكاء حاد مع علم راسخ

أخوك رضا عقيل

السلام عليكم ورحمة الله وبركاته

الأخ الفاضل ... مصلح الحريصي

شاكر جداً كلماتك الرقيقة، التى هى دافع ومشجع وشهادة اعتز بها من اخ فاضل كريم، وارجوا الله ان يوفقنى ويوفقنا جميعاً لتقديم كل مفيد، واتمنى من الله تعالى يوفقنا جميعاً لما يحبه ويرضاه، أما بالنسبه للحسد :) فبسم الله ماشاء الله عليك، وعلى مواضيعك المتميزة، التى سعدت جداً وانا اقراءها، ودائما فى انتظار ابداعاتك ...

الأخ الفاضل ... رضا عقيل

انا شاكر جداً اسلوبك المشجع وكلماتك الحلوه :)، اخى انا الذى اشكرك على رئيك وكلماتك المشجعة، وإذا لم تتح الفرصة لحديث مباشر بيننا، فتأكد انه سيكون من حسن حظى، انتت تأتى هذه الفرصة قريباً، وحقيقة اسعد بك، واتمنى من الله تعالى ان يوفقك ويبارك لك فيما رزقك، بالمناسبة: موقعك متميز يعكس مجهود وذوق رفيع :)

السلام عليكم

اقتباس

المبرمج2003

للاسف لم يتم الإرسال سواء بالمرفقات او غيره

مع الاحترام لهذا الجهد

ولكني ارغب معرفة النتيجة من اي عضو او مشرف استخدم هذا البرنامج (وخصوصا بالاكسس)

كوني اشارك اخي المبرمج2003 نفس الرأي - وكذلك يوجد الكثير من الردود في هذا الموضوع لم توضح لنا بان التجربة نجحت

ارجوا من صاحب الموضوع التوضيح هل فعلا تم الارسال من هذا البرنامج

كما ارجوا منه التوضيح ايضا اذا كان هذا البرنامج يحتاج الى شخص محترف لتشغيلة والسير على خطة عمل كما هو موضح في بداية الموضوع

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

بالنسبة لي فلقد قمت بتجربة برنامج الاخ اكسير والذي يرسل بريد بواسطة الاكسس ولم اجد تعقيد في طريقة التشغيل او مشاكل في الارسال

/index.ph...l=send&st=0

اكرر شكري لهذا المجهود واتمنى ان اجد الجواب

مع اجل التحية والتقدير

اولا اشكرك على البرنامج

ولكن للاسف لم يعمل

للاسف البرنامج لا يعمل

ارجو التعقيب من صاحب الموضوع

مشكور اخي على البرنامج بس انا عندي مشكله

السلام عليكم ورحمة الله وبركاته

جزاكم الله خيرا على مجهودكم الرائع

لكن لم أجد مرفقات للبرنامج المذكور مع العلم أني جربت جميع الروابط

بالمناسبة أيضا جربت برنامج الأخت زهرة لكن يعطيني هذا الخطأ مع العلم بأني أستخدم أكسيس 2010

مرفق صورة الخطأ

جزاكم الله خيرا مرة أخرى والشكر موصول للأخت زهرة على ما تقدمه وجعله الله في ميزان حسناتكم

السلام عليكم ورحمة الله وبركاته

إخوتي وأخواتي الأعزاء

لدي استفسار هام وهو لو كنت عاوز أرسل بريد بس مش من الجيميل أعمل إيه في الكود ؟ هل الكود عاوز له تعديل وايه اللي لازم يتعدل ؟

وشكرا

والكود اللي عندي تبع الأستاذة الكبيرة زهرة وهو

Private Sub Command10_Click()
'المشاركه مقتبسه من الرابط التالي
'http://arabmoheet.net/aspnetforum/amf/ea976d5f-2e12-444c-97cd-a89c5282be06.aspx?pageno=2
Dim iMsg As Object
    Dim iConf As Object
    Dim strbody, myemail, mypassword As String
    Dim Flds As Variant
    'يجب وضع ايميلك في gmail وكلمة مروره في السطرين التاليين
    '''myemail = "@moh.gov.sa"
    myemail = Me.MailN.Value
    mypassword = Me.Pass.Value
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1
    Set Flds = iConf.Fields
    With Flds
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
             .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
             .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "webmail.moh.gov.sa"
             .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
            .Update
    End With
    'تجاوز الاخطا في حال عدم وجود مرفقات
    On Error Resume Next
    With iMsg
        Set .Configuration = iConf
        .To = Me.EmailTo
        .From = """" & Me.MailN & """ <" & myemail & ">"
        .Subject = Me.sub
        .AddAttachment Me.attch.Value
        .HTMLBody = "<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head><div dir='rtl' align='right' style='font-size:25px'>عزيزي : <font style='color:red'>" & Me.headnurse & "</font><br /><br />" & Replace(Me.msg, vbNewLine, "<br />") & "<br />مع تحيات :<br /><font style='color:green'>" & Me.toname & نص8 & نص9 & "</font></div>"
        .send
    End With
MsgBox "تم إرسال الرسالة بنجاح"
End Sub

اريد انزل البرامج لكن بدون جدوى
كل مرة اضغط عليه ما بينزل وبينتقلني الى صفحة رئيسية
ممكن ترفع الملف من جديد
او من لديه نسخة يرسللي علخاص

shivan_rekany212@yahoo.com

مع تحياتي