ارسال ایمیل

[siroos12 14]

سلام.

دوستان من ی آدرس ایمیل به لیبلم دادم حالا میخوام اگه روی لیبل کلیک کرد برام ی ایمیل ساده بفرسته؟

[Elyas Erfani 3,582]

Sub Label1_Click

Dim SMTP As SMTP

SMTP.Initialize("smtp.gmail.com", 587, "[email protected]", "Ramzet", "SMTP")

SMTP.StartTLSMode = True

SMTP.To.Add("[email protected]")

SMTP.Subject = "Mozooooooo"

SMTP.Body = "Matne Email ."

SMTP.Send

End Sub