|
 |
asp_cdo thread: Trying to use exchange
Message #1 by =?iso-8859-1?Q?Gonzalo_Ruiz_de_Villa_Su=E1rez?= <gonzalo.ruizdevilla@a...> on Thu, 19 Oct 2000 17:04:21 +0200
|
|
I'm new using ASP with Exchange and I can't make it work.
I always get the same error:
----------------------------------------
OLE/Messaging error '000004ea'
[OLE/Messaging - [80040102]]
/administracion/NewMail.asp, line 15
----------------------------------------
What shoud I do to make te code works?
The code is as follows.
<%@ Language=VBScript %>
<%
submit = Request.Form.Item("B1")
Importance = Request.Form.Item("Importance")
Sensitivity = Request.Form.Item("Sensitivity")
bstrProfileInfo = "VERKOLNT" + vbLf + "AnonUser"
if submit = "Send" then
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", false, true, 0, true, bstrProfileInfo
'<-----THIS IS LINE 15
' create a message and fill in its properties
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = Request.Form.Item("Text3")
objMessage.Text = Request.Form.Item("TextArea1")
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = Request.Form.Item("Text1")
objOneRecip.Resolve ' get MAPI to determine complete e-mail address
objMessage.importance = Importance
objMessage.sensitivity = sensitivity
' send the message and log off
objMessage.Send showDialog=false
objSession.Logoff
Set objSession = nothing
Set objMessage = nothing
Set objOneRecip = nothing
URLSTR = "ListMail.asp?FldrName=" & "Inbox"
Response.Redirect (URLSTR)
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body >
<% if submit = "Submit" then
Response.Write("Done: Mail Sent")
else%>
<form name="mnFrm" method="post" action="NewMail.asp">
<P>
<base target="_top">
<TABLE cellPadding=4 cellSpacing=0 class=Nav2>
<TR><td>
</TD>
<td>
Importance
<SELECT id=Importance name=Importance> <OPTION value=0>Low</OPTION>
<OPTION value=1>Normal</OPTION> <OPTION selected
value=2>High</OPTION></SELECT>
Sensitivity
<SELECT id=Sensitivity name=Sensitivity > <OPTION selected
value=0>Normal</OPTION>
<OPTION value=1>Personal</OPTION> <OPTION value=2>Private</OPTION>
<OPTION selected value=3>Confidential</OPTION></SELECT>
</td></tr>
<tr>
<TD>To </TD>
<TD><INPUT name=Text1 size=58 style="HEIGHT: 22px; WIDTH:
500px"></TD></TR>
<TR>
<TD><LABEL>Subject </LABEL></TD>
<TD><INPUT border=0 name=Text3 size=58
style="HEIGHT: 22px; WIDTH: 500px"></TD></TR>
<TR>
<TD vAlign=top><LABEL>Body </LABEL></TD>
<TD><TEXTAREA cols=63 name=TextArea1 rows=30 style="BACKGROUND-COLOR:
white; HEIGHT: 165px; WIDTH: 590px"></TEXTAREA>
<P></P>
<P><BR></P></TD></TR></TABLE><INPUT name=B1 type=submit
value="Send"></P>
</form><%end if %>
</body>
</html>
Thanks in advance
Gonzalo Ruiz de Villa Suárez
Area de Desarrollo Tecnológico
Adesis Netlife, s.l.
c/Jacinto Verdaguer 4, 1ºA
Madrid 28019
España
Tel. + 34 - 915 699 113
Fax. + 34 - 915 655 050
e-mail: gonzalo.ruizdevilla@a...
<mailto:gonzalo.ruizdevilla@a...>
URL: http://www.adesis.com
Message #2 by =?iso-8859-1?Q?Gonzalo_Ruiz_de_Villa_Su=E1rez?= <gonzalo.ruizdevilla@a...> on Wed, 25 Oct 2000 10:04:04 +0200
|
|
I solve it.
If anyone ever has this problem the solution pass through installing MS
Outlook 97 or greater.
Easy if you know it, and a big headache if you don't.
-----Mensaje original-----
De: Gonzalo Ruiz de Villa Suárez [mailto:gonzalo.ruizdevilla@a...]
Enviado el: jueves, 19 de octubre de 2000 17:04
Para: ASP CDO
Asunto: [asp_cdo] Trying to use exchange
I'm new using ASP with Exchange and I can't make it work.
I always get the same error:
----------------------------------------
OLE/Messaging error '000004ea'
[OLE/Messaging - [80040102]]
/administracion/NewMail.asp, line 15
----------------------------------------
What shoud I do to make te code works?
The code is as follows.
<%@ Language=VBScript %>
<%
submit = Request.Form.Item("B1")
Importance = Request.Form.Item("Importance")
Sensitivity = Request.Form.Item("Sensitivity")
bstrProfileInfo = "VERKOLNT" + vbLf + "AnonUser"
if submit = "Send" then
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", false, true, 0, true, bstrProfileInfo
'<-----THIS IS LINE 15
' create a message and fill in its properties
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = Request.Form.Item("Text3")
objMessage.Text = Request.Form.Item("TextArea1")
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = Request.Form.Item("Text1")
objOneRecip.Resolve ' get MAPI to determine complete e-mail address
objMessage.importance = Importance
objMessage.sensitivity = sensitivity
' send the message and log off
objMessage.Send showDialog=false
objSession.Logoff
Set objSession = nothing
Set objMessage = nothing
Set objOneRecip = nothing
URLSTR = "ListMail.asp?FldrName=" & "Inbox"
Response.Redirect (URLSTR)
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body >
<% if submit = "Submit" then
Response.Write("Done: Mail Sent")
else%>
<form name="mnFrm" method="post" action="NewMail.asp">
<P>
<base target="_top">
<TABLE cellPadding=4 cellSpacing=0 class=Nav2>
<TR><td>
</TD>
<td>
Importance
<SELECT id=Importance name=Importance> <OPTION value=0>Low</OPTION>
<OPTION value=1>Normal</OPTION> <OPTION selected
value=2>High</OPTION></SELECT>
Sensitivity
<SELECT id=Sensitivity name=Sensitivity > <OPTION selected
value=0>Normal</OPTION>
<OPTION value=1>Personal</OPTION> <OPTION value=2>Private</OPTION>
<OPTION selected value=3>Confidential</OPTION></SELECT>
</td></tr>
<tr>
<TD>To </TD>
<TD><INPUT name=Text1 size=58 style="HEIGHT: 22px; WIDTH:
500px"></TD></TR>
<TR>
<TD><LABEL>Subject </LABEL></TD>
<TD><INPUT border=0 name=Text3 size=58
style="HEIGHT: 22px; WIDTH: 500px"></TD></TR>
<TR>
<TD vAlign=top><LABEL>Body </LABEL></TD>
<TD><TEXTAREA cols=63 name=TextArea1 rows=30 style="BACKGROUND-COLOR:
white; HEIGHT: 165px; WIDTH: 590px"></TEXTAREA>
<P></P>
<P><BR></P></TD></TR></TABLE><INPUT name=B1 type=submit
value="Send"></P>
</form><%end if %>
---<BR>
Wrox Professional Web Developer Conference II<BR>
http://www.wroxconferences.com/WebDevEurope<BR>
November 29th - December 1st 2000, Amsterdam, Netherlands<BR>
Create powerful distributed web applications serving you now and<BR>
in the future. From ASP+ and VB.NET to XML and SQL Server 2000<BR>
---<BR>
gonzalo.ruizdevilla@a...<BR>
To unsubscribe send a blank email to $subst('Email.Unsub')<BR>
</BODY>
</html>
Thanks in advance
Gonzalo Ruiz de Villa Suárez
Area de Desarrollo Tecnológico
Adesis Netlife, s.l.
c/Jacinto Verdaguer 4, 1ºA
Madrid 28019
España
Tel. + 34 - 915 699 113
Fax. + 34 - 915 655 050
e-mail: gonzalo.ruizdevilla@a...
<mailto:gonzalo.ruizdevilla@a...>
URL: http://www.adesis.com
Message #3 by "David BG" <johnson_bg@h...> on Sat, 28 Oct 2000 21:19:05 GMT
|
|
>>I solve it.
Hi, Gonzalo Ruiz de Villa Suárez
Could you tell more specificlly how you SOLVE IT , regarding the Error line
15 in the following ASP page with outlook ?
----Original Message Follows----
From: Gonzalo Ruiz de Villa Suárez <gonzalo.ruizdevilla@a...>
Reply-To: "ASP CDO" <asp_cdo@p...>
To: "ASP CDO" <asp_cdo@p...>
Subject: [asp_cdo] RE: Trying to use exchange
Date: Wed, 25 Oct 2000 10:04:04 +0200
If anyone ever has this problem the solution pass through installing MS
Outlook 97 or greater.
Easy if you know it, and a big headache if you don't.
-----Mensaje original-----
De: Gonzalo Ruiz de Villa Suárez [mailto:gonzalo.ruizdevilla@a...]
Enviado el: jueves, 19 de octubre de 2000 17:04
Para: ASP CDO
Asunto: [asp_cdo] Trying to use exchange
I'm new using ASP with Exchange and I can't make it work.
I always get the same error:
----------------------------------------
OLE/Messaging error '000004ea'
[OLE/Messaging - [80040102]]
/administracion/NewMail.asp, line 15
----------------------------------------
What shoud I do to make te code works?
The code is as follows.
<%@ Language=VBScript %>
<%
submit = Request.Form.Item("B1")
Importance = Request.Form.Item("Importance")
Sensitivity = Request.Form.Item("Sensitivity")
bstrProfileInfo = "VERKOLNT" + vbLf + "AnonUser"
if submit = "Send" then
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", false, true, 0, true, bstrProfileInfo
'<-----THIS IS LINE 15
' create a message and fill in its properties
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = Request.Form.Item("Text3")
objMessage.Text = Request.Form.Item("TextArea1")
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = Request.Form.Item("Text1")
objOneRecip.Resolve ' get MAPI to determine complete e-mail address
objMessage.importance = Importance
objMessage.sensitivity = sensitivity
' send the message and log off
objMessage.Send showDialog=false
objSession.Logoff
Set objSession = nothing
Set objMessage = nothing
Set objOneRecip = nothing
URLSTR = "ListMail.asp?FldrName=" & "Inbox"
Response.Redirect (URLSTR)
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body >
<% if submit = "Submit" then
Response.Write("Done: Mail Sent")
else%>
<form name="mnFrm" method="post" action="NewMail.asp">
<P>
<base target="_top">
<TABLE cellPadding=4 cellSpacing=0 class=Nav2>
<TR><td>
</TD>
<td>
Importance
<SELECT id=Importance name=Importance> <OPTION value=0>Low</OPTION>
<OPTION value=1>Normal</OPTION> <OPTION selected
value=2>High</OPTION></SELECT>
Sensitivity
<SELECT id=Sensitivity name=Sensitivity > <OPTION selected
value=0>Normal</OPTION>
<OPTION value=1>Personal</OPTION> <OPTION value=2>Private</OPTION>
<OPTION selected value=3>Confidential</OPTION></SELECT>
</td></tr>
<tr>
<TD>To </TD>
<TD><INPUT name=Text1 size=58 style="HEIGHT: 22px; WIDTH:
500px"></TD></TR>
<TR>
<TD><LABEL>Subject </LABEL></TD>
<TD><INPUT border=0 name=Text3 size=58
style="HEIGHT: 22px; WIDTH: 500px"></TD></TR>
<TR>
<TD vAlign=top><LABEL>Body </LABEL></TD>
<TD><TEXTAREA cols=63 name=TextArea1 rows=30 style="BACKGROUND-COLOR:
white; HEIGHT: 165px; WIDTH: 590px"></TEXTAREA>
<P></P>
<P><BR></P></TD></TR></TABLE><INPUT name=B1 type=submit
value="Send"></P>
</form><%end if %>
---<BR>
Wrox Professional Web Developer Conference II<BR>
http://www.wroxconferences.com/WebDevEurope<BR>
November 29th - December 1st 2000, Amsterdam, Netherlands<BR>
Create powerful distributed web applications serving you now and<BR>
in the future. From ASP+ and VB.NET to XML and SQL Server 2000<BR>
---<BR>
gonzalo.ruizdevilla@a...<BR>
To unsubscribe send a blank email to $subst('Email.Unsub')<BR>
---<BR>
Wrox Professional Web Developer Conference II<BR>
http://www.wroxconferences.com/WebDevEurope<BR>
November 29th - December 1st 2000, Amsterdam, Netherlands<BR>
Create powerful distributed web applications serving you now and<BR>
in the future. From ASP+ and VB.NET to XML and SQL Server 2000<BR>
---<BR>
You are currently subscribed to asp_cdo as: johnson_bg@h...<BR>
To unsubscribe send a blank email to $subst('Email.Unsub')<BR>
</BODY>
</html>
Thanks in advance
Gonzalo Ruiz de Villa Suárez
Area de Desarrollo Tecnológico
Adesis Netlife, s.l.
c/Jacinto Verdaguer 4, 1ºA
Madrid 28019
España
Tel. + 34 - 915 699 113
Fax. + 34 - 915 655 050
e-mail: gonzalo.ruizdevilla@a...
<mailto:gonzalo.ruizdevilla@a...>
URL: http://www.adesis.com
Message #4 by =?iso-8859-1?Q?Gonzalo_Ruiz_de_Villa_Su=E1rez?= <gonzalo.ruizdevilla@a...> on Sun, 29 Oct 2000 17:57:23 +0100
|
|
The cause of the problem was the versions of the libraries installed.
The machine that hosts the application has Exchange 5.0.
Exchange 5.0 intalls v1.1 of CDO libraries. To run the application I need
v1.2*.
Outlook installs the messaging library cdo.dll v1.21 (now look at the error
I had) which is the upgrade of olemsg32.dll (v1.1). This was enough to make
all the system work, there was no problem in the code. Actually, this is a
sample code I downloaded from Microsoft at
http://support.microsoft.com/support/kb/articles/Q244/5/87.ASP
If you have Exchange 5.5. you won't have this problem as it installs CDO
v1.2 and both service packs install CDO v1.21.
-----Mensaje original-----
De: David BG [mailto:johnson_bg@h...]
Enviado el: sábado, 28 de octubre de 2000 23:19
Para: ASP CDO
Asunto: [asp_cdo] RE: Trying to use exchange
>>I solve it.
Hi, Gonzalo Ruiz de Villa Suárez
Could you tell more specificlly how you SOLVE IT , regarding the Error line
15 in the following ASP page with outlook ?
----Original Message Follows----
From: Gonzalo Ruiz de Villa Suárez <gonzalo.ruizdevilla@a...>
Reply-To: "ASP CDO" <asp_cdo@p...>
To: "ASP CDO" <asp_cdo@p...>
Subject: [asp_cdo] RE: Trying to use exchange
Date: Wed, 25 Oct 2000 10:04:04 +0200
If anyone ever has this problem the solution pass through installing MS
Outlook 97 or greater.
Easy if you know it, and a big headache if you don't.
-----Mensaje original-----
De: Gonzalo Ruiz de Villa Suárez [mailto:gonzalo.ruizdevilla@a...]
Enviado el: jueves, 19 de octubre de 2000 17:04
Para: ASP CDO
Asunto: [asp_cdo] Trying to use exchange
I'm new using ASP with Exchange and I can't make it work.
I always get the same error:
----------------------------------------
OLE/Messaging error '000004ea'
[OLE/Messaging - [80040102]]
/administracion/NewMail.asp, line 15
----------------------------------------
What shoud I do to make te code works?
The code is as follows.
<%@ Language=VBScript %>
<%
submit = Request.Form.Item("B1")
Importance = Request.Form.Item("Importance")
Sensitivity = Request.Form.Item("Sensitivity")
bstrProfileInfo = "VERKOLNT" + vbLf + "AnonUser"
if submit = "Send" then
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", false, true, 0, true, bstrProfileInfo
'<-----THIS IS LINE 15
' create a message and fill in its properties
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = Request.Form.Item("Text3")
objMessage.Text = Request.Form.Item("TextArea1")
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = Request.Form.Item("Text1")
objOneRecip.Resolve ' get MAPI to determine complete e-mail address
objMessage.importance = Importance
objMessage.sensitivity = sensitivity
' send the message and log off
objMessage.Send showDialog=false
objSession.Logoff
Set objSession = nothing
Set objMessage = nothing
Set objOneRecip = nothing
URLSTR = "ListMail.asp?FldrName=" & "Inbox"
Response.Redirect (URLSTR)
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body >
<% if submit = "Submit" then
Response.Write("Done: Mail Sent")
else%>
<form name="mnFrm" method="post" action="NewMail.asp">
<P>
<base target="_top">
<TABLE cellPadding=4 cellSpacing=0 class=Nav2>
<TR><td>
</TD>
<td>
Importance
<SELECT id=Importance name=Importance> <OPTION value=0>Low</OPTION>
<OPTION value=1>Normal</OPTION> <OPTION selected
value=2>High</OPTION></SELECT>
Sensitivity
<SELECT id=Sensitivity name=Sensitivity > <OPTION selected
value=0>Normal</OPTION>
<OPTION value=1>Personal</OPTION> <OPTION value=2>Private</OPTION>
<OPTION selected value=3>Confidential</OPTION></SELECT>
</td></tr>
<tr>
<TD>To </TD>
<TD><INPUT name=Text1 size=58 style="HEIGHT: 22px; WIDTH:
500px"></TD></TR>
<TR>
<TD><LABEL>Subject </LABEL></TD>
<TD><INPUT border=0 name=Text3 size=58
style="HEIGHT: 22px; WIDTH: 500px"></TD></TR>
<TR>
<TD vAlign=top><LABEL>Body </LABEL></TD>
<TD><TEXTAREA cols=63 name=TextArea1 rows=30 style="BACKGROUND-COLOR:
white; HEIGHT: 165px; WIDTH: 590px"></TEXTAREA>
<P></P>
<P><BR></P></TD></TR></TABLE><INPUT name=B1 type=submit
value="Send"></P>
</form><%end if %>
</BODY>
</html>
Thanks in advance
Gonzalo Ruiz de Villa Suárez
Area de Desarrollo Tecnológico
Adesis Netlife, s.l.
c/Jacinto Verdaguer 4, 1ºA
Madrid 28019
España
Tel. + 34 - 915 699 113
Fax. + 34 - 915 655 050
e-mail: gonzalo.ruizdevilla@a...
<mailto:gonzalo.ruizdevilla@a...>
URL: http://www.adesis.com
|
|
|
View Cart
