Email verification on free email accounts???

[James D]

Hey you know a lot more that me... I want to have a the receive and send under one device in my HB configuration. So when it is complete I will post it for all the other new-bies. That little OstroSoft script would be nice if it was implimented into the HB program "Email Sender" and give more flexiblity as comcast and other ISP try to block ports.

[Osler]

For that you need a different ostrosoft component (I thought you just wanted to send email..... :P). Download this one:

http://www.ostrosoft.com/POP3_component.asp

And try this script (again, untested but should work):

Modified from Ostrosoft sample VBScript

Code: Select all

'VBScript sample for OstroSoft POP3 Component
'written by Igor Ostrovsky (OstroSoft)
'
'this script establishes POP3 session, retrieves mailbox stats 
'and save them to the file, retrieves messages and save them in 
'.EML format, then closes the session
'
'Permanent URL for this project is
'http://www.ostrosoft.com/pop3_component/pop3_vbscript.zip
'
'For more information about OstroSoft POP3 Component go to
'http://www.ostrosoft.com/pop3_component.asp
'
'OstroSoft POP3 Component is available for download at
'http://www.ostrosoft.com/download/pop3_component.zip
'
'Questions, suggestions, comments - email to [email protected]
'or submit a form at http://www.ostrosoft.com/contact.asp

Option Explicit

Dim oPOP3 'As OSPOP3.Session
Set oPOP3 = CreateObject("OSPOP3.Session")
oPOP3.RaiseError = True

If oPOP3.OpenPOP3("pop.mail.yahoo.com", 110, "my username", "my password") Then
  Dim oMessageList 'As New Collection
  Dim oMLE 'As MessageListEntry
  Dim oMessage 'As Message
  
  Set oMessageList = oPOP3.GetMessageList
  For Each oMLE In oMessageList
    Set oMessage = oPOP3.GetMessage(oMLE.ID)
    Call SetPropertyValue(".RetrievedEmailSubject", oMessage.Subject) 'Put the email subject into a property
    Set oMessage = Nothing
    Call oPOP3.DeleteMessage(oMLE.ID)
    'Sleep(250)
  Next
  Set oMessageList = Nothing
  oPOP3.ClosePOP3
End If
Set oPOP3 = Nothing

All the message subjects in the inbox should get cycled through the imaginary property ".RetreivedEmailSubject" in the script device at which point the message is deleted from the inbox. Just create a task to monitor this property for pertinent catch phrases and act accordingly. You may need to put a sleep(250) in there in case all of the subjects don't get processed by the task.

Osler