Jump to content
Sign in to follow this  
=sinister=

Trouble Connecting To Pop3 Server

Recommended Posts

=sinister=

Ok, I think I have this pop3 email thing down. (I think) but i'm having trouble connecting to a gmail account.

I use these UDF's: http://www.autoitscript.com/forum/index.ph...838&hl=pop3

I have the pop3 remote thing enabled on my account. Here's what I tried: (Using a test email)

#include <array.au3>
#include <_pop3.au3>

ConsoleWrite(@AutoItVersion & @CRLF)
;~ See _pop3.au3 for a complete description of the pop3 functions
;~ Requires AU3 beta version 3.1.1.110 or newer.

Global $MyPopServer = "pop.gmail.com"
Global $MyLogin = "autotbman@gmail.com"
Global $MyPasswd = "******"

_pop3Connect($MyPopServer, $MyLogin, $MyPasswd)
If @error Then
    MsgBox(0, "Error", "Unable to connect to " & $MyPopServer & @CR & @error)
    Exit
Else
    ConsoleWrite("Connected to server pop3 " & $MyPopServer & @CR)
EndIf

Local $stat = _Pop3Stat()
If Not @error Then
    _ArrayDisplay($stat, "Result of STAT COMMAND")
Else
    ConsoleWrite("Stat commande failed" & @CR)
EndIf

;~ Local $list = _Pop3List()
;~ If Not @error Then
;~  _ArrayDisplay($list, "")
;~ Else
;~  ConsoleWrite("List commande failed" & @CR)
;~ EndIf

;~ Local $noop = _Pop3Noop()
;~ If Not @error Then
;~  ConsoleWrite($noop & @CR)
;~ Else
;~  ConsoleWrite("List commande failed" & @CR)
;~ EndIf

;~ Local $uidl = _Pop3Uidl()
;~ If Not @error Then
;~  _ArrayDisplay($uidl, "")
;~ Else
;~  ConsoleWrite("Uidl commande failed" & @CR)
;~ EndIf

;~ Local $top = _Pop3Top(1, 0)
;~ If Not @error Then
;~  ConsoleWrite(StringStripCR($top) & @CR)
;~ Else
;~  ConsoleWrite("top commande failed" & @CR)
;~ EndIf

;~ Local $retr = _Pop3Retr(1)
;~ If Not @error Then
;~  ConsoleWrite(StringStripCR($retr) & @CR)
;~ Else
;~  ConsoleWrite("Retr commande failed" & @CR)
;~ EndIf

;~ Local $dele = _Pop3Dele(1)
;~ If Not @error Then
;~  ConsoleWrite($dele & @CR)
;~ Else
;~  ConsoleWrite("Dele commande failed" & @CR)
;~ EndIf

ConsoleWrite(_Pop3Quit() & @CR)

Anyone know what i'm doing wrong?

Share this post


Link to post
Share on other sites
Walls192

I get the same error, try adding the port 995 by doing

_pop3Connect($MyPopServer, $MyLogin, $MyPasswd, 995)

Share this post


Link to post
Share on other sites
=sinister=

That is still not doing the trick. Someone really needs to help us with this!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×