gamalin قام بنشر فبراير 25, 2015 قام بنشر فبراير 25, 2015 الاخوة الافاضل تحية طيبة وبعد قبل اي كلام اوجه تحيه عميقة لكل من لا يدخر علما ولا جهدا لنفع الاخرين ونشر العلم النافع وجزى الله خير كل من ساهم في هذا الصرح واذكر بعضهم على سبيل المثال لا الحصر فهم كثر عمر الحسيني ابو تامر و ابو اسامة العينبوسي وخبور خير وغيرهم واتمنى لو يكون هناك قسم تعريفي خالد بهؤلاء وبعض اسهاماتهم بالمنتدى و نبذة عن سيرتهم الذاتية نيجي للموضوع اريد ان يقوم ملف الاكسل عند غلقه بارسال ايميل الى عنوان محدد هل هذا ممكن ؟ ثانيا هل يمكن للاكسل ان يقوم بارسال اشعارات لجهاز اخر على شبكة داخليه مثلا برنامج مخازن قام بعمل اذن صرف هل يمكن ان يقوم الاكسل بارسال اي اشعار الى الحسابات بهذا عبر الشبكة الداخلية ؟ هل يمكن للاكسل ان يقوم بجلب واستيراد السطور التي اضيفت لملف اخر بمجرد الاضافة في الاول ؟
أيهاب ممدوح قام بنشر فبراير 25, 2015 قام بنشر فبراير 25, 2015 السلام عليكم اخي الكريم بالنسبه للسؤال الاول الخاص بارسال ايميل عند الاغلاق الي ايميل محدد او اكثر من ايميل .... ممكن وشغال بالفعل اما الباقي نترك الرد للخبراء الموجودين تحياتي 1
gamalin قام بنشر فبراير 25, 2015 الكاتب قام بنشر فبراير 25, 2015 اخي الكريم هل من الممكن ارسال نموذج لكود ارسال الايميل وهل يتم ارسال الايميل باستخدام الاوت لوك ام بواسطة اكسبلور عادي ام ماذا وهل هناك اعدادات لذلك يجب تنفيذها وهل اطمع في وضع نموذج لملف يقوم بارسال ايميل بسنخة منه
gamalin قام بنشر فبراير 25, 2015 الكاتب قام بنشر فبراير 25, 2015 استكمال للموضوع هل يمكن للاكسل ان يتعامل مع قارئ الباركود ؟ كوسيلة للادخال
أيهاب ممدوح قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 Sub SentMail() Dim Mail As New Message Dim Config As Configuration Set Config = Mail.Configuration Config(cdoSendUsingMethod) = cdoSendUsingPort Config(cdoSMTPServer) = "smtp.gmail.com" Config(cdoSMTPServerPort) = 25 Config(cdoSMTPAuthenticate) = cdoBasic Config(cdoSMTPUseSSL) = True Config(cdoSendUserName) = "بريدك الاكلتروفي GMAIL" Config(cdoSendPassword) = "الباسوورد" Config.Fields.Update Mail.To = "البريد المرسل ايه" Mail.from = Config(cdoSendUserName) Mail.Subject = "Email Subject" Mail.HTMLBody = "<b>Email body</b>" ' هذا هو الجزء الذي يرسل في هته الحال سيتم ارسال صورة من الجهاز الى بريد ما Mail.AddAttachment "C:\Users\Admin\Pictures\QQ.jpg" On Error Resume Next Mail.Send If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "There was an error" Exit Sub End If MsgBox "Your email hes sent!", vbInformation, "Sent" End Sub تفضل اخي الكريم الكود مجهز لرسال ملف من الجهاز حدد مسارة داخل الكود الكود يعمل بدون وسيط من الاكسل الي الايميل مباشرة لكن سجل ايميل المرسل منه والباسورد والايميل المراد الارسال اليه لكن شرط اضافه المرجع كما في الصورة ومن الممكن التعديل عليه لارسال نص رساله الي اكثر من ايميل تحياتي 1
أيهاب ممدوح قام بنشر فبراير 26, 2015 قام بنشر فبراير 26, 2015 بالنسبه للباركود ممكن التعامل معه مع الاكسل تحياتي
خالد الشاعر قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 (معدل) استاذ ايهاب الباركود يعمل مع اكسل بشكل عادى جداِ وصل قارى الباركود مكان الكى بورد و سوف يعمل دون اى مشكلة ولكن يوجد مشكلة فى ارسال الائيمل فى smtp فما هى المشكلة تم تعديل مارس 3, 2015 بواسطه خالد الشاعر
أيهاب ممدوح قام بنشر مارس 6, 2015 قام بنشر مارس 6, 2015 اخي الكريم بالنسبه للباركود مفيش مشكله في عمله مع الاكسل بالنسبه للكود ارفق ملفك بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.