Sitter och testar JMail, hur funkar Methods egentligen och hur använder man det?
------------------
Data-Doktorn
Min egen musik!
Jmail o Methods
7 svar · 300 visningar · startad av aleborg
Om du menar metoder som ".Execute" så kan man inte dra alla över en kant, dom bidrar alla till olika saker.
Kolla PatrikBs script under wF script: http://script.webforum.nu/wf/Forum1/HTML/000008.html
------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu
Jag menar som det här: http://tech.dimac.net/isapiscript.dll?action=read&id=32584&refId=32592#DownloadHeaders
Hur använder jag dom funktionerna?
------------------
Data-Doktorn
Min egen musik!
Mitt coverband
Hello,
skickar dig vidare till dimacs exempelsida: http://tech.dimac.net/isapiscript.dll?action=read&id=32559
Har själv inte jobbat med JMail 4.o =( ...
cya,
PatrikB
------------------
*Det tar sig sa han som hade eld i håret*
Problemet är att det är mycket dåligt beskrivet på deras sida! Står inget om hur man använder Methods och det finns bara ett exempel :(
------------------
Data-Doktorn
Min egen musik!
Mitt coverband
Den här koden finns på Dimac:
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "username", "password", "mail.mydomain.com"
Response.Write( "You have " & pop3.count & " emails in your mailbox!<br><br>" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
' Note the first element of this array is 1
' since the POP3 server starts counting at 1
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
' We now need to get all the recipients,
' both normal and Carbon Copy (CC) recipients
' and store them in a variabel
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If
Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & " (" & re.EMail & ")" & separator
else
ReCC = ReTo & re.Name & " (" & re.EMail & ")" & separator
End If
Next
' This function iterates through the Attachments object,
' and saves the attachment to the server's disk.
' It also returns a nicely formatted string with a
' link to the attachment.
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "c:\attachments\" & at.Name )
getAttachments = getAttachments & "<a href=""/attachments/" &_
at.Name &""">" & at.Name & "(" & at.Size & " bytes)" &_
"</a>" & separator
Next
End Function
%>
<html>
<body>
<TABLE>
<tr>
<td>Subject</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>From</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>Recipients To</td>
<td><%= ReTO %></td>
</tr>
<tr>
<td>Recipients CC</td>
<td><%= ReCC %></td>
</tr>
<tr>
<td>Attachments</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>Body</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<%
end if
pop3.Disconnect
%>
Men hur gör jag för att få fram alla mails rubriker och göra dom klickbara så att man kan välja vilket man vill läsa?
------------------
Data-Doktorn
Min egen musik!
Mitt coverband