• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 354
  • Last Modified:

How to Write an EMAIL APP with AOL as ISP

I am writing a VB App. Part of the Funtionality I want is to send Email from it. I can do this with SMTP, and MAPI and other ISPs. But what do I have to do to make this work when AOL is the ISP?
Or has AOL Sealed this up so you can't.
Another Reason I ask is, someone is offering me a program that claims to do this.
0
DaveLeWave
Asked:
DaveLeWave
  • 8
  • 6
  • 4
1 Solution
 
mcriderCommented:
You can write a package that will send Email through AOL, however, you will have to be logged on to AOL to do it...

To actually send mail, you need to send the keystrokes to open a new message, fill out the AOL form and click the send.


Cheers!®©
0
 
DaveLeWaveAuthor Commented:
I know about trying it the suggested above.

1) It is a given that AOL is logged into and Running

2)  I am wondering more along the lines of:  is there some way of doing it through code with SMTP or MAPI or some other protocol that is unique to AOL.

3) If I did it as suggested above, does this work when AOL is minimized?
0
 
mcriderCommented:
No AOL does not support external SMTP/MAPI.  Their mail interface is completely embedded in their TCP Service port 5190.

If AOL is mimimized, you will have to bring it back to normal.  You can this:


Add the following to a MODULE:

    Public Const SW_HIDE = 0
    Public Const SW_SHOWNORMAL = 1
    Public Const SW_NORMAL = 1
    Public Const SW_SHOWMINIMIZED = 2
    Public Const SW_SHOWMAXIMIZED = 3
    Public Const SW_MAXIMIZE = 3
    Public Const SW_SHOWNOACTIVATE = 4
    Public Const SW_SHOW = 5
    Public Const SW_MINIMIZE = 6
    Public Const SW_SHOWMINNOACTIVE = 7
    Public Const SW_SHOWNA = 8
    Public Const SW_RESTORE = 9
    Public Const SW_SHOWDEFAULT = 10
    Public Const SW_MAX = 10
    Public Const WS_MINIMIZE = &H20000000
    Public Const GWL_STYLE = (-16)
    Declare Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hwnd As Long, _
        ByVal nIndex As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long





Then in your program, do this:

   Dim lWinfo As Long
   Dim lhWnd As Long

   lhWnd = FindWindow(vbNullString, "America  Online")
   lWinfo = GetWindowLong(lhWnd, GWL_STYLE)
   If (lWinfo And WS_MINIMIZE) = WS_MINIMIZE Then ShowWindow lhWnd, SW_NORMAL



Cheers!®©
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
wsh2Commented:
Psssst.. mcrider I can do it through AOL.. da mighty B (me) has busted da proprietary AOL filing cabinet format!!!.. <smile> and a <wink>.

DaveLeWare.. as I am still working on the program.. I am retiscent to send anything yet.. <sigh>. But, if you leave your EMail address, I will be more than happy to send you a Beta copy when it is done. By the way, I would very much like to know what your friend has done.. perhaps he and I could compare notes.. <smile>.
0
 
mcriderCommented:
wsh2, Got my attention...  Are you writing directly to the filing cabinet and then having them sent during a "FlashSession"???

If it's something like that, you may run into problems... AOL has in the past, periodically done something to the filing cabinet to screw with apps like that... I had an app that did that and ended up corrupting my filing cabinet... I still have 2 "Mail waiting to be sent" folders and 2 "Incoming/Saved Mail" folders in my cabinet that I've never been able to get rid of...

Needless to say, I stopped using the beast.


Cheers!®©
0
 
DaveLeWaveAuthor Commented:
Thanks for the input

Thanks Mcrider, the solution you provided was what I had comtemplated already, your response makes me think I will have to go that way.  I was hoping to avoid this method and find some other way.
If they are sending mail through the TCP service port, there must be some kind of format that the data package has that tells their server its mail, whos it from, where's it going etc.


Wsh2 I wouldn't mind a beta copy.
If you're willing to share the concepts of the module I would appreciate that as well. (I don't think you were offering source code, but I could write my own if needed).
My Email is DMeisland@accredhome.com.
Is this something I could incorporate into my project, or a demonstration of sending email externaly being done?

0
 
wsh2Commented:
mcrider:
AOL changed the directory that they do their sends from.. thats all.. <smile>.
0
 
mcriderCommented:
No... What I'm saying is my Filing Cabinet looks like this:

+MAIL
  |_______Incomming/Saved Mail
  |_______Mail Waiting To Be Sent
  |_______Incomming/Saved Mail
  |_______Mail Waiting To Be Sent
  |_______Mail You've Sent


See the duplicates... If I try to delete either duplicate, I get the message "You cannot delete permanent items".

This happened after I installed a crappy mailer that uses the File Cabinet.  AOL's answer... Remove AOL and reinstall... (and lose everything in my Filing Cabinet!!)

So... How ARE you doing it...??
0
 
DaveLeWaveAuthor Commented:
WSH2:FYI
I Talked to the person who was offering the AOL Mail, and He since has backtracked. This is what he did.
1.)Use AOL only as the ISP
2.) You set up a client Email Program
  i.e. Outlook Express through SMTP or MAPI to connect to another EMAIL provider, i.e. Hotmail
0
 
mcriderCommented:
As I suspected...  Are you going to award the points or wait for wsh2?  If you wait too long, the EE autograder will delete this message since it doesn't have a proposed answer...


Cheers!®©
0
 
DaveLeWaveAuthor Commented:
I'll will award the points,
but I still would like to hear from
wsh2
0
 
DaveLeWaveAuthor Commented:
Confirmed what I thought I would have to do.

I fell the topic could use a lot more discussion.
0
 
mcriderCommented:
Thanks for the points... I'm sure wsh2 will continue to participate in the thread...


Cheers!®©
0
 
wsh2Commented:
Adding to mcrider's comment:

Assuming you are using AOL 5.0

Once you have gotten the "America Online" Window (classname AOL Frame25), enumchildren until you find AOL Toolbar.. and then enumchildren again until you find the second AOL Icon (which should be Write). Give it focus and send it a mousclick.. This will open a Write window.

Enumchildren through America Online again and find MDICLIENT.. then enumchildren through MDICLIENT until you find "Write Mail".. then enumchildren until you find the following.. the first Edit is Send To:.. the second Edit is Copy To:.. the third Edit Subject: and finally the RICHCNTL window is the body. Give focus and the appropriate sendkeys to each. The 16th Aol Icon in the enumchildren list is the Send Now button.. the 17th Send Later.. give whichever you choose focus.. and then a mouseclick.

Some fun, huh?.. LOL and a <wink>
0
 
mcriderCommented:
You can also just use sendkeys...

SendKeys "^M" 'Brings up a compose mail window

and then send tabs and fill in the message...


;-)


Cheers!®©

0
 
wsh2Commented:
Very nice.. mcrider.. <smile>
0
 
mcriderCommented:
<G>
0
 
DaveLeWaveAuthor Commented:
Yes, I knew of this way and dreaded it. The risk here is if a user accidently hits the keyboard. This will cause the whole process can get messed up. One thing is for sure, it can be done, a user will do it.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 8
  • 6
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now