problem sending email with CDO

pinochio53 · #1 (**permalink**) 04-11-05, 12:04 AM

im trying to send a CDO message and it works for most of the ASP pages i have, except for one particular one.
im trying to attach it to the message. it worked fine for 3 weeks, but now it wont work anymore. help!!!

MadDog · #2 (**permalink**) 04-11-05, 01:59 AM

In order for anyone to help you we need more details!

Whats going on? Any errors? If so what is the code giving the error?

pinochio53 · #3 (**permalink**) 04-11-05, 08:13 AM

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="inv.database@chartercom.com"
myMail.To="ayodeji.ojo@chartercom.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "http://ksusmiis02/parts_db/project4/testing.asp"
myMail.Send

pinochio53 · #4 (**permalink**) 04-11-05, 08:14 AM

<%@LANGUAGE="VBSCRIPT"%>

<%
CParam = Cstr(Request("ID"))
%>
<%
sExport = Request.QueryString("export") ' Load Export Request
If sExport = "html" Then

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="inv.database@chartercom.com"
myMail.To="ayodeji.ojo@chartercom.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "http://ksusmiis02/parts_db/project4/testing.asp"
myMail.Send
' Printer Friendly
End If
%>

<%
Dim Cart_info
Dim Cart_info_numRows

Set Cart_info = Server.CreateObject("ADODB.Recordset")
Cart_info.ActiveConnection = MM_access_conn_STRING
Cart_info.Source = "SELECT * FROM Cart_Full WHERE ID = " + Replace(CParam, "'", "''")
Cart_info.CursorType = 0
Cart_info.CursorLocation = 2
Cart_info.LockType = 1
Cart_info.Open()

Cart_info_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Cart_info_numRows = Cart_info_numRows + Repeat1__numRows
%>


<html>
<head>
<title></title>
<style type="text/css">

</style>
</head>
<body topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0" bgcolor="#ffffff">
<table width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF">

<tr bgcolor="#FFFFFF">
<td width="62" height="21" valign="middle" class="style6">Requestor:</td>

<td colspan="2" valign="middle" class="style6"><%=(Cart_info.Fields.Item("Requesto r").Value)%></td>
<td width="31" valign="middle" class="style6">GLID:</td>
<td valign="middle" class="style6"><%=(Cart_info.Fields.Item("Glid No").Value)%></td>
<td colspan="3" valign="middle" class="style6">Project #/Project Name : </td>
<td colspan="3" valign="middle"><span class="style6"><%=(Cart_info.Fields.Item("Project No").Value)%>/<%=(Cart_info.Fields.Item("Project Name").Value)%></span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" colspan="2" valign="middle" class="style6">Contractor:</td>
<td width="136" valign="middle" class="style6"><%=(Cart_info.Fields.Item("Contract or").Value)%></td>
<td></td>
<td width="27"></td>
<td width="36" valign="middle" class="style6">ID #: </td>
<td width="84" valign="middle" class="style6"><%=(Cart_info.Fields.Item("ID").Val ue)%></td>
<td width="18"> </td>
<td width="46"></td>
<td width="157"></td>
<td width="100%"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21" colspan="2" valign="middle" class="style6">Pick Up Date : </td>
<td valign="middle" bgcolor="#EEEEEE" class="style6"><%=( "Pick up on the next Friday after " & Cart_info.Fields.Item("Date").Value)%></td>
<td></td>
<td></td>
<td> </td>
<td> </td>
<td> </td>
<td rowspan="2" align="center" valign="middle" class="style6">Print Order </td>
<a href="testing.asp?ID=<%=CParam%>&export=html" target="_parent">
<td rowspan="2" align="center" valign="middle" class="style8">Complete Order </td></a>
<td> </td>
</tr>
<tr><td height="5"><img src="/spacer.gif" alt="" width="61" height="1"></td><td><img src="/spacer.gif" alt="" width="29" height="1"></td><td><img src="/spacer.gif" alt="" width="131" height="1"></td><td><img src="/spacer.gif" alt="" width="31" height="1"></td><td><img src="/spacer.gif" alt="" width="25" height="1"></td><td><img src="/spacer.gif" alt="" width="34" height="1"></td><td><img src="/spacer.gif" alt="" width="84" height="1"></td><td><img src="/spacer.gif" alt="" width="16" height="1"></td><td><img src="/spacer.gif" alt="" width="46" height="1"></td><td><img src="/spacer.gif" alt="" width="153" height="1"></td><td></td></tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="2" >


<tr bgcolor="#CCCCCC" border="1">
<td height="25" align="center" valign="middle" bgcolor="#EEEEEE" class="style1 style3">Inventory # </td>
<td align="center" valign="middle" bgcolor="#EEEEEE" class="style4">Description</td>
<td align="center" valign="middle" bgcolor="#EEEEEE" class="style4">BIN Location </td>
<td align="center" valign="middle" bgcolor="#EEEEEE" class="style4">Part # </td>
<td align="center" valign="middle" bgcolor="#EEEEEE" class="style4">Amount</td>
<td width="128" align="center" valign="middle" bgcolor="#EEEEEE" class="style4">Issued</td>
<td width="128" align="center" valign="middle" bgcolor="#EEEEEE" class="style4">Back Order </td>
<td width="100%" align="center" valign="middle" bgcolor="#EEEEEE" class="style4"> </td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Cart_info.EOF)) %>
<tr>
<td class="style6"><%=(Cart_info.Fields.Item("Inventor y").Value)%></td>
<td class="style6"><%=(Cart_info.Fields.Item("Descript ion").Value)%></td>
<td class="style6"><%=(Cart_info.Fields.Item("Location ").Value)%></td>
<td class="style6"><%=(Cart_info.Fields.Item("PartNo") .Value)%></td>
<td class="style6"><%=(Cart_info.Fields.Item("Amount") .Value)%></td>
<td class="style6"><%=(Cart_info.Fields.Item("Issued") .Value)%></td>
<td><%=(Cart_info.Fields.Item("Back Order").Value)%></td>
<td> </td></tr><tr><td height="7"><img src="/spacer.gif" alt="" width="129" height="1"></td><td><img src="/spacer.gif" alt="" width="136" height="1"></td><td><img src="/spacer.gif" alt="" width="119" height="1"></td><td><img src="/spacer.gif" alt="" width="111" height="1"></td><td><img src="/spacer.gif" alt="" width="117" height="1"></td><td><img src="/spacer.gif" alt="" width="110" height="1"></td><td><img src="/spacer.gif" alt="" width="36" height="1"></td><td></td></tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Cart_info.MoveNext()
Wend
%>
</table>

</body>
</html>
<%
Cart_info.Close()
Set Cart_info = Nothing
%>

#5 (**permalink**) 04-11-05, 10:05 AM

we still cannot help much with out any error messages

pinochio53 · #6 (**permalink**) 04-11-05, 10:35 AM

Technical Information (for support personnel)

Error Type:
(0x8004021A)
/parts_db/project4/testing.asp, line 15

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)

Page:
GET /parts_db/project4/testing.asp

Time:
Monday, April 11, 2005, 10:32:33 AM

and it only does that for this particular file, but works for others

protecweb · #7 (**permalink**) 04-11-05, 01:00 PM

You cant add an attachment like that as far as i am aware. You need to enter a physical drive path to a valid file.

e.g:

myMail.AddAttachment "http://ksusmiis02/parts_db/project4/testing.asp"

is wrong.

pinochio53 · #8 (**permalink**) 04-11-05, 01:43 PM

i have been able to add it until 3 days ago.

pinochio53 · #9 (**permalink**) 04-11-05, 05:41 PM

thanks for the help guys, i figured it out

nedums_b · #10 (**permalink**) 05-16-05, 11:06 PM

Hi,

Me got the same problem ?
Could you please let me know how did you over come this?
is that by extending the script timeout?

I appriciate your help

Thanks
Nedums