Welcome Guest! To enable all features please Login or Register.



Go to last post Go to first unread
Antonio Nittoli  
#1 Posted : Thursday, April 7, 2022 5:53:48 AM(UTC)
Antonio Nittoli

Rank: Newbie

Groups: Registered
Joined: 4/7/2022(UTC)
Posts: 1
Location: Naples

hi ,
i have test trial version in our company but now is expired.
I have a code in VB.net that search email with subject :

Shared Sub SearchMail(server As String, user As String, password As String, useSsl As Boolean, oggetto As String, path As String)

' Create a folder named "inbox" under current directory
' to save the email retrieved.
Dim localInbox As String = path
Dim di As IO.DirectoryInfo =
New IO.DirectoryInfo(path)
For Each oFile As IO.FileInfo In di.GetFiles()
' If the folder is not existed, create it.
If Not Directory.Exists(localInbox) Then
End If

' Most modern email server require SSL/TLS connection,
' set useSsl to true Is recommended.
Dim oServer As New MailServer(server, user, password, useSsl,
ServerAuthType.AuthLogin, ServerProtocol.Imap4)

' IMAP4 port Is 143, IMAP4 SSL port Is 993.
oServer.Port = If(useSsl, 993, 143)

Console.WriteLine("Connecting server ...")
Dim oClient As New MailClient("TryIt")

' Search the emails whose internal date is within 8-AUG-2008 and sender contains "John"
Dim infos() As MailInfo = oClient.SearchMail("SUBJECT """ & oggetto & """")
Console.WriteLine("Total {0} email(s) found", infos.Length)

For i As Integer = 0 To infos.Length - 1
Console.WriteLine("Checking {0}/{1} ...", i + 1, infos.Length)
Dim info As MailInfo = infos(i)

' Generate an unqiue email file name based on date time.
Dim fileName As String = _generateFileName(i + 1)
Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)

Console.WriteLine("Downloading {0}/{1} ...", i + 1, infos.Length)
Dim oMail As Mail = oClient.GetMail(info)

' Save email to local disk
oMail.SaveAs(fullPath, True)

' Mark email as deleted on server.
'' Console.WriteLine("Deleting ... {0}/{1}", i + 1, infos.Length)
'' oClient.Delete(info)

Console.WriteLine("Disconnecting ...")
' Delete method just mark the email as deleted,
' Quit method expunge the emails from server permanently.
'' oClient.Quit()

Catch ep As Exception
Console.WriteLine("Error: {0}", ep.Message)
End Try

i dont have standard license of ADS Objects why i need only dll license of EAGetMail. This is possibile to buy only EAGetMail without other ADS Objects?

Best Regards from italy,
im sorry for my bad english
#2 Posted : Thursday, April 7, 2022 6:45:57 AM(UTC)

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,149

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
Hi, EAGetMail is a standalone product. you can purchase the license from:


You don't have to purchase other products.
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET
This page was generated in 0.441 seconds.


© All Rights Reserved, AIFEI Software Limited & AdminSystem Software Limited.