لیست شماره

[star_star]

سورسی رو می خوام که اینطوری باشه :
فرض کنیم یه لیست باکس داریم که توی اون تعداد زیادی عدد داریم ، ویک دکمه داریم که با زدن اون برنامه باید
تک تک اون شماره هارو به یک آدرس ایمیل ارسال کنه
واسم تک تک ارسال کردن مهمه نه اینکه همه ی شماره هارو یکجا بفرسته

[M.T.P]

سورس ارسال ایمیل مثل نقل و نبات تو این سایت و سایت های دیگه ریخته ، یه جستجو بزنید هزاران صفحه براتون لیست میشه.

[star_star]

سورس ارسال ایمیل مثل نقل و نبات تو این سایت و سایت های دیگه ریخته ، یه جستجو بزنید هزاران صفحه براتون لیست میشه.

MTP عزیز مشکله من اینه که نمیدونم چطوری دونه دونه ایمیل بفرستم !!!!
نمیدونم چی بهش میگن !فکر کنم میگن بهش حلقه !!!!!
من تازه کارم !!
اگه میشه کمکم کنید

[arenaw]

شما خودت اون ماژول ایمیل فرستادن بگرد پیدا کن
بعد اینارو توی کامند بنویس

if not list1.listcount = -1 then
for i = 0 to list1.listcount - 1
email(324234234, list1.list(i))
next
end if

[star_star]

شما خودت اون ماژول ایمیل فرستادن بگرد پیدا کن
بعد اینارو توی کامند بنویس

if not list1.listcount = -1 then
for i = 0 to list1.listcount - 1
email(324234234, list1.list(i))
next
end if


این عدد چیه ؟
324234234

[star_star]

یکی به داد ما برسهههههههههههههههههههههه ههههههههههههههههههههههههه ههههههههه !!!!!

[arenaw]

اون عدد رو الکی زدم، اون خط کلا بستگی به این داره که اسم فانکشنی که ایمیل ارسال میکنه چی باشه و ورودی هاش به ترتیب چیا باشن
ولی قسمت متن ایمیلت باید بشه list1.list(i)

[Veteran]

برای ارسال با جیمیل/اطلاعات ایمیل رو جایگزین کنید.

Private Sub Command1_Click()
Dim tf As Boolean
For i = 1 To List1.ListCount - 1
tf = SendMail("email ersal konande", "Password email ersal konande", "mozo e email", "Email daryaft konande", List1.List(i), "agar mikhayd file ersal konid adddrese ro inja bezarid")
Next
End Sub

Function SendMail(ByVal sMailSender As String, _
ByVal sMailSenderPassword As String, _
ByVal sMailSubject As String, _
ByVal sMailReciever As String, _
ByVal sMailText As String, _
ByVal sMailAttachFile As String) As Boolean

On Error GoTo EndLine
Dim obMsg As Object
Dim obConf As Object
Dim Flds As Object
Dim strSchema As String
Dim blnRet As Boolean

blnRet = False

If sMailSender = vbNullString Or sMailSenderPassword = vbNullString Then
GoTo EndLine
End If

Set obMsg = CreateObject("CDO.Message")
Set obConf = CreateObject("CDO.Configuration")
Set Flds = obConf.Fields



' send one copy with Google SMTP server (with autentication)
strSchema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(strSchema & "sendusing") = 2
Flds.Item(strSchema & "smtpserver") = "smtp.gmail.com"
Flds.Item(strSchema & "smtpserverport") = 465
Flds.Item(strSchema & "smtpauthenticate") = 1
Flds.Item(strSchema & "sendusername") = sMailSender
Flds.Item(strSchema & "sendpassword") = sMailSenderPassword
Flds.Item(strSchema & "smtpusessl") = 1
Flds.Update

With obMsg
.to = sMailReciever
.From = sMailSender
.Subject = sMailSubject
.HTMLBody = sMailText
.Sender = sMailSender
.Organization = "S.M.B Productions"
.ReplyTo = sMailSender
If sMailAttachFile <> vbNullString Then
.AddAttachment (sMailAttachFile)
End If
Set .Configuration = obConf
.Send
End With

blnRet = True

EndLine:
Set obMsg = Nothing
Set obConf = Nothing
Set Flds = Nothing
SendMail = blnRet
End Function

[star_star]

برای ارسال با جیمیل/اطلاعات ایمیل رو جایگزین کنید.

Private Sub Command1_Click()
Dim tf As Boolean
For i = 1 To List1.ListCount - 1
tf = SendMail("email ersal konande", "Password email ersal konande", "mozo e email", "Email daryaft konande", List1.List(i), "agar mikhayd file ersal konid adddrese ro inja bezarid")
Next
End Sub

Function SendMail(ByVal sMailSender As String, _
ByVal sMailSenderPassword As String, _
ByVal sMailSubject As String, _
ByVal sMailReciever As String, _
ByVal sMailText As String, _
ByVal sMailAttachFile As String) As Boolean

On Error GoTo EndLine
Dim obMsg As Object
Dim obConf As Object
Dim Flds As Object
Dim strSchema As String
Dim blnRet As Boolean

blnRet = False

If sMailSender = vbNullString Or sMailSenderPassword = vbNullString Then
GoTo EndLine
End If

Set obMsg = CreateObject("CDO.Message")
Set obConf = CreateObject("CDO.Configuration")
Set Flds = obConf.Fields



' send one copy with Google SMTP server (with autentication)
strSchema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(strSchema & "sendusing") = 2
Flds.Item(strSchema & "smtpserver") = "smtp.gmail.com"
Flds.Item(strSchema & "smtpserverport") = 465
Flds.Item(strSchema & "smtpauthenticate") = 1
Flds.Item(strSchema & "sendusername") = sMailSender
Flds.Item(strSchema & "sendpassword") = sMailSenderPassword
Flds.Item(strSchema & "smtpusessl") = 1
Flds.Update

With obMsg
.to = sMailReciever
.From = sMailSender
.Subject = sMailSubject
.HTMLBody = sMailText
.Sender = sMailSender
.Organization = "S.M.B Productions"
.ReplyTo = sMailSender
If sMailAttachFile <> vbNullString Then
.AddAttachment (sMailAttachFile)
End If
Set .Configuration = obConf
.Send
End With

blnRet = True

EndLine:
Set obMsg = Nothing
Set obConf = Nothing
Set Flds = Nothing
SendMail = blnRet
End Function





داداشم این یعنی چی ؟
strSchema = "http://schemas.microsoft.com/cdo/configuration/"

[Veteran]

حاجی شما کار با اونش نداشته باش/تابع رو فراخوانی کن استفاده کن/نترس اطلاعاتت به جایی نمیره/

[star_star]

آقا من کاری به ایمیل ندارم می خوام بدونم چطوری میشه که یه دستور چند بار تکرار بشه اما در هر بار یکی از داده ها عوض شود
؟

[M.T.P]

آقا من کاری به ایمیل ندارم می خوام بدونم چطوری میشه که یه دستور چند بار تکرار بشه اما در هر بار یکی از داده ها عوض شود
؟

با حلقه


Dim i As Integer
For i = 0 To List1.ListCount - 1
MsgBox List1.List(i)
Next i
حلقه جزء مباحث اولیه یادگیری زبان هاست.
برای شروع برنامه نویسی بهترین مرجع به نظرم کتاب های سری برنامه سازی رشته کامپیوتر هست.