Отправка Почтового кода в ASP - PullRequest
Новая
       12

Отправка Почтового кода в ASP

0 голосов
/ 21 апреля 2009

Я дал один файл HTML. Когда кто-то заполняет форму и отправляет ее, он должен отправить электронное письмо на свой почтовый идентификатор. Как написать код для этого в ASP?

Ваше имя: * E-mail: * Номер телефона: Ваше сообщение: *
  • Гнанияр Зубаир

Ответы [ 2 ]

3 голосов
/ 21 апреля 2009

Используйте CDOSYS так: - 

Dim oMsg : Set oMsg = CreateObject("CDO.Message")

oMsg.From = "Me <me@mymail.myserver.com>"
oMsg.To = "Bloke <bloke@somewere.com>"
oMsg.Subject = "Test"
oMsg.HTMLBody = "<html><body>Hello World</body></html>"

oMsg.Send

Конечно, вам нужно получить поле «Кому» из какого-либо постоянного хранилища, где вы храните профиль пользователя и предоставляете тему и изображения тела из опубликованных полей.

Вам также необходимо настроить параметры почты в приложении IIS для предоставления конфигурации по умолчанию для объекта CDO.Message. В противном случае вам нужно самостоятельно настроить параметры почты, используя такую ​​функцию: - 

Function GetConfiguration()
    Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
    Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"

    Const cdoSendUsingPickup = 1
    Const cdoSendUsingPort = 2

    Dim GetConfiguration : SetGetConfiguration = CreateObject("CDO.Configuration")

    With GetConfiguration.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "mysmtp.myserver.com"
        .Item(cdoSMTPServerPort) = 25
        .Update
    End With

End Function

Затем добавьте эту строку в основную часть кода перед вызовом send: - 

Set oMsg.Configuration = GetConfiguration()

Просто настройте содержимое GetConfiguration, чтобы использовать имя хоста SMTP-серверов.

Примечание: не используйте CDONTS, его не рекомендуется.

1 голос
/ 21 апреля 2009

Я предполагаю, что вы используете ASP 3.0, вы можете использовать Cdonts.dll

код: 

cBody = Request.Form("Body") 
cPara = = Request.Form("to") 

<%@ Language=VBScript%> 
<html> 

<head> 
   <title>Email Sending</title> 

</head> 
<body>
<% 
Dim cBody, n 

For Each n In Request.Form 
    cBody = cBody & n & ": " & Request.Form(n) & chr(13) 
Next 

Set oCDO = Server.CreateObject("CDONTS.NewMail") 

oCDO.From = "fernan@tudominio.com" 
oCDO.To = "foc@tudominio.com" 
oCDO.Subject = "Subject" 
oCDO.Body = cBody 
'oCDO.Cc = "resal@tudominio.com;webmaster@tudominio.com" 
oCDO.Bcc = "quinqui@tudominio.com" 
'oCDO.MailFormat = 0 

oCDO.Send 

Set oCDO = Nothing 
Response.Write "¡Email Sent!!" 

%> 
</body> 
</html>
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...