Mail med MS Exchange Server

jag förstår inte vad det har med asp att göra, men tar ändå tillfället i akt att önska dig välkommen till webforum! :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

jag vill ju skicka mail i ASP med en Exchange Server!!!! i stället för den inbyggda SMTP servern.

------------------
kristoffer renholm | renholm.cjb.net

jaså var det så du menade! :)

du kan skicka mail med exempelvis komponenten jmail, där du enkelt anger adressen till din exchangeserver. borde gå alldeles utmärkt att använda cdonts om man vill det.

sök på jmail och cdonts här på forumet så får du nog en massa intressanta träffar.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

[Redigerat av @nders den 21 apr 2001]

Jag skrev några inlägg förra veckan (tror jag) om detta. Man kan med CDONTS logga in på en mailserver, kolla mail, skicka osv.

Sök några "dagar" bakåt...

/T

------------------
This is what the KLF is about

Jag såg ditt meddelande... men där står det hur man loggar in på en SMTP server. Jag vill logga in på en Exchange Server. Går det med CDONTS? Jag har försökt med MAPI.Session men då blir det Error: 424; Object Required.

------------------
kristoffer renholm | renholm.cjb.net

Jag testade med följande kod för att skicka mail med MAPI:

<% If Request.Form.Count = 0 Then %>
<Form method="POST" action="mail.asp">
<center>
<table>
<tr>
<td><strong>New Message</strong><td>
</tr>
<tr>
<td>To:</td>
<td><input type="text" size="80" name="Recipient"><td>
</tr>
<tr>
<td>From:</td>
<td><input type="text" size="80" name="From"><td>
</tr>
<tr>
<td>Subject:</td>
<td><input type="text" size="80" name="Subject"><td>
</tr>
<tr>
<td>Message:</td>
<td><input type="text" size="80" name="MessageText"></td>
</tr>
</table>
<BR>
<input type="submit" name="Send" value="Send" >
</center>

</Form>
<%
Else

bstrAT = Request.ServerVariables("AUTH_TYPE")
IF InStr(1, "_BasicNTLM", bstrAT, vbTextCompare) < 2 Then
Response.Buffer = TRUE
Response.Status = ("401 Unauthorized")
Response.AddHeader "WWW.Authenticate", "Basic"
Response.End
END IF

On Error Resume Next

From = Request("From")
sTo = Request("Recipient")
Subject = Request("Subject")
Body = Request("MessageText")

' Hard code this to your Mail server name.
bstrServer = "exs1"

Dim objSession
Dim bstrProfileInfo

Set objSession=Server.CreateObject("MAPI.Session")
bstrProfileInfo = bstrServer + chr(10) + From

objSession.Logon "","",False,True,0,True,bstrProfileInfo
Set Session("objSession") = objSession

If Err.Number <> 0 Then
Response.Write("Unable to connect to Mail Server! <BR>")
Response.Write("Error source: " & Err.Source & "<BR>")
Response.Write("Error number: " & Err.Number & "<BR>")
Response.Write("Error description: " & Err.Description & "<BR>")
Err.Clear
Else

Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject=Subject
objMessage.Text=Body

Set objonerecip = objmessage.Recipients.Add
objonerecip.Name = sTo
objonerecip.Resolve

objMessage.Send showDialog=False

End if

%>
Jippi
<% End if %>

Vet någon varför det inte fungerar? jag får bara Error 424; Object Required.

Är det någon speciel inställning på servern.. eller?

------------------
kristoffer renholm | http://renholm.cjb.net

Måste ladda hem en speciell komponent.
Kolla typ jmail eller donts som @nders sa.

Andreas

Jag använder ju en komponent som heter MAPI! det är den som inte fungerar. Eller någon inställning

------------------
kristoffer renholm | http://renholm.cjb.net