مشکل در ارسال ایمیل

[Overhere]

سلام
مگه حجم محدود برای پیوست ایمیل 25 مگ نیست؟

من میخوام با برنامه یه فایل 3.48 مگی رو بفرستم ولی برنامه نمیتونه......

2 مگ رو میفرسته
rar هم هستش:
این هم کد:
Sub sendEmail()
Label9.Visible = True
Try
Timer1.Stop()

SmtpServer.Credentials = New Net.NetworkCredential(Trim(ComboBox1.Text), Trim(TextBox2.Text))

SmtpServer.Port = "587"
If ComboBox2.Text.Contains("gmail") Then
SmtpServer.EnableSsl = True
Else
SmtpServer.EnableSsl = False
End If

SmtpServer.Host = ComboBox2.Text

mail.From = New MailAddress(Trim(ComboBox1.Text))

For Each Name As String In Mainform.ListBox1.Items
Dim attach As New Net.Mail.Attachment(Name) 'Includes Path
mail.Attachments.Add(attach)
Next

For Each files In ListBox1.Items
mail.To.Add(files)
Next

mail.Subject = Trim(TextBox5.Text)

mail.Body = Trim(Mainform.RichTextBox1.Text)

SmtpServer.Send(mail)

MsgBox("Mail Sent", MsgBoxStyle.Information, "Mail Sent")
Me.Close()
Label9.Visible = False
Catch ex As Exception
MsgBox(ex.Message.ToString)

End Try

[shahryari]

از نمونه سورس زیر میتونی در برنامه ات استفاده کنی و امکان ارسال با اکانت یاهو و فایل ضمیمه را به برنامت اضافه کن
http://barnamenevis.org/showthread.php?346739-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%D9%8A%D9%85%D9%8A%D9%84-%D8%A8%D8%A7-%D8%A2%D9%8A-%D8%AF%D9%8A-%D9%8A%D8%A7%D9%87%D9%88-%D9%81%D8%A7%D9%8A%D9%84-%D8%B6%D9%85%D9%8A%D9%85%D9%87&highlight=%D8%A7%D8%B1%D8%B3%D8%A7%D9%84

[Overhere]

ببین کد من کاملا درسته فکر میکنم که مشکل از اینترنت باشه...؟؟؟
چون با فایل ضمیمه کمتر از 2 مگ میفرسته پس میفرسته پس کد درسته