ارسال ایمیل

[nima_8m]

من این مدلی انجامش میدم
و فکر نکنم به تایید دو مرحله ای نیاز باشه شما داری با استفاده از اکانت گوگل از سرویس SMTP برای ارسال استفاده میکنی مثل کاری که تو وب سایت انجلم میدیم برای ارسال فرم ها و صفحات تماس وقتی میخوایم از PHPMAIL استفاده نکنیم و یا هاست غیر فعالش کرده

  Dim smtpserver As New SmtpClient()

        Dim mail As New MailMessage()

        smtpserver.EnableSsl = True

        'user an pass gmail khodetoon

        smtpserver.Credentials = New Net.NetworkCredential(txtusername.Text, txtpassword.Text)

        smtpserver.Host = "smtp.gmail.com"

        smtpserver.Port = "587"

        mail = New MailMessage

        mail.From = New MailAddress(txtusername.Text)

        mail.To.Add(txtTo.Text)





        mail.Subject = txtSubject.Text

        mail.Body = txtMessage.Text

        If Not txtAttach.Text = Nothing Then

            Dim attach As New Attachment(txtAttach.Text)

            mail.Attachments.Add(attach)

        End If

        smtpserver.EnableSsl = True

        Try

            smtpserver.Send(mail)

            MessageBox.Show("Message sent", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As SmtpException

            MessageBox.Show("Sending failed", "Message", MessageBoxButtons.OK, MessageBoxIcon.Warning)





        End Try

    End Sub