SAMPLE ASP EMAIL CODE AT ADITYA INFOSYSTEMS

Sample CDO message for ASP based mailing component For ASP based mailing component please use CDO message and for upload you may refer to http://www.freeaspupload.net/freeaspupload/download.asp

For ASP based mailing component please use CDO message and for upload you may refer to http://www.freeaspupload.net/freeaspupload/download.asp

Asp Email Coding

Dim iMsg, iConf, Flds, vSub
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'sending email with Google Apps Premium SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "smtpserver") = "server ip"
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "sendusername") = "From mail id"
Flds.Item(schema & "sendpassword") = "password"
Flds.Update

With iMsg
.To = "To mail id"
.From = "from mail id"
.Subject = "Reservation"
.TextBody = "Mail Sent"
Set .Configuration = iConf
.Send
End With
response.Write "Successfully Sent"
set iMsg = nothing
set iConf = nothing
set Flds = nothing

Aditya Infosystems Support / Settings