hermanlaksko
Programmer
This will not show the msg on screen - VB.net file called from vb code behind screen
Try
SMTP.Send(Mail)
Retry = True
Catch ex As Exception
If Not Retry Then
MsgBox("Failed to send email reply to _
" & Mail.To.ToString() & "."c, vbOKOnly, "Title")
MsgBox("Exception: " & ex.Message, vbOKOnly, "Title")
Exit Function
End If
Retry = False
Finally
Mail.Dispose()
End Try
This will - Placed as vb code behind screen:
BodyTxt = DC.ValidateFields(Request.Form("CoName"), Request.Form("email"))
If Len(BodyTxt) > 0 Then
Session("ErrText") = BodyTxt
MsgBox(BodyTxt, vbOKOnly, "Stemme")
Exit Sub
End If
Herman
Say no to macros
Try
SMTP.Send(Mail)
Retry = True
Catch ex As Exception
If Not Retry Then
MsgBox("Failed to send email reply to _
" & Mail.To.ToString() & "."c, vbOKOnly, "Title")
MsgBox("Exception: " & ex.Message, vbOKOnly, "Title")
Exit Function
End If
Retry = False
Finally
Mail.Dispose()
End Try
This will - Placed as vb code behind screen:
BodyTxt = DC.ValidateFields(Request.Form("CoName"), Request.Form("email"))
If Len(BodyTxt) > 0 Then
Session("ErrText") = BodyTxt
MsgBox(BodyTxt, vbOKOnly, "Stemme")
Exit Sub
End If
Herman
Say no to macros