Код за пращане на Email - Visual Basic
- marto2013
- Потребител
- Posts: 89
- Joined: 21 Jan 2014, 19:59
- Skype: marto-2013
- CS Nick: RO
- Favorite version: CS: 1.6
Код за пращане на Email - Visual Basic
Може ли да ми дадете кода с който от програмата да се пращат Email до Gmail ? Пробвах с един код но нищо не стана.
- Tumbac
- Потребител
- Posts: 1039
- Joined: 24 Jun 2012, 15:26
- Skype: valkata2012
- CS Nick: Tumbac
- Favorite version: CS: Global Offensive
- Steam Community ID: suplexcitybg5
- Contact:
Re: Код за пращане на Email - Visual Basic
Code: Select all
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Izprati email"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Izprashtane na email"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
MsgBox("Emaila e izpraten")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
Трябва да имаш полета:
-От кого се изпраща - txtFrom
-До кого се изпраща - txtTo
-Текстът на е-мейла - txtMessage
Трябва да имаш и 1 бутон - Button1