Email account settings

[TheVig]

This is all kind of lumped into one example that works...You'd have to break it up:
Function Add_to_Emailing_List

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 157 23 "Email List"
;1 Button 0x54030001 0x4 105 5 48 14 "Subscribe"
;3 Edit 0x54030080 0x200 5 5 96 14 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030002 "" "" ""
str controls = "3"
str e3
if(!ShowDialog("Add_to_Emailing_List" &Add_to_Emailing_List &controls)) ret

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,str Email.getwintext(id(3 win("Email List" "#32770")))
,str Test=
,;smtp_server smtp.gmail.com
,;smtp_port 465
,;smtp_user QuickMacros.Test@gmail.com
,;smtp_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
,;smtp_auth 2
,;smtp_secure 1
,;smtp_timeout 60
,;smtp_email QuickMacros.Test@gmail.com
,;smtp_displayname QuickMacros.Test@gmail.com
,;smtp_replyto QuickMacros.Test@gmail.com
,;pop_server pop.gmail.com
,;pop_port 995
,;pop_user QuickMacros.Test@gmail.com
,;pop_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
,;pop_auth 0
,;pop_secure 1
,;pop_timeout 60
,
,str Settings=
,;smtp_server smtp.gmail.com
,;smtp_port 465
,;smtp_user QuickMacros.Settings@gmail.com
,;smtp_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
,;smtp_auth 2
,;smtp_secure 1
,;smtp_timeout 60
,;smtp_email QuickMacros.Settings@gmail.com
,;smtp_displayname QuickMacros.Settings@gmail.com
,;smtp_replyto QuickMacros.Settings@gmail.com
,;pop_server pop.gmail.com
,;pop_port 995
,;pop_user QuickMacros.Settings@gmail.com
,;pop_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
,;pop_auth 0
,;pop_secure 1
,;pop_timeout 60
,
,str BodyText.format("|RUN EMAIL MAILING LIST PROGRAM|%s" Email)
,
,SendMail "QuickMacrosSettings@gmail.com" "Subscription to Email" BodyText 0 "" "" "" "" "" Test

,,;This would be a seperate program running...
,;----------------------------------------------------------
,;**********************************************************
,;----------------------------------------------------------
,;Check_Email
,ARRAY(str) a; int i nmessages
,nmessages=ReceiveMail(Settings 0x1000000 "$desktop$\pop" a)
,;
,
,;----------------------------------------------------------
,;Take this little bit out to have it check messages once
,;Leave in to have run until a message is found
,;----------------------------------------------------------
,if nmessages=0
,,2
,,goto Check_Email
,;----------------------------------------------------------
,;----------------------------------------------------------

,
,_s.format("Number of new messages downloaded: %i" nmessages)
,out "******************************************************"
,out _s
,out "******************************************************"
,for i 0 a.len
,,out a[i]
,Dir d
,foreach(d "$Desktop$\pop\*.eml" FE_Dir)
,,str sPath=d.FileName(1)
,,MailBee.Message m._create
,,m.ImportFromFile(_s.expandpath(sPath))
,,str subj=m.Subject
,,str body=m.BodyText
,,out subj
,,out body
,,out "---------------------------------------------------"
,,ARRAY(str) arr
,,int nt
,,nt = tok(body arr -1 "|" 8)
,,if arr[0]="RUN EMAIL MAILING LIST PROGRAM"
,,,arr[1].findreplace("[]")
,,,SendMail arr[1] "Thanks for Subscribing" "Thank you for subscribing to my emailing list" 0 "" "" "" "" "" Settings
,,,arr[1].setfile("$Desktop$\Mailing List.txt" -1 -1 1)
,,,mes _s.format("%s was added to the mailing list and was properly thanked!" arr[1])
,,,out _s
,,;----------------------------------------------------------
,,;**********************************************************
,,;----------------------------------------------------------
,case IDCANCEL
ret 1