التعامل مع أكواد الـــ html

[ثامر أبو بلقيس ثامر أبو بلقيس]

السلام عليكم

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

<a href="/"><img src="www.abc4web.net/images/qouraan.gif" alt="" border="0" width="170">

لم تصل الصورة اي وصلت أكواد لكن نفس الارسال بـلغات أخرى كــ autoit
تصل الصورة عادي

ما السبب و هل هناك علاقة بعنصر الادخال في الاوتوبلاي و هل من طريقة لارسال أكواد
html للايميل و تترجم للشكل المراد

ملاحظة : العمل مجرب على النسخة 8
السلام عليكم

[عبود عبود عبود عبود]

الكود بهذا الشكل يعمل جيدا و عن تجربة للإرسال ولا تنسى http://

<img border="0" src="https://sites.ienajah.com/vb2/images/qouraan.gif" alt="Pulpit rock" width="304" height="228">

[عبود عبود عبود عبود]

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

"<img src='https://sites.ienajah.com/vb2/images/qouraan.gif' alt='' border='0' width='170'>"

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

[عبود عبود عبود عبود]

ركز يا معلم أين ستضعها ؟

tblMailProperties.HtmlBody

[ثامر أبو بلقيس ثامر أبو بلقيس]

هذا أحد الملفات المستعملة لارسال الايميلات
أي نعم وجدت ما اشرت إليه هل من الممكن التعديل عليه
http://www.gulfup.com/?msAR7q

[عبود عبود عبود عبود]

تم تفعيل الجزء الخاص بنص الــ HTML ليصبح بهذا الشكل :

tblMailProperties.HtmlBody = "<img src='https://sites.ienajah.com/vb2/images/qouraan.gif' alt='' border='0' width='170'>";

[hide]Quick Email.apz[/hide]

[ثامر أبو بلقيس ثامر أبو بلقيس]

لقد قمت بالتصحيح في زر send
[HTML]Image.SetVisible("Image1", true);
Flash.SetVisible("Flash1", true);
Button.SetEnabled("Button3", false);
Label.SetVisible("Label1", true);
-- %%%%%%%%%%%%%%%%%% Mail Properties %%%%%%%%%%%%%%%%%%

tblMailProperties = {};
tblMailProperties.FromName = Input.GetText("3");
tblMailProperties.FromEmail = Input.GetText("1");
tblMailProperties.To = Input.GetText("5");
tblMailProperties.ReplayTo = Input.GetText("6");
tblMailProperties.HtmlBody = Input.GetText("7");
----tblMailProperties.HtmlBody = "<b>Test</b>";

tblMailProperties.CC = Input.GetText("8");
tblMailProperties.BCC = Input.GetText("9");
tblMailProperties.Importance = "high"; -- normal - low
tblMailProperties.Xmailer = " ";


-- %%%%%%%%%%%%%%%%%% Server Properties %%%%%%%%%%%%%%%%%%

tblServerProperties = {};
tblServerProperties.Server = "smtp.gmail.com";
tblServerProperties.ServerPort = 465;
tblServerProperties.UseSSL = true; -- or false

tblServerProperties.Authenticated = true; -- or false
tblServerProperties.UserName = Input.GetText("1"); -- if Authenticated = false you do not need to define this table index
tblServerProperties.PassWord = Input.GetText("2"); -- if Authenticated = false you do not need to define this table index


-- %%%%%%%%%%%%%%%%%% Attacments %%%%%%%%%%%%%%%%%% -- Set to nil if no attachments

tblAttachments = {};
tblAttachments[1] = {};
tblAttachments[2] = {};

-- %%%%%%%%%%%%%%%%%% Send Mail %%%%%%%%%%%%%%%%%%

result = SMTP.SendMail(tblMailProperties, tblServerProperties, tblAttachments);

Image.SetVisible("Image1", true);
Flash.SetVisible("Flash1", false);
Label.SetVisible("Label1", false);
Button.SetEnabled("Button3", true);

Dialog.SplashImage("AutoPlay\\Images\\send.png", 2, true);[/HTML]


مع ملاحظة أن الصورة جيف استعمال غيرها للتجربة أفضل

[عبود عبود عبود عبود]

طيب إجعل الإينبوت هو مكان لـــ رابط الصورة سواء جيف أو غيرها

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

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

[ثامر أبو بلقيس ثامر أبو بلقيس]

فهمك جيدا أخي عبود ... أخي العمل سيوظف في كتابات بلغة html ليس بالضرورة أن تكون
صورة او رابط جلها أكواد ستحرر يدويا و ارسالها فهمتني أخي ... سأحتاجك في تعديل
آخر اذ لم أوفق بعد المحاولة ................. بارك الله فيك

[عبود عبود عبود عبود]

هذة ملاحظتى إذن سيكون عملك موجه للمحترفين فالقليل هو من يعرف هذة اللغة .


سوف أتغيب سأكون بالعمل غدا و بعد غد 48 ساعة شغل سلام مؤقت أخى

[ثامر أبو بلقيس ثامر أبو بلقيس]

هههههههههههه لم أصل بعد لأوجه شيء حتى أنظر في الافق تجدني أسير بخطى
متثاقلة في الهندسة الصناعية

[عبود عبود عبود عبود]

أنت تعرف الكثير و الكثير و خبراتك كبيرة جدا و تصميماتك ذات أذواق عالية تابع وربنا يوفقك لما فية الخيــــــر

[ثامر أبو بلقيس ثامر أبو بلقيس]

بارك الله فيك و موفق إن شاء الله في عملك
لك مني كل التقدير

[admin admin]

جزاكم الله خيرا إخوانى على ماتقدومنه للفائدة من خلال حوار نافع

بالتوفيق ان شاء الله