Private Sub Check1_Click()
If Check1.Value = 1 Then
Sendmail1.AsHTML = True
Else
Sendmail1.AsHTML = False
End If
End Sub
Private Sub Command1_Click()
Sendmail1.MailName = Text1.Text
Sendmail1.MailFrom = Text2.Text
Sendmail1.MailTo = Text3.Text
Sendmail1.MailSubject = Text4.Text
Sendmail1.MailMessage = Text5.Text
' ارسال الايميل
Sendmail1.Send
If Sendmail1.Success = True Then
MsgBox ("Your message has been sent")
Else
MsgBox ("Your message has not been sent")
End If
End Sub
اى اكواد اخرى راسلونى على pirooo1@hotmail.com