Alpha Video Training
Results 1 to 2 of 2

Thread: Reading email & sending follow up email for sales Agents.

  1. #1
    VAR
    Real Name
    tony freehauf
    Join Date
    Nov 2004
    Location
    Channahon, Illinois (Chicago Area - In Chicago we vote early & often & the dead vote.)
    Posts
    217

    Default Reading email & sending follow up email for sales Agents.

    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
    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 <ernie@ynotsoftware.com>
    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 = "info@ynotsoftware.com"
    '+++++++++++++++++++++++++++++++++++++++++++++++++++
    '+++++++++++++++++++++++++++++++++++++++++++++++++++
                '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

  2. #2
    Member
    Real Name
    Roger
    Join Date
    May 2008
    Posts
    1

    Default Re: Reading email & sending follow up email for sales Agents.

    Just what I was looking for! Thanks Tony, many great ideas to study and apply!

Similar Threads

  1. Sending email to many
    By superdave in forum Alpha Five Version 7
    Replies: 4
    Last Post: 03-07-2006, 05:12 PM
  2. sending email
    By Lost in forum Alpha Five Version 7
    Replies: 0
    Last Post: 02-27-2006, 05:22 AM
  3. Email & auto fill of To Email address
    By dchiass in forum Alpha Five Version 6
    Replies: 1
    Last Post: 10-29-2004, 06:37 AM
  4. Sending Email
    By Angie Boutin in forum Alpha Five Version 5
    Replies: 5
    Last Post: 01-15-2003, 08:31 AM
  5. email with bad address - no follow-up
    By John Guy in forum Alpha Five Version 5
    Replies: 2
    Last Post: 08-05-2002, 06:27 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •