Email account settings

[TheVig]

Make sure you have QM version 2.3.0.5 or latest
or Download and replace MailGetSSL

  MailGetSSL.qml (Size: 491 bytes / Downloads: 411)
Make sure that POP and IMAP are enabled on your Gmail account

Here is a working Example of gmail settingsif it returns 0, that means there are no new messages)

Code:

Copy      Help

out
;GMAIL CONFIGURATION SETTINGS:
;For some reason ReceiveMail does not recognize emails sent from "me" in Gmail.
;Two Accounts must be used for this example.

,;Test Account
,;Username - [email protected]
,;Password - QuickMacrosPassword

,;Settings Account
,;Username - [email protected]
,;Password - QuickMacrosPassword
,
,;Incoming Mail (POP3) Server - requires SSL:
,;pop.gmail.com
,;Use SSL: Yes
,;Port: 995
,;Outgoing Mail (SMTP) Server - requires TLS:
,
,;smtp.gmail.com (use authentication)
,;Use Authentication: Yes
,;Use STARTTLS: Yes (some clients call this SSL)
,;Port: 465 or 587
,;Account Name: your full email address (including @gmail.com or @your_domain.com)
,;Email Address: your email address ([email protected] or username@your_domain.com)
,;Password: your Gmail password

str Test=
;smtp_server smtp.gmail.com
;smtp_port 465
;smtp_user [email protected]
;smtp_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
;smtp_auth 2
;smtp_secure 1
;smtp_timeout 60
;smtp_email [email protected]
;smtp_displayname [email protected]
;smtp_replyto [email protected]
;pop_server pop.gmail.com
;pop_port 995
;pop_user [email protected]
;pop_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
;pop_auth 0
;pop_secure 1
;pop_timeout 60

str Settings=
;smtp_server smtp.gmail.com
;smtp_port 465
;smtp_user [email protected]
;smtp_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
;smtp_auth 2
;smtp_secure 1
;smtp_timeout 60
;smtp_email [email protected]
;smtp_displayname [email protected]
;smtp_replyto [email protected]
;pop_server pop.gmail.com
;pop_port 995
;pop_user [email protected]
;pop_password DC5C2D557CD22E74071CDE7F3583611FB8AF817B3135C70005
;pop_auth 0
;pop_secure 1
;pop_timeout 60

SendMail "[email protected]" "Welcome to QM Mail" "Congrats...You just sent and received email using Quick Macros" 0x100 "" "" "" "" "" Test
;
;Check_Email
ARRAY(str) a; int i nmessages
nmessages=ReceiveMail(Settings 0x1000000 "$desktop$\pop" a)
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 "---------------------------------------------------"

This will send an email from [email protected] to [email protected]
QM will download new messages from gmail.
Will delete any old messages from directory "$Desktop$\pop"
Store the .eml files in directory "$Desktop$\pop"
Then will grab the subject and body using MailBee for each new email in directory "$Desktop$\pop"

If everything works, should output:

Code:

Copy      Help

******************************************************
Number of new messages downloaded: 1
******************************************************
C:\Documents and Settings\The Vig Music\Desktop\pop\Welcome to QM Mail.eml
Welcome to QM Mail
Congrats...You just sent and received email using Quick Macros

---------------------------------------------------