I am thrilled that this can be done. Alpha5 is great.
Alpha 5 reads email from a server, then sends prospect a follow up email acknowledging the received email. Then the lead data is extracted from the source email & posted to a file on the web for sales agents to use to follow up these leads. I know my programming techniques are not the best, but this shows that it can be done.
Any suggestions for improvement will be appreciated. � thanks � old tony
Alpha 5 reads email from a server, then sends prospect a follow up email acknowledging the received email. Then the lead data is extracted from the source email & posted to a file on the web for sales agents to use to follow up these leads. I know my programming techniques are not the best, but this shows that it can be done.
Any suggestions for improvement will be appreciated. � thanks � old tony
Code:
dim The_Time as C; dim The_Date as C; dim tLeadEntry as p; dim tProspct as p dim pSocket as P; dim pMessage as P; dim n as n=1; dim nn as n;dim count as n=1 DIM pm as P ; dim tn as C; dim The_Time as C; dim The_Date as C; dim tablx as P dim ymessage as c; dim yheaders as c; dim ysubject as c; dim yto as c; dim yFrom as c; dim ydata as c ymessage = "" ; yheaders = "" ; ysubject = ""; yTo = "" ; yFrom = "" ; yDate = "" Dim yEmailAdd as c; DIM ps as P; dim yLastName as c; dim yFirstName as c; dim yHmPhone as c; dim yWkPhone as c yEmailAdd = "" ; yLastName = "" ; yFirstname = "" ; yHmPhone = ""; yWkPhone = "" dim yCellPhone as c; dim yAddress as c; dim yCity as c; dim yState as c; dim yZip as c; dim yEmployer as c yCellPhone = ""; yAddress = ""; yCity = "" ; yState = "" ; yZip = "" ; yEmployer = "" dim yAddSource as c; dim yNotes as c; dim yLeadDt as c; dim yLeadTm as c; dim yAgentCode as c yAddSource = "" ; yNotes = "" ; yLeadDt = "" ; yLeadTm = "" ; yAgentCode = "" dim yToProspectFile as c; dim yFuDt as d; dim yAutoEmFu ; dim yAdSource as c yToProspectFile ="" ; yFuDt = "" ; yAutoEmFu ="" ; yAdSource = "" 'nulls are not necessary here but i used them to make sure when i copied them i got all of them ytest1= email_pop_open(pSocket, "192.168.3.53", "ppmmail", "sdfdodvo") if ytest1 = .T. then nn= pSocket.nMessages ' number of messages goto getmore else end end if getmore: 'clear all variables ymessage = "" ; yheaders = "" ; ysubject = ""; yTo = "" ; yFrom = "" ; yDate = "" yEmailAdd = "" ; yLastName = "" ; yFirstname = "" ; yHmPhone = ""; yWkPhone = "" yCellPhone = ""; yAddress = ""; yCity = "" ; yState = "" ; yZip = "" ; yEmployer = "" yAddSource = "" ; yNotes = "" ; yLeadDt = "" ; yLeadTm = "" ; yAgentCode = "" yToProspectFile ="" ; yFuDt = "" ; yAutoEmFu ="" ; yAdSource = "" yheaders = email_pop_headers(pSocket, n) ysubject=a5_email_get_field(yheaders, "Subject:") yTo=a5_email_get_field(yheaders, "To:") yFrom=a5_email_get_field(yheaders, "From:") yDate=a5_email_get_field(yheaders, "Date:") email_pop_retr(pMessage, pSocket, n) ymessage=pMessage.message '^^^^^look for leads from craiglist.org^^^^^^^^^^^^^^^^^^ 'all leads have the expressiong @craiglist.org at the end of there email 'email from address looks like Ernie Banks <[email protected]> if at("@craigslist.org",ymessage) > 0 then 'this is found in all there leads if yFrom <> "" then OpenFrom=at("<",yFrom) EndFrom=at(">",yFrom) yEmailAdd=substr(yFrom,OpenFrom+1,(EndFrom-OpenFrom)-1) yProspectName=substr(yfrom,1,OpenFrom-1-1) if (word(yProspectName,4))="" .and.(word(yProspectName,3) <> "") then yLastName= word(yProspectName,3) yFirstName=word(yProspectName,1)+" "+word(yProspectName,2) elseif (word(yProspectName,3))="" .and.(word(yProspectName,2) <> "") then yLastName= word(yProspectName,2) yFirstName=word(yProspectName,1) else yLastName=yProspectName end if end if ' [ ]below is for testing - remove on running version yAdSource = "CRAIGS" TopInfo="From: "+yFrom+crlf()+"Prospect Name: "+yProspectName+crlf()+"Email Address: "+yEmailAdd+crlf()+"subject: "+ySubject+crlf() ui_msg_box("message content "+n+" of "+nn,TopInfo+ymessage) 'send auto email, Post to lead_file and to prospect file goto SendEmailAndPost end if goto CheckCount '___look for leads from craiglist.org__________________ CheckCount: n=n+1 if n > nn then goto eoj end if goto getmore eoj: end '================================================== '================================================== SendEmailAndPost: 'send auto email tn = table.filename_get("Email_Setup") emipadd=lookupc("F", "PPM", "email_ip_add", tn, "KEYCODE") ' email ip address emfrom=lookupc("F", "PPM", "From_Address", tn, "KEYCODE") ' email from emfromalias=lookupc("F", "PPM", "From_Alias", tn, "KEYCODE") ' email ip address emcc=lookupc("F", "PPM", "CC_1", tn, "KEYCODE") ' email ip address embcc=lookupc("F", "PPM", "Bcc_1", tn, "KEYCODE") ' email ip address emsubject=lookupc("F", "PPM", "Subject", tn, "KEYCODE") ' email ip address pm.from = emfrom pm.from_alias = emfrom ' emfromalias '+++++++++++++++++++++++++++++++++++++++++++++++++++ '+++++++++++++++++++++++++++++++++++++++++++++++++++ '[ ] change to below when all tested 'pm.to = yEmailAdd '{ ] remove below when all tested pm.to = "[email protected]" '+++++++++++++++++++++++++++++++++++++++++++++++++++ '+++++++++++++++++++++++++++++++++++++++++++++++++++ 'pm.to = lead_entry->Prospect_Email_Add ' email->Email_Address pm.cc =emcc pm.bcc = embcc '+++++++++++++++++++++++++++++++++++++++++++++++++++ '+++++++++++++++++++++++++++++++++++++++++++++++++++ '[ ] change to below when all tested 'pm.subject = emsubject '{ ] remove below when all tested pm.subject = emsubject+" "+yEmailAdd+" "+yProspectName pm.message = "" ' lead_entry->Email ' "main body of message" '+++++++++++++++++++++++++++++++++++++++++++++++++++ '+++++++++++++++++++++++++++++++++++++++++++++++++++ 'email1.htm is a premaid html doc with graphics linked to a web site pm.html_message = file.to_string("v:\ppm2\em\email1.htm") pm.attachments = "" ' <<%str% 'optional header fields pm.xmailer = "ZonedProperty Management Mailer" pm.lRelated = .F. ' send message IF email_smtp_open(ps, emipadd) email_smtp_send(pm, ps) END IF Email_smtp_close(ps) The_Time=a5_timestamp() The_Date=date() WriteToLeadFile: tLeadEntry = Table.open("lead_entry", file_rw_shared) tLeadEntry.enter_begin() tLeadEntry.Prospect_Email_add= yEmailAdd tLeadEntry.Auto_Email=.T. tLeadEntry.Email_Type=1 tLeadEntry.First_Name=yFirstName tLeadEntry.Last_Name=yLastName tLeadEntry.Hm_Phone=yHmPhone tLeadEntry.Wk_Phone=yWkPhone tLeadEntry.Cell_Phone=yCellPhone tLeadEntry.Address=yAddress tLeadEntry.City=yCity tLeadEntry.State=yState tLeadEntry.Zip=yZip tLeadEntry.Employer=yEmployer tLeadEntry.Ad_Source=yAdSource ' "CRAIGS" tLeadEntry.Notes=yMessage tLeadEntry.Email= "" 'this would be for a text emai tLeadEntry.Email_Sent= .T. 'tLeadEntry.Lead_date=The_Date 'tLeadEntry.Lead_TimeA=The_Time tLeadEntry.Agent_Code=yAgentCode tLeadEntry.Postedtoprospect = .T. tLeadEntry.Next_followup_Date=date()+7 tLeadEntry.Autoemailfollowup=.T. tLeadEntry.enter_end() tLeadEntry.close() WriteToProspectFile: '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 tProspct = Table.open("prospects", file_rw_shared) tProspct.enter_begin() tProspct.Agent_code="" tProspct.Prospect=.t. tProspct.Lead_date=The_Date tProspct.Lead_time=The_Time tProspct.Auto_email_program=.T. tProspct.First_name=yFirstName tProspct.Last_name=yLastName tProspct.Company=yEmployer tProspct.Home_address1=yAddress tProspct.Home_city=yCity tProspct.Home_state_region=yState tProspct.Home_postalcode=yZip tProspct.Phonehome=yHmPhone tProspct.Phonework=yWkPhone tProspct.Email_address=yEmailAdd tProspct.Mobile_phone=yCellPhone tProspct.Email_type=1 'tProspct.Lead_Date=date() tProspct.Next_Follow_date=date()+7 tProspct.Notes=yMessage tProspct.enter_end() tProspct.close() 'eojX: goto CheckCount end '________send auto email
Comment