[تنبيه - عنوان غير مناسب : ]استفسار

معقول شئ هايف متل ذا وما في ولا واحد قادر يسويه ؟؟

إليك الحل

'تعريف المصفوفة في Module أو في قسم التعريفات العامة General Declartions

Type email
address As String * 100
End Type

'إضافة الكود التالي في أي جزء من المشروع، مع ملاحظة أنه توجد (List) تحتوي على عناوين البريد داخل المشروع

Dim emails As email
Open App.Path & "\email.txt" For Random As #1 Len = 100

For i = 0 To List1.ListCount - 1
	emails.address = "<contact type='1'>" & List1.ItemData(i) & "</contact>"
	Put #1, i, emails
Next i

Close #1

يا جماعة الاخ momenpro اتفضل مشكور بعمل البرنامج بس اللي طالبو انا يضيف زر للبرنامج لجلب تيكست الايميلات والزر التاني لتكوين الايميلاات بعد اضافة الكود

وتصدير البرنامج exe لاني لا املك فيجول ومشكورين البرنامج بالمرفقات

email.rar

4 حملوا وولا واحد رد البرنامج جاهز وش ناقصكم ؟؟؟؟؟؟؟؟؟

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

اقتباس

معقول شئ هايف متل ذا وما في ولا واحد قادر يسويه ؟؟

لو وضعت عنوان موضوعك بشكل جيدا .... لوجدت التجاوب بشكل افضل ....

والحل يكمل في جملة التكرار كما تفضل الاخ momenpro

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343