Overhere
سه شنبه 19 شهریور 1392, 12:43 عصر
سلام
مگه حجم محدود برای پیوست ایمیل 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
مگه حجم محدود برای پیوست ایمیل 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