Hi,

I am using the following code to send mails

<%


Const cdoSendUsingPort = 2
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
With MyMail
.Configuration = iConf
.From = "jim@jim.com"
.To = Request("sendto")
.Subject = "Subject"
.TextBody = Request("body")
.Send()
End With
Set MyMail = Nothing


%>

Now this all works fine but i would like to include a footer within the email body but am not sure how i go about this? I have tried things like...

.TextBody = Request("body") & "email from your website"

that sent but it did not include the email from your website bit. I am quite new to this and any help would be greatly appreciated.

Thanks,

James

Also tried this for the number but this also does not work

Dim Number

Number = Request("sendto")
Number = Number & "@myemailsmsnotification.com"

and it does not deliver??

What happens when you response.write Number after the second line (the & "@myemailsmsnotification.com" line?)

As far as the other code goes, I'd try concatenating the two things into an Email_Body variable, and setting .TextBody to Email_Body .

Thats what i have done for the Number variable. I want it so that i can type in my number on the a form and then it will send to this code attachtin an email address to the number. I'm not too bothered about the TextBody at the moment. But that should have worked.. shouldnt it?

Could someone please tell me where i am going wrong with this?? it looks like it should deliver to me but it's not attaching the e-mail address to the sendto.. completey confused


<%


Const cdoSendUsingPort = 2
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

Dim MyMail
Dim Number

Set MyMail = Server.CreateObject("CDO.Message")
With MyMail




Number = Request("sendto")
Number = Number & "@example.com"


.Configuration = iConf
.From = "SMS@Notification.com"
.To = Number
.Subject = "Subject"
.TextBody = Request("body")
.Send()
End With
Set MyMail = Nothing


%>

phreakyphonez: I don't think you understood me. My bad for not making it clear, though.

First off, you really shouldn't use the variable Number anyway, since it's a reserved word (Phone_Number would be better).

Second, you've got two lines where the Phone_Number variable are concatenated. Have you tried using Response.Write Phone_Number to see what the resulting email is that's created? This way, you can see what's being created vs. what you expect. Response.Write is great that way if you use it.

The other issue pertains to SMS. If you're using a phone number to send text messages to and an email protocol to do it, it may not work (I don't know, though...I've never tried.) What happens when you use an ordinary email?

Hi Adam. I did get it working fine but yes i think i will change Number to something else. Thanks for your help on this, greatly appreciated.