by Chris Lee (7 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 28th June 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Send Mail via AOL
VBcoders
Sub AoL4_MailSend(Sn, Subject, Message)
meeh% = FindIt(AoL4_Windo(), "AOL Toolbar")
Toolbar% = FindIt(meeh%, "_AOL_Toolbar")
Receive% = FindIt(Toolbar%, "_AOL_Icon")
Receive% = GetWindow(Receive%, GW_HWNDNEXT)
Call Click(Receive%)
Do: DoEvents
mail% = FindItsTitle(AoL4_Child(), "Write Mail")
edit% = FindIt(mail%, "_AOL_Edit")
Rich% = FindIt(mail%, "RICHCNTL")
Receive% = FindIt(mail%, "_AOL_ICON")
Loop Until mail% <> 0 And edit% <> 0 And Rich% <> 0 And Receive% <> 0
Call SenditByString(edit%, WM_SETTEXT, 0, Sn)
edit% = GetWindow(edit%, GW_HWNDNEXT)
edit% = GetWindow(edit%, GW_HWNDNEXT)
edit% = GetWindow(edit%, GW_HWNDNEXT)
edit% = GetWindow(edit%, GW_HWNDNEXT)
Call SenditByString(edit%, WM_SETTEXT, 0, Subject)
Call SenditByString(Rich%, WM_SETTEXT, 0, Message)
For GetIcon = 1 To 18
Receive% = GetWindow(Receive%, GW_HWNDNEXT)
Next GetIcon
Call Click(Receive%)
End Sub