:: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

تم تحميل الصفحة في 0,8931840 ثانية
:: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
23 أغسطس 2008
المشاركات
2,491
الإعجابات
681
النقاط
113
إنضم
23 أغسطس 2008
المشاركات
2,491
الإعجابات
681
النقاط
113
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

تبعث لاميل واحد فقط
أي لا تستطيع تحديد قائمة ايميلات
معلش مشكور على البرمجة
مع أنه يبعث ب smtp ال gmail
أي الرسالة قانونية و ليست سبام

كلامك سليم لاكن يمديك تزيد الايميلات والى الان جالس ادور طريقة استيراد لسته

على العموم الي قدرت اسويه انو يرسل 10 ايميلات مره وحده تقريبا
:9:
 

az0o0

Active DeveloPer
rankrank
إنضم
18 أغسطس 2010
المشاركات
422
الإعجابات
64
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

هلا اخوي انت من الناس الي دائما تسعى لتطوير اخوي مشاء الله عليك
وتطويرك دائما يكون في محله مشكور اخوي على التطويرالروعه
تقبل مروري
 
إنضم
1 سبتمبر 2010
المشاركات
322
الإعجابات
9
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

ممكن سؤال ليه باسورد ايميل المرسل ؟!؟:24:
 
إنضم
10 مارس 2011
المشاركات
453
الإعجابات
27
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

برنامج جميل
يمكنك اضافة عليه بعد التعديلات
مثلا جعله يرسل الى كل الامايلات بتغيير smtp باضافة كمبوبكس
واذا كان يرسل الى الجمايل فقط فعليك ان تسهل على المستخدم مثلا
text1.text&'gmail.com'
والسلام عليكم ورحمة الله وبركاته :10:

 

redda1987

Beginner Developer
rank
إنضم
10 مارس 2011
المشاركات
42
الإعجابات
5
النقاط
8
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

أإأإلــــــــــف شكـــــــــــر:6::6:
 
إنضم
25 أكتوبر 2009
المشاركات
2,287
الإعجابات
239
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

:15::15::15::15:
السورس هه
 

rachaa

Beginner Developer
rank
إنضم
15 مارس 2011
المشاركات
122
الإعجابات
12
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

كلامك سليم لاكن يمديك تزيد الايميلات والى الان جالس ادور طريقة استيراد لسته

على العموم الي قدرت اسويه انو يرسل 10 ايميلات مره وحده تقريبا
:9:
أذا كنت تستعمل smtp أل gmail فمن المستحيل تبعث أكثر من 100 اميل دفعة و احدة موقفينها من عندهم

ان شاء الله راح تلاقي طريقة أخرى غير smtp قوقل
مثلا انت تلاقي اس ام تي بي موقع ما يسمحلك تبعث عدد غير منتهي من الرسائل
+
طبعا يوزر الاس ام تي بي راح يكون في الكود سورس وهكذا راح يكون عندك برنامج من دون وضع ايميل و لا باسوورد
بالتوفيق
 
إنضم
23 أغسطس 2008
المشاركات
2,491
الإعجابات
681
النقاط
113
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

أذا كنت تستعمل smtp أل gmail فمن المستحيل تبعث أكثر من 100 اميل دفعة و احدة موقفينها من عندهم

ان شاء الله راح تلاقي طريقة أخرى غير smtp قوقل
مثلا انت تلاقي اس ام تي بي موقع ما يسمحلك تبعث عدد غير منتهي من الرسائل
+
طبعا يوزر الاس ام تي بي راح يكون في الكود سورس وهكذا راح يكون عندك برنامج من دون وضع ايميل و لا باسوورد
بالتوفيق

ادري ياغالي المشكله مو ففي الستمب

المشكله بادخال لستت الايميلات للبرنامج وكانها text كل ايميل في سطر فاهمني

بامكاني حجز مساحه وستمب لانهائي التمت

:30:

--

باقي الاخوه نورتونا
والي يقول ليش الباسورد

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

---
البرنامج يرسل للهوتميل والياهو وغيرها
بس مايستخدم الا الجي مايل فالارسال

لاتنسوا الاصدار الاول لسى توها فكره

:9:
 
إنضم
9 مارس 2011
المشاركات
309
الإعجابات
16
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

مشكور وماقصرت
 
إنضم
10 مارس 2011
المشاركات
453
الإعجابات
27
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

ادري ياغالي المشكله مو ففي الستمب

المشكله بادخال لستت الايميلات للبرنامج وكانها text كل ايميل في سطر فاهمني

بامكاني حجز مساحه وستمب لانهائي التمت

:30:

--

باقي الاخوه نورتونا
والي يقول ليش الباسورد

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

---
البرنامج يرسل للهوتميل والياهو وغيرها
بس مايستخدم الا الجي مايل فالارسال

لاتنسوا الاصدار الاول لسى توها فكره

:9:
هذا هو الحل
List1.AddItem (Text1.Text)
للاضافة الى تاكست الى القائمة

وهذا للاضافة الى قائمة الارسال
Dim i As Integer
For i = 0 To List1.ListCount - 1
Text2.Text = Text2.Text & ";" & List1.List(i)
Next i
وهو من برمجتي :15: بالرغم ان لا ابرمج به (VB) :29:
 
إنضم
10 مارس 2011
المشاركات
453
الإعجابات
27
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

اكمال الحل :15:
حيث الكمبوبكس يحتوي على مجموعة smtp سرفر
C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text

 
إنضم
15 يناير 2010
المشاركات
4,427
الإعجابات
722
النقاط
113
الإقامة
][ Saudi Arabia ][
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

يعطيك ربي مليون عافية حبيبي [ ToP ] ، مواضيعك دائماً [ ToP ] :15: ،

كان ودي أقيمك بس للأسف [ يجب أن تضع للبعض سمعات قبل إعطائها إلى ŦỖρֱֻֻ¹ مرة أخرى. ] ،

الجايات أكثر يالغـلا ، وأحلى [
] لعيونك ، تقبل مروري المتواضع ،


ودي :32:
 

pisca

ExpErt DeveloPer
rankrankrank
إنضم
9 مارس 2011
المشاركات
788
الإعجابات
171
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

موضوع رائع من رائع
 

zaKrTH

DeveloPer Plus
rankrankrank
إنضم
9 مارس 2011
المشاركات
853
الإعجابات
123
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

برناااااااااااااااااااااااااامج روعـــه

ويعطيك ربي العااافيييه


بسس عندي سسؤاااال

اقــدر ارسسل لاكثثر من اييميل بوقت وااحد

يعني ارسسل الى 100 او 1000 اييميل

وشكرآآآآآ لكـ
 
إنضم
23 أغسطس 2008
المشاركات
2,491
الإعجابات
681
النقاط
113
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

اكمال الحل :15:
حيث الكمبوبكس يحتوي على مجموعة smtp سرفر
C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Combo1.Text


برضو انت مافهمتن هع

ال smtp محلول مشكلته بخليه يرسل 99 رساله مو مشكله كل دقيقه
المشكله في استيراد ايميلات من لستة txt الى text1.text حيث كل مره يطبق امر comand يضع ايميل جديد من السطر التالي

يعني كل مره يضع ايميل تحت الي فالخطوه الاولى

هذا الكود مانفع :9:

كود:
[FONT=Tahoma][SIZE=2]
 
the_file = App.Path & "\list.txt"
Open the_file For Input As #1 'open the file
While Not EOF(1)
    Line Input #1, temp 'read in a line
    List1.AddItem temp
Wend
Close #1 'close the file
  
Dim i As Integer
For i = 0 To List1.ListCount - 1
Emspam.Text = Emspam.Text & "" & List1.List(i)
  
Next i
[/SIZE][/FONT]

 
إنضم
10 مارس 2011
المشاركات
453
الإعجابات
27
النقاط
0
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

برضو انت مافهمتن هع

ال smtp محلول مشكلته بخليه يرسل 99 رساله مو مشكله كل دقيقه
المشكله في استيراد ايميلات من لستة txt الى text1.text حيث كل مره يطبق امر comand يضع ايميل جديد من السطر التالي

يعني كل مره يضع ايميل تحت الي فالخطوه الاولى

هذا الكود مانفع :9:

كود:
[FONT=Tahoma][SIZE=2]
 
the_file = App.Path & "\list.txt"
Open the_file For Input As #1 'open the file
While Not EOF(1)
    Line Input #1, temp 'read in a line
    List1.AddItem temp
Wend
Close #1 'close the file
  
Dim i As Integer
For i = 0 To List1.ListCount - 1
Emspam.Text = Emspam.Text & "" & List1.List(i)
  
Next i
[/SIZE][/FONT]

اها تم حل المشكل
تفضل
Dim sFileText As String
Open App.Path & "\mail.txt" For Input As #1
Do While Not EOF(1)
Input #1, sFileText
List1.AddItem (sFileText)
Loop
Close #1
وبخصوص الكبوبكس فانا اقترح ان يدعم الكل الياهو الجمايل ..الهتميل ..
سيتم ارفاق المشروع كامل :15:
 
إنضم
23 أغسطس 2008
المشاركات
2,491
الإعجابات
681
النقاط
113
رد: :: حصريا للديف بوينت برنامج Top Mailer من برمجتي الخاصه ::

اها تم حل المشكل
تفضل
Dim sFileText As String
Open App.Path & "\mail.txt" For Input As #1
Do While Not EOF(1)
Input #1, sFileText
List1.AddItem (sFileText)
Loop
Close #1
وبخصوص الكبوبكس فانا اقترح ان يدعم الكل الياهو الجمايل ..الهتميل ..
سيتم ارفاق المشروع كامل :15:

مو مشكله

انا فالاصدار الجاي راح اخلي اختياري ال stmp والهوست والبورت :15:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل