چرا کدزیر کار نمی کند.درحالی که من فکر می کنم همه چیز درست نوشته شده؟
کد:
Dim objmail As New MailMessage
objmail.From = "[EMAIL="[email protected]"][email protected][/EMAIL]"
objmail.To = "[EMAIL="[email protected]"][email protected][/EMAIL]"
objmail.Subject = "welcome to olkamiz website"
objmail.BodyEncoding = System.Text.Encoding.UTF8
objmail.Body = "hello"
objmail.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = "smtp.gmail.com"
objmail.Fields.Add("[URL]http://schemas.microsoft.com/cdo/configuration/smtpserver[/URL]", "smtp.gmail.com")
objmail.Fields.Add("[URL]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/URL]",465)
objmail.Fields.Add("[URL]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[/URL]", 1)
objmail.Fields.Add("[URL]http://schemas.microsoft.com/cdo/configuration/sendusername[/URL]", "[EMAIL="[email protected]"][email protected][/EMAIL]")
objmail.Fields.Add("[URL]http://schemas.microsoft.com/cdo/configuration/sendpassword[/URL]", "password")
Try
SmtpMail.Send(objmail)
Catch ex As Exception
End Try