PDA

View Full Version : ارسال اطلاعات یک فرم(پرسشنامه) به ایمل



karimi84
شنبه 02 مرداد 1389, 12:53 عصر
سلام
چگونه می شود یک پرسشنامه ر اایمل کرد

eyes_shut_number1
شنبه 02 مرداد 1389, 13:09 عصر
از کلاس SmtpClient ساتفاده کن



Imports System.Net.Mail
Dim obj As New SmtpClient

Dim Mailmsg As New MailMessage

Mailmsg.To.Clear()



Mailmsg.To.Add(New MailAddress(mto))

Mailmsg.From = New MailAddress(mfrom)

Mailmsg.Subject = subject

Mailmsg.BodyEncoding = System.Text.Encoding.UTF8

Mailmsg.IsBodyHtml = True

obj.Host = mailserver

Dim basicAuthenticationInfo As New System.Net.NetworkCredential(mfrom, pass)



obj.UseDefaultCredentials = False



obj.Credentials = basicAuthenticationInfo



Mailmsg.Body = htmltext

Mailmsg.IsBodyHtml = True

Try

obj.Send(Mailmsg)

Catch ex As Exception



End Try