ارسال ایمیل به همراه فایل ضمیمه

[mvb_mehran]

به نام خدا
سلام به همگی
مرا در امر ارسال ایمیل به همراه فایل ضمیمه یاری کنید.
اگه پروژه باشه ممنون میشم.
با تشکر فراوان:لبخندساده:

[mvb_mehran]

به نام خدا
سلام به همگی
مرا در امر ارسال ایمیل به همراه فایل ضمیمه یاری کنید.
اگه پروژه باشه ممنون میشم.
با تشکر فراوان:لبخندساده:
دوستان کمکم کنید
کارم واجبه

[M.KH-SH]

یک سئوال ::::
شما سرچ کردین و بعد این پست رو زدین یا اول پست رو زدین و منتظر هلو هستین؟


اینم هلو درخواست شده::::


اول
imports system.net.mail

بعد::

Private Function mail(ByVal sendfrom_ As String, ByVal sendto_ As String, ByVal subject_ As String, ByVal body_ As String, ByVal path_ As String)
Try
Dim SendFrom As MailAddress = New MailAddress(sendfrom_)
Dim SendTo As MailAddress = New MailAddress(sendto_)

Dim MyMessage As MailMessage = New MailMessage(SendFrom, SendTo)

MyMessage.Subject = subject_
MyMessage.Body = body_

If path_.Length > 0 Then
Dim attachFile As New Attachment(path_)
MyMessage.Attachments.Add(attachFile)
End If

Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = True
smtp.Credentials = New Net.NetworkCredential("mohammadreza.khsh@gmail.com", "********") ' be jaye ********** password mail khodeton ro benevisid
smtp.Send(MyMessage)

mail = "ایمیل با موفقیت ارسال شد"
Catch ex As Exception
mail = ex.ToString()
End Try

End Function

[arash020]

سلام
شما یه سری به وبلاگ http://www.eaglevb.blogfa.com/ یزنید .
یه برنامه ارسال ایمیل از طریق smtp جیمیل هست که قابلیت ارسال فایل هم داره .
اگه کار نکرد بیاید اینجا بهمون بگید...

با آرزوی امید شما...!

[alicomputer]

این سورس را دانلود نمایید
هم یاهو و هم جیمیل با قابلیت ارسال فایل ضمیمه

تشکر یادتون نره