Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ASP & Microsoft Exchange Server
- Thread starter damann
- Start date
damann,,
Here is an exhange example--its uses CDO for Exchange objects:
it will create the session and logon -get flolder, add a new message,add new receipent
<!--MetaData type="typelib" name="Microsoft CDO 1.21 Library" UUID="3fa7de7-6438-101b-acc1-00aa00423326"-->
<%
Option Explicit
Dim objSession, objOutbox, objMessage, objRecipients, objRecipient
Dim strPorfileOnfo, strServer, strMailbox, strTo, strSubject, strBody
%>
<html>
<head>
<title> CDO for exchange example</title>
<head>
<body>
<%
strTo = request.querystring("recipient"
strSubject = request.querystring("subject"
strBody = request.querystring("body"
set objSession = server.createobject("MAPI.session"
strserver ="xx"
strmailbox = "xx"
strprofileinfo = strserver + vbLF + strmailbox
objsession.logon "", "", false, true, 0, true, strprofileinfo
set objoutbox = objsession.outbox
set objmessage = objoutbox.messages.add
set objrecipients = objmessage.recipients
set objrecipient = obhrecipients.add
objrecipient.name = strto
objrecipient.resolve
objmessage.subject = strsubject
objmessage.text = strbody
objmessage.send
set all to nothing
%>
you have just sent an admin alert to <% = strto %>.
etc etc
if you need exchange 2000 then you use cdo 3.0 as the library
I hope this helps
Aaron
Here is an exhange example--its uses CDO for Exchange objects:
it will create the session and logon -get flolder, add a new message,add new receipent
<!--MetaData type="typelib" name="Microsoft CDO 1.21 Library" UUID="3fa7de7-6438-101b-acc1-00aa00423326"-->
<%
Option Explicit
Dim objSession, objOutbox, objMessage, objRecipients, objRecipient
Dim strPorfileOnfo, strServer, strMailbox, strTo, strSubject, strBody
%>
<html>
<head>
<title> CDO for exchange example</title>
<head>
<body>
<%
strTo = request.querystring("recipient"
strSubject = request.querystring("subject"
strBody = request.querystring("body"
set objSession = server.createobject("MAPI.session"
strserver ="xx"
strmailbox = "xx"
strprofileinfo = strserver + vbLF + strmailbox
objsession.logon "", "", false, true, 0, true, strprofileinfo
set objoutbox = objsession.outbox
set objmessage = objoutbox.messages.add
set objrecipients = objmessage.recipients
set objrecipient = obhrecipients.add
objrecipient.name = strto
objrecipient.resolve
objmessage.subject = strsubject
objmessage.text = strbody
objmessage.send
set all to nothing
%>
you have just sent an admin alert to <% = strto %>.
etc etc
if you need exchange 2000 then you use cdo 3.0 as the library
I hope this helps
Aaron
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question