привет ребята
хотел отправит емаилл через вб.нет проект
но получаю ошибку
1.
2.
3.
Server Error in '/' Application.
The "SendUsing" configuration value is invalid.
коннекшн отдично работает
дает меня данные из базу в дропдоунлист
но далше не работает
код такой
source
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="index.aspx.vb" Inherits="bucekproj2.index" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
Text="Etrafli"
runat="server"
/>
<asp:Label
id="lblMessage"
Font-Bold="true"
Text="Movzu secin ve oz emailinizi daxil edin"
runat="server"
/>
<asp:Panel
id="pnlRequest"
Width="90%"
runat="server"
> <asp:DropDownList
id="ddlTopics"
runat="server"
DataTextField="MoreInfoCategory"
DataValueField="MoreInfoEmailAdress"
></asp:DropDownList>
<asp:TextBox
id="txtName"
Columns="25"
Maxlength="100"
runat="server"
></asp:TextBox>
<asp:TextBox
id="txtEmailAddress"
columns="25"
MaxLength="100"
runat="server"
/>
<asp:RequiredFieldValidator
id="rfvEmailAddres"
ControltoValidate="txtEmailAddress"
Display="Dynamic"
Font-Name="Arial"
Font-Size="10pt"
runat="server">Emaili Mutleg Doldurun</asp:RequiredFieldValidator>
<asp:TextBox
id="txtComment"
Columns="40"
Rows="5"
runat="server"
TextMode="MultiLine"
/>
<asp:Button
id="butOK"
text="OK"
Onclick="SubmitBtn_Click"
runat="server"
/>
</asp:Panel>
</div>
</form>
</body>
</html>
aspx.vb
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Mail
Public Class index
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim DBConn As SqlConnection
Dim DBCommand As SqlDataAdapter
Dim DSpageData As New DataSet
DBConn = New SqlConnection("Data Source=.;Initial Catalog=test1;Integrated Security=True")
DBCommand = New SqlDataAdapter("select MoreInfoCategory,MoreInfoEmailAdress from MoreInfoCategories Order by MoreInfoCategory", DBConn)
DBCommand.Fill(DSpageData, _
"Categories")
ddlTopics.DataSource = _
DSpageData.Tables("Categories").DefaultView
ddlTopics.DataBind()
End If
End Sub
Protected Sub SubmitBtn_Click(sender As Object, e As EventArgs) Handles butOK.Click
Dim TheMessage As String
Dim TheMailMessage As New MailMessage
TheMessage = "Etrafli Informasiya Ucun! " & Chr(13) _
& "Ad: " & txtName.Text & Chr(13) _
& "Elektron Poct Unvani: " & txtEmailAddress.Text & Chr(13) _
& "Movzu: " & ddlTopics.SelectedItem.Text _
& Chr(13) _
& "Qeydler: " & txtComment.Text
TheMailMessage.From = txtEmailAddress.Text
TheMailMessage.To = ddlTopics.SelectedItem.Value
TheMailMessage.Subject = "Elave informasiyalar Sorgusu"
TheMailMessage.Body = TheMessage
SmtpMail.Send(TheMailMessage)
pnlRequest.Visible = False
lblMessage.Text = "Sizin Sorgu Gonderildi. " _
& "Biz En qisa vaxta sizin sorgunu cavablayacagiq."
End Sub
Private Function Smtp_Server() As Object
Throw New NotImplementedException
End Function
End Class
