Email Code: Error: "SendUsing" invalid

misskaos · October 4th, 2006, 12:35 PM

I started to post this under the post that already states "email code" but i decided to post this separately--being that I'm not sure what it is he was/is trying to do and we could be asking about two different things. But if not, maybe this will help him too.

So, I'm trying to have an email sent to certain ppl when a new form is created on my page. Everything seems to be working fine, but when I hit submit I get this error regarding my e-mail object...

Error Type:
CDO.Message.1 (0x80040220)
The "SendUsing" configuration value is invalid.
/testecp1/postModify1.asp, line 142

I'd be getting the same msg on my other page that sends an email when a new form is created but I commented it out. This is what I have:

[...code...]PostNew1.asp[...code...]

pRS.open "INSERT INTO ecpForms (ecpNumber, ecpTitle, ecpFilename, ecpOriginator, ecpDateDistributed, ecpDateDue) VALUES ('" & pEcpNumber & "', '" & pEcpTitle & "', '" & pEcpFilename & "', '" & pEcpOriginator & "', '" & pEcpDateDistributed & "', '" & pEcpDateDue & "') ", pConnection

    response.write "Success. File saved to " & o.FileFullPath

    emailMessage = "Do not reply. This is an automatic email." & Chr(13)
    emailMessage = emailMessage & "ECP Number: " & pEcpNumber & Chr(13)
    emailMessage = emailMessage & "ECP Title: " & pEcpTitle & Chr(13) & Chr(13)
    emailMessage = emailMessage & "New ECP form just posted on forum." & Chr(13) & Chr(13)
    emailMessage = emailMessage & "Check details on https.com"

    Set objMail = Server.CreateObject("CDO.Message")
    objMail.From = Session("UserEmail")
    objMail.Subject = "ECP Number: " & pEcpNumber & " -- " & pEcpTitle

    objMail.To = "someemails.mil"
    'objMail.To = "someemails.net"
    objMail.Cc = "someemails.com"
    objMail.Bcc = "someemails.com"

    objMail.TextBody = emailMessage
' objMail.Send

    Response.Redirect("viewAll1.asp")

else
    response.write "Failed due to the following error: " & o.Error
end if

end if
set o = nothing

[...code...]

******************************
[...code...] PostModify1.asp [...code...]

if mEcpSubmitEmail = "" then
mEcpSubmitEmail = False
end if
if mEcpCostSubmitEmail = "" then
mEcpCostSubmitEmail = False
end if

if (mEcpMV22PilotSubmit = "True") and (mEcpMV22AircrewSubmit = "True") and (mEcpMV22MaintenanceSubmit = "True") and (mEcpCV22AircrewSubmit = "True") and (mEcpCV22MaintenanceSubmit = "True") and (mEcpSubmitEmail = "False") then

allComments = "Comments for all tracks posted. The ECP Form is ready for costing." & Chr(13)

emailMessage = "Do not reply. This is an automatic email." & Chr(13)
emailMessage = emailMessage & "ECP ID: " & mECPID & Chr(13)
emailMessage = emailMessage & "ECP Number: " & mEcpNumber & Chr(13)
emailMessage = emailMessage & "ECP Title: " & mEcpTitle & Chr(13) & Chr(13)
emailMessage = emailMessage & allComments & Chr(13)
emailMessage = emailMessage & "Check details on https.com"

Set objMail = Server.CreateObject("CDO.Message")
objMail.From = Session("UserEmail")
objMail.Subject = "ECP Number: " & mEcpNumber & " All comments have been posted"
objMail.To = "[email protected]"
objMail.Cc = "[email protected]"
objMail.Bcc = "[email protected]"

objMail.TextBody = emailMessage
objMail.Send

mEcpSubmitEmail = True

end if

%>

[...end code...]

If I can just get this lasttttt little gliche to work that's it for this particular program! Thanks a bunch! :)

Toni Burgess
[email protected]

dparsons · October 4th, 2006, 01:01 PM

If memory serves me thats a CDONTS error; in any case it looks like you took CDONTS code and just changed the library to CDO, you might want to try something along these lines:

    Dim schema
    Dim cdoConf
    Dim cdoMsg

    schema = "http://schemas.microsoft.com/cdo/configuration/"

    Set cdoConf = CreateObject("CDO.Configuration")

    With cdoConf.Fields
        .Item(schema & "sendusing") = 2 'The CDO Sendusing Port
        .Item(schema & "smtpserver") = "MailServerGoes here"
        .update
    End With

    Set cdoMsg = CreateObject("CDO.Message")

    With cdoMsg
        Set .Configuration = cdoConf
        .From = "[email protected]"
        .To = "[email protected]"
        .Subject = "Subject"
        .TextBody = "Msg Body"
        .Send
    End With

    Set cdoMsg = Nothing

--Stole this from a moderator

I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

misskaos · October 4th, 2006, 02:16 PM

Dude you are most definitely a programmers miracle!

Quote:

quote:Originally posted by dparsons
If memory serves me thats a CDONTS error; in any case it looks like you took CDONTS code and just changed the library to CDO, you might want to try something along these lines:

    Dim schema
    Dim cdoConf
    Dim cdoMsg

    schema = "http://schemas.microsoft.com/cdo/configuration/"

    Set cdoConf = CreateObject("CDO.Configuration")

    With cdoConf.Fields
        .Item(schema & "sendusing") = 2 'The CDO Sendusing Port
        .Item(schema & "smtpserver") = "MailServerGoes here"
        .update
    End With

    Set cdoMsg = CreateObject("CDO.Message")

    With cdoMsg
        Set .Configuration = cdoConf
        .From = "[email protected]"
        .To = "[email protected]"
        .Subject = "Subject"
        .TextBody = "Msg Body"
        .Send
    End With

    Set cdoMsg = Nothing

--Stole this from a moderator

I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

Toni Burgess
[email protected]

dparsons · October 4th, 2006, 02:18 PM

Naw, just experienced; glad it worked out for you.

--Stole this from a moderator

I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

misskaos · October 4th, 2006, 02:25 PM

;)

Quote:

quote:Originally posted by dparsons
Naw, just experienced; glad it worked out for you.

--Stole this from a moderator

I will only tell you how to do it, not do it for you.
Unless, of course, you want to hire me to do work for you.

Toni Burgess
[email protected]

hussain.022 · December 9th, 2009, 10:57 AM

the sendusing configuration value is invalid.

please help

mails are going from my local server when i update the code in live server
its say the sendusing configuration value is invalid.

please help me

dparsons · December 9th, 2009, 11:34 AM

Show me the code you are using. The only thing you could do to my above code is add the port info so:

vbscript Code:

With cdoConf.Fields 
        .Item(schema & "sendusing") = 2 'The CDO Sendusing Port
        .Item(schema & "smtpserver") = "MailServerGoes here" 
        .Item(schema & "smtpserverport") = "MailServer Port Goes Here"  
        .update 
    End With

This shouldn't matter, the default value is 25 which is the default port that SMTP listens on. You can try it however.

hth.
-Doug

nidhi2106 · October 25th, 2010, 03:16 AM

hey i have the same problem..
it is working on local and i am getting the mail too but it is not working on sever.

my code is as below..

hello friends i have put

<customErrors mode="Off"/> in my web.config.
now i am getting new error.
it is saying

The "SendUsing" configuration value is invalid.

you can check it here on submitting enquiry information.

http://www.mascotbpo.com/Contact.aspx

i have written this code to send information on my email id

Code:


using System.Web.Mail;
using System.Net.Mail;


public partial class Contact : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {

    }
    protected void send(object sender, EventArgs e)
    {

//send mail

        System.Web.Mail.MailMessage msgMail = new System.Web.Mail.MailMessage();

        msgMail.To = "[email protected]";
        msgMail.From = email.Text;
        msgMail.Subject = "Enquiry";
        msgMail.BodyFormat = MailFormat.Html;
        string strBody = "<html><body><b> Enquiry</b>" +
              " <font><p></p><p><b>Name:</b> " + name.Text + "</p><p><b>Compamy:</b> " + company.Text + "</p><p><b>Contact: </b>" + txtcontact.Text + "</p><p><b>Email: </b>" + email.Text + "</p><p><b>Address: </b>" + address.Text + "</p><p><b>City: </b>" + city.Text + "</p><p><b>Message: </b>" + message.Text + "</p></font></body></html>";
        msgMail.Body = strBody;

        SmtpMail.Send(msgMail);

        Response.Redirect("enquiry.aspx");


    }
}

and there is one more error on career page

Invalid mail attachment 'css.txt'.

http://www.mascotbpo.com/Career.aspx

i have written this code to attach txt or doc file in mail and send mail.

Code:


using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Web.Mail;
using System.Net.Mail;

public partial class career : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {

    }
    protected void btnUpload_Click(object sender, EventArgs e)
    {
      
        string filePath = FileUpload1.PostedFile.FileName;
        string filename = Path.GetFileName(filePath);
        string ext = Path.GetExtension(filename);
        string contenttype = String.Empty;

       string strfilename = Path.GetFileName(FileUpload1.PostedFile.FileName);

      System.Web.Mail.MailMessage msgMail = new System.Web.Mail.MailMessage();

        msgMail.To = "[email protected]";
        msgMail.From = txtemail1.Text;
        msgMail.Subject = "Career with MascotBPO";

        msgMail.BodyFormat = MailFormat.Text;
        msgMail.Body = "Please find attached file for my resume.";
        msgMail.Attachments.Add(new MailAttachment(filePath));

        SmtpMail.Send(msgMail);

//Set the contenttype based on File Extension
        switch (ext)
        {
            case ".doc":
                contenttype = "application/vnd.ms-word";
                break;
            case ".docx":
                contenttype = "application/vnd.ms-word";
                break;
            case ".txt":
                contenttype = "text file";
                break;
        }


        if (contenttype != String.Empty)
        {
     
            Stream fs = FileUpload1.PostedFile.InputStream;
            BinaryReader br = new BinaryReader(fs);
            Byte[] bytes = br.ReadBytes((Int32)fs.Length);
 Response.Redirect("career1.aspx");
        }

        else
        {
            lblMessage.ForeColor = System.Drawing.Color.Red;   
            lblMessage.Text = "File format not recognised." +
              " Upload Text/Word formats";
          
        }

      



    }
}

please help me..