How do you reference the user name and password and port for the mail server using ASPEmail and where do I need to put it? Code Example:
<%
Dim QuoteMail, QuoteBody
Set QuoteMail = Server.CreateObject("Persits.MailSender")
QuoteBody="The purposed project category is... " & vbcrlf
'yada yada yada
'yada yada yada
'yada yada yada
'yada yada yada
QuoteMail.Host = "smtp.mailserver.com" ' Specify a valid SMTP server
QuoteMail.From = "Quotes@mailserver.com" ' Specify sender's address
QuoteMail.FromName = "Illusional web" ' Specify sender's name
QuoteMail.AddAddress "clients@email.com", "Quote a client on Illusional web"
QuoteMail.AddAddress "myemail@bohica-designs.com", "Webmaster"
QuoteMail.AddReplyTo request.form("TheEmail")
QuoteMail.Subject = "A quote for Illusional web"
QuoteMail.Body=QuoteBody
On Error Resume Next
QuoteMail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
set custMail=nothing
%>
Thanks in advance!!!
<%
Dim QuoteMail, QuoteBody
Set QuoteMail = Server.CreateObject("Persits.MailSender")
QuoteBody="The purposed project category is... " & vbcrlf
'yada yada yada
'yada yada yada
'yada yada yada
'yada yada yada
QuoteMail.Host = "smtp.mailserver.com" ' Specify a valid SMTP server
QuoteMail.From = "Quotes@mailserver.com" ' Specify sender's address
QuoteMail.FromName = "Illusional web" ' Specify sender's name
QuoteMail.AddAddress "clients@email.com", "Quote a client on Illusional web"
QuoteMail.AddAddress "myemail@bohica-designs.com", "Webmaster"
QuoteMail.AddReplyTo request.form("TheEmail")
QuoteMail.Subject = "A quote for Illusional web"
QuoteMail.Body=QuoteBody
On Error Resume Next
QuoteMail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
set custMail=nothing
%>
Thanks in advance!!!