Solved

ASPPop3 Component by ServerObjects

Posted on 2004-04-28
19
353 Views
Last Modified: 2008-01-09
I purchased the ASPPop3 component today, but the guy doesn't seem to be responding to my help emails.  This is urgent so I thought I'd post it on here hoping somebody would know.

Here is my script
------------------------
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail.domain.com"
Mailer.UserName = "user@domain.com"
Mailer.Password = "xxxxx"
Mailer.OpenPop3
Mailer.Pop3Log = "C:\ASPPop3\PopLog.txt"

if Mailer.GetPopHeaders then
infoArr = Mailer.MessageInfo
      for i = 1 to Mailer.MessageCount
            Response.Write Mailer.Retrieve(i) & "<br />"
            if Mailer.Retrieve(i) then
                   Response.Write "Retrieved!"
            end if
       next

My problem is that Mailer.Retrieve(i) is returning False!  So it's not retrieving the message I guess.  The component has been installed and registered with him.  What's wrong??
0
Comment
Question by:BeamerCola
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 6
  • 5
  • +1
19 Comments
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 10944496
Are you certain that this is an array?

FtB
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 10944502
I mean, try this:

<%
if Mailer.GetPopHeaders then
   infoArr = Mailer.MessageInfo
   for i=0 to UBound(infoArr)  
      response.write(infoArr(i) & "<BR>")
   next
end if
%>
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 10944561
Try this code..

<%
  'Open a connection to the POP3 server
  Dim Mailer
  Set Mailer = Server.CreateObject("POP3svg.Mailer")
  Mailer.RemoteHost = "pop3.foo.com"
  Mailer.UserName   = "username"
  Mailer.Password   = "password"
  Mailer.OpenPop3

  'Find out how many messages there are
  Dim iMessages
  iMessages = Mailer.MessageCount
  Response.Write "There are " & iMessages & " messages on the server.<p>"

  Dim iLoop

  'Display the table
  Response.Write "<table border=1 align=center cellspacing=1>"
  Response.Write "<tr><th>&nbsp;</th><th>Subject</th><th>From</th></tr>"

  'Loop through all of the available messages
  For iLoop = 1 to iMessages
    If Mailer.Retrieve(iLoop) then
      Response.Write "<tr>"
      Response.Write "<td><a href=""readMessage.asp?ID=" & _
                     iLoop & """>Read</a></td>"
      Response.Write "<td>" & Mailer.Subject & "</td>"
      Response.Write "<td>" & Mailer.FromName & " (<a href=""mailto:""" & _
                     Mailer.FromAddress & """>" & Mailer.FromAddress & _
                     "</a>)</td>"
      Response.Write "</tr>"
    End If
  Next 'iLoop

  Response.Write "</table>"

  'Close the connection to the POP3 server
  Mailer.ClosePop3
%>


Cheers!!
0
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
LVL 21

Expert Comment

by:ap_sajith
ID: 10944585
You can find more reference material at http://www.serverobjects.com/comp/Asppop3.htm

Cheers!!
0
 

Author Comment

by:BeamerCola
ID: 10945293
Fritz:
I gave that a shot and it didnt work too well.  I'm using it the same way the instructions told me to, and it just plain doesnt seem to be working.

ap:
I tried that example from 4guys and have been following the guide on serverobjects to the T ... but it still refuses to work correctly!!

I wasnt sure if somebody out there that uses this component knows exactly whats going on or somthing.

hrumph,
Beamer
0
 

Author Comment

by:BeamerCola
ID: 10945327
By the way... this pulls in the correct amount of messages.. it's connecting fine.. but when i do

Response.Write Mailer.Retrieve(1)

It should display a value of "True" that it actually Retrieved it ... but instead it gives False.
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 10945359
The point that I was making was the following...

If this doesn't work:

<%
if Mailer.GetPopHeaders then
   infoArr = Mailer.MessageInfo
   for i=0 to UBound(infoArr)  
      response.write(infoArr(i) & "<BR>")
   next
end if
%>

then infoArr is not really an array and everything else will not work then.

FtB

0
 

Author Comment

by:BeamerCola
ID: 10945402
the infoArr variable I set is actually something kind of old which is commented out of the code as of now.  I'm not looping with the uBound of infoArr ... so it's just kinda sitting there now.  Though I commented it out and still no luck.
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 10946824
Try configuring the pop3 email address in outlook and see if it works correctly. Maybe your server settings is wrong!(you never know!).

What does Mailer.MessageCount retrieve?. Could you try it on your local server so that you know that it is not a server issue.

Cheers!!
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 10950248
What if you do this:

for each objMessage in Mailer.Retrieve
  response.write(Mailer.Retrieve(objMessage) & "<BR>")
next


0
 

Author Comment

by:BeamerCola
ID: 10950646
ap-
I have it configured in Outlook and its working good ... Mailer.MessageCount pulls in the correct amout of messages

fritz-
"Wrong number of arguments or invalid property assignment: 'Retrieve'"
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 10972847
Fine with me, but it wouldn't hurt to give Sajit the points for effort...

FtB
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 10983761
It's Ok with me as long as BeamerCola posts he he overcame this issue.

@Fritz, Thanks for the tip mate!

Cheers!!
0
 

Author Comment

by:BeamerCola
ID: 10986956
Well I originally closed this question because it didnt look like it was going to be figured out, by me or anybody.  And that guy sure wasn't emailing me back.

So last night I heads-downed it and figured it out!

I needed to change around how it opened and closed the Pop3 connection

Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail.trnsfr.com"
Mailer.UserName = "in@mo.blogpod.com"
Mailer.Password = "snuffaluff"
Mailer.MailDirectory = "C:\Websites\Moblog\images"

      for i = 0 to Mailer.MessageCount
            Mailer.OpenPop3
            Mailer.Retrieve i
            Mailer.ClosePop3
            Mailer.GetPopHeader i
            if Mailer.GetHeaderField("To") <> "" then
            Call GetUserInfo(Mailer.GetHeaderField("To"))
            Call DisplayInfo
            attCount = Mailer.AttachmentCount
       next

thanks for all your help
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 10987313
Thats Crazy!!.. Call the open method in a loop??.. The guys who wrote the component needs to think again on this issue ;o)

Cheers!!
0
 

Author Comment

by:BeamerCola
ID: 10987421
Haha yeah, a little screwy.
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 10987466
You can pass on my comments when you call up support next time! ;o)

Cheers!!
0
 

Accepted Solution

by:
PashaMod earned 0 total points
ID: 11005811
Closed, 500 points refunded.
PashaMod
Community Support Moderator
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
edit .asp files 5 48
IIS components 2 35
Debugging Html 8 32
ASP Classic - Read XML File inner content 10 49
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question