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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.