0
스택 오버플로에서 비슷한 모양의 일부 게시물을 살펴 보았지만 코드가 변경되었지만 여전히 작동하지 않습니다. 그래서 메일을 목적지에 도달하지을 할 수있는 것을smtp 클라이언트와 ASP.NET을 사용하여 메일을 보내지 않았습니다.
Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
'Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com",465)
'Dim ss As SmtpClient = New SmtpClient("smtp.gmail.com", 25)
ss.Timeout = 10000
ss.DeliveryMethod = SmtpDeliveryMethod.Network
ss.UseDefaultCredentials = False
ss.EnableSsl = True
ss.UseDefaultCredentials = False
ss.Credentials = New NetworkCredential("[email protected]", "[email protected]")
Dim subject As String = "Approval request for Quotation with Order Number: " + Me.OrderNo
Dim body As String = "Dear Sir/Madam," + vbCrLf + " This is to bring to your notice the quotation for the Client " + Me.cmbCustomer.SelectedItem.Text + " and Order Number " + Me.OrderNo & _
" which is awaiting your approval." + vbCrLf + "Click here to view and approve the Quotation: http:192.168.20.7/appname/Sales/ManageInvoices.aspx" + vbCrLf & _
" Kindly revert after approval. Thank you." + vbCrLf + "Regards."
Dim To1, To2, To3 As String
Dim mm As MailMessage = New MailMessage()
mm.From = New MailAddress("[email protected]")
To1 = "[email protected]"
To2 = "[email protected]"
To3 = "[email protected]"
'To is a collection of MailAddress types
mm.To.Add(To1)
mm.To.Add(To2)
mm.To.Add(To3)
mm.Subject = subject
mm.Body = body
mm.BodyEncoding = UTF8Encoding.UTF8
'mm.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
Try
ss.Send(mm)
Catch ex As SmtpException
Me.lblerr.Text = "SMTP Err:" & ex.ToString
End Try
: 내 코드는 아래에 열람을 위해 .11입니까? 오류 메시지가 전혀 표시되지 않습니다. 감사합니다.
에 포트를 설정해야합니다'뉴려면 SmtpClient ("smtp.gmail.com", 587) '- 두 번째 매개 변수는 포트 번호. –
다시 실행 해봤는데 오류가 발생했습니다 :'원격 이름을 확인할 수 없습니다 : 'smtp.gmail.com''두 번째 실행 후 방화벽을 끈 후에 다음과 같은 오류가 나타납니다 :'연결 시도가 실패했습니다 연결된 호스트가 일정 기간 후에 제대로 응답하지 않았거나 연결된 호스트가 응답하지 않아 연결이 실패한 경우 173.194.67.109 : 587' – Charles
매우 일반적인 오류 메시지입니다. 프록시 문제, 방화벽 문제 등일 수 있습니다. – IrishChieftain