|
Home > Archive > IIS ASP > March 2006 > how to send email from an asp page ?
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
how to send email from an asp page ?
|
|
| Sivaswami Jeganathan 2006-03-25, 11:59 am |
| how to send email from an asp page ?
--
Sivaswami Jeganathan
| |
|
|
"Sivaswami Jeganathan" <j_sivaswami@hotmail.com> wrote in message
news:u7OFvjzTGHA.5500@TK2MSFTNGP12.phx.gbl...
> how to send email from an asp page ?
>
> --
> Sivaswami Jeganathan
>
>
try this, exchange server example below, remote server below that
' via stmp
Sub sendEmail(whoTo, subject, body)
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPickup = 1
Const strPickup = "c:\Inetpub\mailroot\pickup"
Set iMsg = CreateObject("CDO.Message")
Set iConf = iMsg.Configuration
With iConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")
= strPickup
.Update
End With
With iMsg
.To = whoTo
.From = "Webmaster@mawa.org.au"
.subject = subject
.HTMLBody = body
.Send
End With
End Sub
'via exchange pickup
Sub sendEmail(whoTo, subject, body)
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPickup = 1
Const strPickup = "c:\Program Files\Exchsrvr\Mailroot\vsi 1\PickUp"
Set iMsg = CreateObject("CDO.Message")
Set iConf = iMsg.Configuration
With iConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")
= strPickup
.Update
End With
With iMsg
.To = whoTo
.From = "Webmaster@mawa.org.au"
.subject = subject
.HTMLBody = body
.Send
End With
End Sub
'via remote server
Sub sendEmail(whoTo, subject, body)
Dim iMsg
Dim iConf
Dim Flds
Const mailServer = "yourmailserver.com.au"
Const cdoSendUsingPickup = 2
'Const strPickup = "c:\Program Files\Exchsrvr\Mailroot\vsi 1\PickUp"
Const strPickup = "c:\Inetpub\mailroot\pickup"
Set iMsg = CreateObject("CDO.Message")
Set iConf = iMsg.Configuration
With iConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
mailServer
.Update
End With
With iMsg
.To = whoTo
.From = "Webmaster@mawa.org.au"
.subject = subject
.HTMLBody = body
.Send
End With
End Sub
| |
|
|
|
|
|