VBNet - Форум - Работа с почтой на VBScript

Вопрос: Работа с почтой на VBScript Добавлено: 22.04.03 11:46

Автор вопроса: Tolik

Подскажите как отправить письмо из скрипта, не используя почтовые программы.

Если можно то пример.

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #1

Добавлено: 22.04.03 14:50

Все в принципе зависит от того, какой компонент у хостера этим занимается. У меня из ASP-кода это делается таким образом:

'Properties:

' AddressFrom(strValue) write

' AddressTo(strValue) write

' Subject(strValue) write

' Body(strValue) write

' Host(strValue) write

'Methods:

' Send()

class EmailSender

private objMail

private strFrom

private strTo

private strSubject

private strBody

private strHost

Private Sub Class_Initialize

Set objMail = Server.CreateObject("smtprus.smtprus.1")

strFrom = "hospitex@hospitex.ru"

strTo = "hospitex@hospitex.ru"

strHost = "localhost"

End Sub

Private Sub Class_Terminate

If IsObject(objMail) Then

Set objMail = Nothing

End If

End Sub

public property let AddressFrom(strValue)

strFrom = strValue

end property

public property let AddressTo(strValue)

strTo = strValue

end property

public property let Subject(strValue)

strSubject = strValue

end property

public property let Body(strValue)

strBody = strValue

end property

public property let Host(strValue)

strHost = strValue

end property

public sub Send()

objMail.Host = strHost

objMail.From = strFrom ' Îò êîãî

objMail.To = strTo ' Êîìó

objMail.Subject = strSubject ' Òåìà ïèñüìà

objMail.Body = strBody ' Ñîäåðæàíèå

objMail.SendLetter

end sub

end class

То, что офрмлено в виде класса - пусть не пугает, мне просто так удобнее. А вообще, просто как и везде - объявляешь объект, присваиваешь свойствам значения и шлешь. И вся премудрость. Главное знать, какой компонент у хостера и его свойства и методы. Обо всем этом у него (хостера) и спроси

Ответить

Номер ответа: 2
Автор ответа:

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #2

Добавлено: 22.04.03 15:03

Сорри, не убрал асп-ные теги и серв их и выполнил

Повторяю уже без них

'Properties:

' AddressFrom(strValue) write

' AddressTo(strValue) write

' Subject(strValue) write

' Body(strValue) write

' Host(strValue) write

'Methods:

' Send()

class EmailSender

private objMail

private strFrom

private strTo

private strSubject

private strBody

private strHost

Private Sub Class_Initialize

Set objMail = Server.CreateObject("smtprus.smtprus.1")

strFrom = "hospitex@hospitex.ru"

strTo = "hospitex@hospitex.ru"

strHost = "localhost"

End Sub

Private Sub Class_Terminate

If IsObject(objMail) Then

Set objMail = Nothing

End If

End Sub

public property let AddressFrom(strValue)

strFrom = strValue

end property

public property let AddressTo(strValue)

strTo = strValue

end property

public property let Subject(strValue)

strSubject = strValue

end property

public property let Body(strValue)

strBody = strValue

end property

public property let Host(strValue)

strHost = strValue

end property

public sub Send()

objMail.Host = strHost

objMail.From = strFrom ' Îò êîãî

objMail.To = strTo ' Êîìó

objMail.Subject = strSubject ' Òåìà ïèñüìà

objMail.Body = strBody ' Ñîäåðæàíèå

objMail.SendLetter

end sub

end class

Ответить

Страница: 1 |