• Home
 · 
• Internet/HTML
 · 
• Send Mail via AOL

Send Mail via AOL

Send Mail via AOL

Rate Send Mail via AOL

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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