أبو. مشاري قام بنشر يناير 31, 2010 مشاركة قام بنشر يناير 31, 2010 (معدل) اخي العزيز تم طرح موضوع في السابق على الرابط التالي http://www.officena.net/ib/index.php?showtopic=29748 وقد قمتم مشكورين بالرد على الموضوع ومساعدتي سال المولى عز وجل بان يجعله في ميزان اعمالكم. المطلوب من سعادتكم التكرم عن كيفية طرح مرفق وهي صوره من المعاملة المشار اليها في البريد المرسل لصاحب الشان الكود Sub mas() On Error Resume Next Dim n As Integer For n = 3 To 100 If Range("c" & n & "").Value = "" And Date - Range("b" & n & "").Value > 7 Then If Range("g" & n & "").Value <> "" Then Kill ThisWorkbook.Path & "\test.html" generatehtml (n) Send_Mail (Range("g" & n & "").Value) Range("f" & n & "").Value = "Êã ÇáÅÑÓÇá" End If End If Next n MsgBox "Êã ÅÑÓÇá ÌãíÚ ÇáÑÓÇÆá" End Sub ------------------------------------------------------------------ Function generatehtml(rw As Integer) Dim fs As Object Dim A As Object Dim FileName As String FileName = ThisWorkbook.Path & "\test.html" Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(FileName, True) A.WriteLine ("<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'>" & Range("h" & rw & "").Value & "</font><br />äÝíÏ ÓÚÇÏÊßã ÚáãÇ ÈÃä :<br />ÇáãÚÇãáÉ ÑÞã : " & Range("a" & rw & "").Value & " æÇáãÄÑÎÉ ÈÊÇÑíÎ : " & Format(Range("b" & rw & "").Value, "yyyy/mm/dd dddd") & " ãÊÃÎÑÉ æÊÓÊæÌÈ ÇáÑÏ<br />åÐÇ ááÚáã æÇÊÎÇÐ ÇááÇÒã<br />ãáÇÍÙÉ ãåãÉ :<br /><font style='color:blue'>íÑÌì ÚÏã ÇáÑÏ Úáì åÐå ÇáÑÓÇáÉ æÇáÊí ÊÃÊí ÈÔßá Âáí ãä ÞÈá ÅÏÇÑÉ >>>>>>> Ýí ÍÇá ÊÃÎÑ ÇáãÚÇãáÉ áÏíßã.</font></div>") A.Close End Function تم تعديل يناير 31, 2010 بواسطه أبو. مشاري رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 31, 2010 مشاركة قام بنشر يناير 31, 2010 أخي الكريم أبو مشاري ماذا تريد بالضبط؟ هل تريد إرسال بريد من خلال gmail أم من خلال برنامج outlook ؟ برجاء التوضيح والاستفاضة في الشرح والله الموفق 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر يناير 31, 2010 الكاتب مشاركة قام بنشر يناير 31, 2010 (معدل) لا طبعا اخي اقصدgmail ، واعتذر لك اخي على كثره الاسئلة والازعاج ولكن يعلم الله ما فعلته ابهر الكثير . مثال . سعادة الاستاذ : فلان نفيد سعادتكم علما بأن : المعاملة رقم : 16733 والمؤرخة بتاريخ : 2010/01/19 الثلاثاء متأخرة وتستوجب الرد هذا للعلم واتخاذ اللازم وطبعا نفس المعاملة المشار إليها ترفق من ضمن البريد تم تعديل يناير 31, 2010 بواسطه أبو. مشاري رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 31, 2010 مشاركة قام بنشر يناير 31, 2010 خيرا إن شاء الله إذن تريد تريد إرسال رسالة محددة النص لكل عميل تختلف فقط في بيانات الرسالة التي تأخذ بياناتها من شيت إكسيل تمام ما الذي تريد إرفاقه لكل عميل؟ هل ترفق الشيت كله؟ لا أعتقد 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر يناير 31, 2010 الكاتب مشاركة قام بنشر يناير 31, 2010 اريد ان يرفق صوره من الخطاب رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 31, 2010 مشاركة قام بنشر يناير 31, 2010 اريد ان يرفق صوره من الخطاب اين توجد هذه الصورة؟(الملف المرفق) وما اسم الملف المرفق لكل عميل؟ 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر فبراير 1, 2010 الكاتب مشاركة قام بنشر فبراير 1, 2010 (معدل) أنا واضع شيت برقم المعاملة ومسوي رابط على رقم المعاملة بحيث اذا ضغطت على رقم المعاملة تفتح لك المعاملة حيث جميع صور المعاملات توجد على مجلد على الرابط داخل الجهاز \\rhonas01\IAD عند فتح المجلد المذكور تظهر عدة مجلدات مرقمة حسب رقم الوارد للمعاملة ارجوا اني وضحت تم تعديل فبراير 1, 2010 بواسطه أبو. مشاري رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر فبراير 1, 2010 مشاركة قام بنشر فبراير 1, 2010 تمام يعني الملف المرفق سيكون ملف إكسل وأقترح أن يكون اسم الملف (المعاملة) موجودا في الشيت الأصلي الذي يتم الإرسال من خلاله ويفضل أن يكون اسم الملف هو مثلا رقم المعاملة آخر شيء ياريت ترفق لي ملفك مع مثال لملفين معاملة حتى يتم التجريب عليهم وللعلم تم التوصل لكود الإرسال بواسطة الموقع الأول في عالم البريد والانترنت yahoo.com وبعد إرفاقك للملفات سيتم كتابة الكود الذي يسمح لك بالإرسال بواسطة أي واحد من الموقعين إن شاء الله تحياتي أخوكم أبو عبد الله محمد صالح 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر فبراير 1, 2010 الكاتب مشاركة قام بنشر فبراير 1, 2010 هذا مثال mas_mail2.rar رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر فبراير 1, 2010 مشاركة قام بنشر فبراير 1, 2010 تمام يعني الملف المرفق سيكون ملف إكسل وأقترح أن يكون اسم الملف (المعاملة) موجودا في الشيت الأصلي الذي يتم الإرسال من خلاله ويفضل أن يكون اسم الملف هو مثلا رقم المعاملة آخر شيء ياريت ترفق لي ملفك مع مثال لملفين معاملة حتى يتم التجريب عليهم وللعلم تم التوصل لكود الإرسال بواسطة الموقع الأول في عالم البريد والانترنت yahoo.com وبعد إرفاقك للملفات سيتم كتابة الكود الذي يسمح لك بالإرسال بواسطة أي واحد من الموقعين إن شاء الله تحياتي أخوكم أبو عبد الله محمد صالح هذا مثال يبدو أن الأخ ابو مشاري لم يفهم قصدي جيدا بدليل الملف المرفق لم يحتو على المطلوب منه والملف المرفق به حل قمت به له في موضوع سابق ويؤدي الغرض تماما بإرسال نص رسالة معينة إلى كل عميل متأخر وله بريد وإذا كان موضوع إرفاق ملف في الرسالة هو الذي زاد فيمكنك وضع هذا السطر قبل سطر الإرسال .Send ضع هذا السطر المسئول عن إرفاق ملف للرسالة .AddAttachment "c:\myfolder\myfile.xls" حيث يتم تمرير المسار الكامل للملف المرفق وإمتداده 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر فبراير 1, 2010 الكاتب مشاركة قام بنشر فبراير 1, 2010 هذا ما ريد فعلا لكن ياخي لو توضح اكثر لاني لا افهم في البرمجة مع العلم اني لا ارغب بوضح الامتداد للمتلاقي فقط يرفق في الرسالة المرفق من صورة الخطاب فقط مع خالص شكري رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر فبراير 2, 2010 مشاركة قام بنشر فبراير 2, 2010 مع العلم اني لا ارغب بوضح الامتداد للمتلاقي فقط يرفق في الرسالة المرفق من صورة الخطاب فقط ياريت توضح أكثر حتى إن كنت تريد إرفاق صورة يجب وضع مسار وامتداد الصورة jpg or gif or png 1 رابط هذا التعليق شارك More sharing options...
أبو. مشاري قام بنشر فبراير 2, 2010 الكاتب مشاركة قام بنشر فبراير 2, 2010 (معدل) اخي العزيز يبدو اني لم استطع توصيل المعلومة لك جيدا انت لم تفهمني جيدا شكرا على مساعدتك تم تعديل فبراير 2, 2010 بواسطه أبو. مشاري رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر فبراير 2, 2010 مشاركة قام بنشر فبراير 2, 2010 وللعلم تم التوصل لكود الإرسال بواسطة الموقع الأول في عالم البريد والانترنت yahoo.com استاذنا : محمد صالح اخونا ابو مشاري لم يفهم قصدك .. نلتمس منك طول البال ، ونتشوق وننتظر بشغف ما سينتهي اليه هذا الموضوع ممكن تعطينا مثال اولا : اذا كانت الرساله المطلوب ارفاقها ( احدى ورقات العمل ، يعني شيت في نفس الملف ) ثانيا : اذا كانت الرساله عبارة عن ملف محفوظ وله مسار على الدرايف او شوف الاسهل واعطينا مثال عليه وياريت يتم الارسال عن طريق الياهو كما ذكرت ، وان كانت هناك صعوبه خلينا في الجي ميل واقبل تحياتنا اخوك : حسن علي رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر فبراير 2, 2010 مشاركة قام بنشر فبراير 2, 2010 وللعلم تم التوصل لكود الإرسال بواسطة الموقع الأول في عالم البريد والانترنت yahoo.com استاذنا : محمد صالح اخونا ابو مشاري لم يفهم قصدك .. نلتمس منك طول البال ، ونتشوق وننتظر بشغف ما سينتهي اليه هذا الموضوع ممكن تعطينا مثال اولا : اذا كانت الرساله المطلوب ارفاقها ( احدى ورقات العمل ، يعني شيت في نفس الملف ) ثانيا : اذا كانت الرساله عبارة عن ملف محفوظ وله مسار على الدرايف او شوف الاسهل واعطينا مثال عليه وياريت يتم الارسال عن طريق الياهو كما ذكرت ، وان كانت هناك صعوبه خلينا في الجي ميل واقبل تحياتنا اخوك : حسن علي اخي وصديقي حسن بارك الله فيك وجزاك الله خيرا على نصيحتك لي بالهدوء وطول البال والحمد لله هما أهم ما يميزني أما بخصوص أخونا أبو مشاري فلعل إجابتي على أسئلتك تكون هي ما يقصد الوصول إليه بالنبة لموضوع إرفاق شيت من الملف الحالي فيجب أن يكون لكل عميل شيت واسم الشيت مرتبط باسم أو رقم العميل أو المعاملة كما هو في مثالنا وتم كتابة كود يقوم بإنشاء ملف إكسل باسم الشيت الخاصة بكل عميل متأخر ثم يقوم بإرفاقه في الرسالة ثم يقوم بحذفه ومرفق كود إرسال البريد بواسطة الاثنين معا الياهو والجي ميل مع ملاحظة التعليمات المكتوبة في الكود والله الموفق mas_mailer.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.