8 svar · 291 visningar · startad av renholm
Hej!
Vet någon hur man skickar mail med en Exchange Server? jag har testat med MAPI.Session men det fungerar inte... är det någon extra inställning man måste göra? Anledningen till att jag vill använda Exchange är att företagets proxy inte släpper igenom SMTP(port25).
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! 
jag vill ju skicka mail i ASP med en Exchange Server!!!! i stället för den inbyggda SMTP servern.
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.
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
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.
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?
Jag använder ju en komponent som heter MAPI! det är den som inte fungerar. Eller någon inställning