sending email using CDONTS

[edifreak]

Hello all,

I'm trying to send a email out once a user completes the register section. I just want to know if the objMail.From = "yo@yo.com"
can be replaced by text instead of email address? so the actual from says a person name instead of the email. I tried declaraing a variable and assigned it a string and it still dont like it..

dim strfrom

strfrom = "From me"

objMail.From = strfrom

help me? TIA

 

[ChrisHirst]

objMail.from = "Friendly Name <emailaddress>"

Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.

 

[TRACEYMARYLAND]

There is another component that is newer then CDONTS that does not use SMTP and that speeds up the email..

<%

'Dimension variables
Dim objCDOSYSCon, objCDOSYSMail

'Create the e-mail server object
Set objCDOSYSMail = CreateObject("CDO.Message")
Set objCDOSYSCon = CreateObject("CDO.Configuration")

' 'Internal relay server
'
objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "xxx.xxx.x.xx6"
'
objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
'
objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
'
objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 60
' 'For Windows Authenication
'
objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= "2"

'External tvicorp.com relay server

objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "xx.xx.xx.xxx"

objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25

objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2

objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 60

objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= "1" 'basic authentication

'objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusername")

= "yourname@xxx.com" 'set your username here

'objCDOSYSCon.Fields("

http://schemas.microsoft.com/cdo/configuration/sendpassword")

= "xxxxx" 'set your password here

objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "xxx@xxx.com"
objCDOSYSMail.To = "xxx@xxxx.com"
objCDOSYSMail.Subject = "test email"
objCDOSYSMail.HTMLBody = "this is the body"
objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing


'End Function

%>

 

[edifreak]

ty ChrisHirst. will try that.

also, thanks TRACEYMARYLAND for that script. Will look in to that aswell.