|
|
Знаете ли Вы, что ... | |
...нарушения правил форума наказываются. Старайтесь их не нарушать. | |
<< Предыдущий совет - Случайный совет - Следующий совет >> |
.NET & ASP.NET Вопросы программирования .NET, ASP.NET, Web Services и других WEB-технологий .NET. |
Ответить |
|
Опции темы | Опции просмотра |
27.07.2006 11:26 | #2 | ||
Привет!
Так, добавляеш в референсесах проекта ссылку на System.Web, далее в юсингах добавляеш using System.Web.Mail; а дальше приведен код ниже: Код:
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Web.Mail; namespace MailTest { * * public partial class Form1 : Form * * { * * * * public Form1() * * * * { * * * * * * InitializeComponent(); * * * * } * * * * private void button1_Click(object sender, EventArgs e) * * * * { * * * * * * MailMessage mailmsg = new MailMessage();* * * * * * * * * * * * * * * * * * * * * * * * * * * * * // Создается объект класса MailMessage * * * * * * mailmsg.To = "oakrom@cppmp.uz";* * * * * * * * * * * * * * * * * * * * * * *// Инициализия свойства То, это адрес кому направляется письмо * * * * * * mailmsg.From = "oakrom@gmail.com";* * * * * * * * * * * * * * * * * *// Инициализия свойства From, это адрес от кого отправляется письмо* * * * * * * * * * * * mailmsg.Body = "Это тело письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * mailmsg.Subject = "Тема письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * mailmsg.BodyFormat = System.Web.Mail.MailFormat.Text;* * * * * * * * * * * * * * * * * * * * * * * * * *//Формат редактирования содержания письма (Стиль) * * * * * * * * * * * * System.Web.Mail.SmtpMail.SmtpServer = "Айпи адрес сервера или имя сервера"; * * * * * * try * * * * * * { * * * * * * * * System.Web.Mail.SmtpMail.Send(mailmsg);* * * * * * * * * * * * * * * * * * * * * * * *// Здесь и происходит отправление письма * * * * * * } * * * * * * catch(Exception ex) * * * * * * { * * * * * * * * MessageBox.Show(ex.Message);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //Отлавливаем ошибку (Если она конечно возникнет) * * * * * * } * * * * } * * } } Код:
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Web.Mail; namespace MailTest { * * public partial class Form1 : Form * * { * * * * public Form1() * * * * { * * * * * * InitializeComponent(); * * * * } * * * * private void button1_Click(object sender, EventArgs e) * * * * { * * * * * * MailMessage mailmsg = new MailMessage();* * * * * * * * * * * * * * * * * * * * * * * * * * * * * // Создается объект класса MailMessage * * * * * * mailmsg.To = "oakrom@cppmp.uz";* * * * * * * * * * * * * * * * * * * * * * *// Инициализия свойства То, это адрес кому направляется письмо * * * * * * mailmsg.From = "oakrom@gmail.com";* * * * * * * * * * * * * * * * * *// Инициализия свойства From, это адрес от кого отправляется письмо* * * * * * * * * * * * mailmsg.Body = "Это тело письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * mailmsg.Subject = "Тема письма";* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * mailmsg.BodyFormat = System.Web.Mail.MailFormat.Text;* * * * * * * * * * * * * * * * * * * * * * * * * *//Формат редактирования содержания письма (Стиль) * * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con...pauthenticate", 1);* * * * * * * * * * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendusername", "Имя пользователя"); * * * * * * mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/con.../sendpassword", "Пароль пользователя"); * * * * * * System.Web.Mail.SmtpMail.SmtpServer = "Айпи адрес сервера или имя сервера"; * * * * * * try * * * * * * { * * * * * * * * System.Web.Mail.SmtpMail.Send(mailmsg);* * * * * * * * * * * * * * * * * * * * * * * *// Здесь и происходит отправление письма * * * * * * } * * * * * * catch(Exception ex) * * * * * * { * * * * * * * * MessageBox.Show(ex.Message);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //Отлавливаем ошибку (Если она конечно возникнет) * * * * * * } * * * * } * * } } |
|||
|
Ответить |
28.07.2006 17:26 | #3 | ||
ЦППМП
ЦППМП
Генеральный Директор
Сообщений: 321
+ 43
163/90
– 0
0/0
|
Прикладываю ексельный файл с макросом. Писал его год назад так что не уверен насчёт валидности сайта, а так было очень интересно "сдёргивать" информацию с сайта в ексель.
ЗЫ. Это не АСП а ВБ скрипт, так что может не по теме топика но как вариант решения. |
||
|
Ответить |
28.07.2006 17:28 | #4 | ||
ЦППМП
ЦППМП
Генеральный Директор
Сообщений: 321
+ 43
163/90
– 0
0/0
|
Блин ексельный файл невозможно отправить, так что отправлю код формы:
Private Sub CommandButton1_Click() Dim nn As New WinHttp.WinHttpRequest 'Dim fso As New Scripting.FileSystemObject Dim strText As String Dim allText As String Dim tmpStr As TextStream Dim i As Long For i = 1 To 1000 'nn.SetProxy , "192.168.90.3:8080" nn.Open "GET", "http://www.rightmove.co.uk/action/ShowBranch?ag_u=" & CStr(i) nn.Send nn.WaitForResponse strText = nn.ResponseText strText = Extract(strText) If strText <> "" Then strText = strText & vbCrLf allText = allText & strText End If Next i Dim fso As New Scripting.FileSystemObject Set tmpStr = fso.CreateTextFile("C:\Part1.csv", False) tmpStr.Write allText tmpStr.Close Set fso = Nothing Set nn = Nothing Label1.Caption = "IT IS DONE" End Sub Private Sub CommandButton2_Click() Dim fso As New Scripting.FileSystemObject Dim txtStrim As TextStream Dim strText As String strText = fso.OpenTextFile("c:\01.txt").ReadAll strText = Extract(strText) MsgBox strText Set fso = Nothing End Sub Private Function Extract(strIn As String) As String If InStr(1, strIn, "We are sorry", vbTextCompare) > 0 Then Exit Function strIn = Mid(strIn, InStrRev(strIn, "<li><strong>", -1, vbTextCompare), 400) strIn = Left$(strIn, InStr(1, strIn, "</ul>", vbTextCompare) - 1) strIn = Replace(strIn, " ", "") strIn = Replace(strIn, "<li><strong>", "") strIn = Replace(strIn, "<br/>", ";") strIn = Replace(strIn, "</strong></li>", "") strIn = Replace(strIn, "<li>", ";") strIn = Replace(strIn, "</li>", "") 'strIn = Replace(strIn, vbCrLf, "") 'strIn = Replace(strIn, vbCr, "") strIn = Replace(strIn, "<strong>", "") strIn = Replace(strIn, "Tel:", "") strIn = Replace(strIn, "Fax:", "") strIn = Replace(strIn, ",;", "") strIn = Replace(strIn, Chr(13), "") strIn = Replace(strIn, Chr(10), "") Extract = strIn 'MsgBox strIn End Function |
||
|
Ответить |
08.08.2006 21:55 | #5 | ||
Большое спасибо за помощ! есть еще вопрос :
как сделать выплывающее меню с сылками! только на html (Можно с применением Java Script); Я откапал один вариант ( AddMenu.Item(......)) но он мне не подходит т.к создает свой контрол ввиде меню с выплывающими окнами! а мне нужно одно выплывающее окно из любого места! |
|||
|
Ответить |
15.08.2006 22:53 | #7 | ||
__________________
|Любой пикчурс или | | кнопка. | при навелении на него должно появляться менюшка и исчезать при неиспользовании с -------------------------------- интервалом несколько сек \--------------------\ | Ссылка 1 | | Ссылка 2 | | Ссылка 3 | | Ссылка 4 | \---------------------\ |
|||
|
Ответить |
Реклама и уведомления | |
18.08.2006 15:45 | #8 | |||
Сообщений: 57
+ 3
9/6
– 0
0/0
|
Цитата:
__________________
http://file.uz/direct/683ce8e6e5e740...669ac6/bar.jpg |
|||
|
Ответить |
10.10.2006 12:40 | #10 | |||
Гость
Сообщений: n/a
|
Добрый день. ничего не понимаю в Asp - достался по наследству такой вод код менюшки. в опере и мозиле меню все развернутым показывает
если не трудно, подскажите как его поправить :cry: Цитата:
|
|||
|
Ответить |
|