Skip to content

E
EMSystemsWeb
Commit 08ecfb7c by Mac Stephens
Options

Add submitter confirmation emails; split contact vs demo logging into separate… 

Add submitter confirmation emails; split contact vs demo logging into separate tagged log files; remove subject/submitted-on from confirmation; update text on forms
parent 0b809c28
Showing with 366 additions and 105 deletions
emSystemsWeb/Site.Footer.pas
......@@ -22,7 +22,6 @@ const
' </a>' +
' </div>' +
' <div class="col-lg-4">' +
' <div class="h6 mb-2">Explore</div>' +
' <ul class="list-unstyled mb-0 small">' +
' <li class="mb-1"><a href="#FHome" id="homefooter" class="link-light text-decoration-none">Home</a></li>' +
' <li class="mb-1"><a href="#FAboutUs" id="aboutusfooter" class="link-light text-decoration-none">About Us</a></li>' +
......
emSystemsWeb/Site.Navbar.pas
......@@ -28,9 +28,9 @@ const
' <li class="nav-item dropdown">' +
' <a class="nav-link dropdown-toggle" href="#" role="button" data-bs-toggle="dropdown" aria-expanded="false">What We Do</a>' +
' <ul class="dropdown-menu">' +
' <li><a class="dropdown-item" href="#FPublicSafety">Public Safety Software</a></li>' +
' <li><a class="dropdown-item" href="#FRecordsManagement">Records Management Notification</a></li>' +
' <li><a class="dropdown-item" href="#FCustomSoftware">Custom Software</a></li>' +
' <li><a class="dropdown-item" href="#FPublicSafety">Public Safety</a></li>' +
' <li><a class="dropdown-item" href="#FRecordsManagement">Records Management</a></li>' +
' </ul>' +
' </li>' +
' <li class="nav-item"><a class="nav-link" href="#FContactUs">Contact Us</a></li>' +
......
emSystemsWeb/View.AboutUs.html
......@@ -10,18 +10,16 @@
<div class="text-wrapper-aboutus mx-auto p-3 p-md-5 rounded shadow">
<h2>Our Story</h2>
<p class="fs-6">
EM Systems was established in the early 1990s as a software development group. Over the last
two decades, EM Systems have developed a vast array of custom software applications for a variety of
industries with a primary focus on the Public Safety and Healthcare fields. Currently, over 75
organizations across New York State rely on EM Systems applications to meet the needs of their
communities and
customers. EM Systems prides itself in its ability to create custom software solutions to meet the
specific needs of
our customers. Our goal is to create software which facilitates and enhances current business practices
in a
reliable and efficient manner. Not only do we offer expert software development knowledge and skills but
we are also experienced in understanding and improving efficiency in current business processes and
practice.
Located in Buffalo, New York, EM Systems has designed and delivered a wide range of custom software
solutions across multiple industries, with the strongest emphasis on Public Safety Systems. Today, more
than 75 organizations throughout New York State depend on EM Systems applications to support their
communities and agencies.
EM Systems is distinguished by its ability to develop tailored software solutions that address the
unique requirements of each client. Our mission is to deliver reliable, efficient software that enhances
and streamlines existing business or agency operations. In addition to deep expertise in software
development, we bring extensive experience in analyzing, refining, and improving operational workflows
to drive greater efficiency and effectiveness.
</p>
</div>
</div>
......
emSystemsWeb/View.CustomSoftware.html
......@@ -15,22 +15,55 @@
<!--MAIN CONTAINER-->
<div class="container-main">
<div class="learn-boxes py-5">
<div class="learn-boxes">
<!-- CUSTOM SOFTWARE BOX 1 -->
<div class="row mb-4 g-4 align-items-center bg-white shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>AutoPark</h2>
<p class="mx-auto" style="max-width: 850px;">AutoPark is our parking ticket management system. It streamlines and coordinates the process and procedures of managing a parking area. From parking tags, tickets and bills to payments and appeals, this solution has it all when it comes to parking management.</p>
<div class="p-3">
<div class="text-center">
<h2>CJIS Compliance Commitment</h2>
<p class="mx-auto" style="max-width: 850px;">EM Systems is fully committed to meeting and exceeding CJIS
requirements across every component of the Public Safety Software programs, providing agencies with
secure, compliant, and reliable solutions that can be trusted to support mission-critical operations.
</p>
</div>
<div class="container">
<h3 class="text-center">List of Programs</h3>
<div class="row justify-content-center">
<div class="col-sm-6 col-md-auto mb-2 border-top pt-3" style="max-width: 350px;">
<ul class="text-start">
<li>Computer Aided Dispatch (CAD) - Police, Fire &amp; EMS</li>
<li>Mapping w/GPS tracking &amp; AVL</li>
<li>Records Management System (RMS)</li>
<li>Mobile Data System (MDS) w/Police Reports &amp; Arrest</li>
<li>Livescan Fingerprinting w/ Booking and Civil submissions</li>
</ul>
</div>
<div class="col-sm-6 col-md-auto text-md-start border-top pt-3" style="max-width: 350px;">
<ul>
<li>Jail Management System (JMS)</li>
<li>iPhone &amp; Android Apps - CAD Monitor &amp; Data Access</li>
<li>FireRMS w/NERIS reporting</li>
<li>Summons &amp; Accidents MDS modules (Tracs replacement)</li>
<li>Discovery module w/Interface to DEMS</li>
<li>Interfaces to State &amp; Federal Systems</li>
</ul>
</div>
</div>
</div>
</div>
</div>
</div>
<!-- CUSTOM SOFTWARE BOX 2 -->
<div class="row mb-4 g-4 align-items-center bg-gray shadow-sm rounded">
<div class="row mb-4 g-4 align-items-center bg-grey shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Document Scanning Tools</h2>
<p class="mx-auto" style="max-width: 850px;">Scan and transmit paper documents with ease. This software provides an easy way to scan and organize paper documents and send them electronically to a variety of configurable destinations including HL7, FTPS, HTTPS, CIFS and more.</p>
<h2>AutoPark</h2>
<p class="mx-auto" style="max-width: 850px;">AutoPark is our parking ticket management system. It
streamlines and coordinates the process and procedures of managing a parking area. From parking tags,
tickets and bills to payments and appeals, this solution has it all when it comes to parking management.
</p>
</div>
</div>
</div>
......@@ -38,17 +71,21 @@
<div class="row mb-4 g-4 align-items-center bg-white shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Document Management System</h2>
<p class="mx-auto" style="max-width: 850px;">Very easily scan and store all of your paper documents securely and safely and retrieve any of them instantly at any time. This software can save countless hours for document imaging projects and can be customized to fit specific needs.</p>
<h2>Document Scanning Tools</h2>
<p class="mx-auto" style="max-width: 850px;">Scan and transmit paper documents with ease. This software
provides an easy way to scan and organize paper documents and send them electronically to a variety of
configurable destinations including HL7, FTPS, HTTPS, CIFS and more.</p>
</div>
</div>
</div>
<!-- CUSTOM SOFTWARE BOX 4 -->
<div class="row mb-4 g-4 align-items-center bg-gray shadow-sm rounded">
<div class="row mb-4 g-4 align-items-center bg-grey shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Pawn Shop Pro</h2>
<p class="mx-auto" style="max-width: 850px;">This is a pawn shop management system that will simplify record keeping, billing, and inventory management. If there is something specific that you need for your pawn shop the software can be modified to suit your needs.</p>
<h2>Document Management System</h2>
<p class="mx-auto" style="max-width: 850px;">Very easily scan and store all of your paper documents securely
and safely and retrieve any of them instantly at any time. This software can save countless hours for
document imaging projects and can be customized to fit specific needs.</p>
</div>
</div>
</div>
......@@ -56,8 +93,20 @@
<div class="row mb-4 g-4 align-items-center bg-white shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Pawn Shop Pro</h2>
<p class="mx-auto" style="max-width: 850px;">This is a pawn shop management system that will simplify record
keeping, billing, and inventory management. If there is something specific that you need for your pawn
shop the software can be modified to suit your needs.</p>
</div>
</div>
</div>
<!-- CUSTOM SOFTWARE BOX 6 -->
<div class="row mb-4 g-4 align-items-center bg-grey shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Employee Time Tracking</h2>
<p class="mx-auto" style="max-width: 850px;">This software is an easy and useful way to track customers, projects, tasks, and resources over time and create reports from this information.</p>
<p class="mx-auto" style="max-width: 850px;">This software is an easy and useful way to track customers,
projects, tasks, and resources over time and create reports from this information.</p>
</div>
</div>
</div>
......
emSystemsWeb/View.Home.html
......@@ -9,15 +9,12 @@
<div class="text-wrapper">
<h1 class="display-4">Custom Software, Comprehensive Support</h1>
<!-- Constrain only the paragraph width -->
<div class="mx-auto" style="max-width: 540px;">
<p class="lead fs-3 mb-0">Real connections. Reliable support. Software made for you.</p>
</div>
<!-- Button sits outside the max-width block -->
<div class="mt-5">
<button type="button"
id="btn_demo"
<button type="button" id="btn_demo"
class="btn btn-lg rounded-pill fw-semibold text-white shadow px-4 px-sm-5 py-2"
onclick="window.location.hash='#FRequestDemo';">
Request a Demo
......@@ -30,6 +27,7 @@
<!--MAIN CONTAINER-->
<div class="container-main">
<!-- LEARN BOXES -->
<div class="learn-boxes">
<div class="row mb-4 g-4 align-items-center bg-white shadow-sm rounded">
......@@ -41,7 +39,10 @@
<div class="col-md-6">
<div class="p-3 text-center">
<h2>Integrated Public Safety Software</h2>
<p>EM Systems maintains a full suite of proven integrated systems that can be tailored to fit the specific needs of your organization. Seeking to move from an older outdated, or more expensive solution? Facilitate a smooth transition and don’t lose a thing. Ask us about data conversion and training programs.</p>
<p>EM Systems maintains a full suite of proven integrated public safety systems that can be tailored to fit
the specific needs of your organization. If you are seeking to move from an older outdated or more
expensive solution, we will facilitate a smooth transition to our customizable proven solutions. Ask us
about data conversion and training programs.</p>
<a href="#FPublicSafety" id="publicsafetylearn" class="btn btn-primary btn-black">Learn More</a>
</div>
</div>
......@@ -55,7 +56,9 @@
<div class="col-md-6">
<div class="p-3 text-center">
<h2>Records Management Notification System</h2>
<p>EM Systems has several new records and information management systems which incorporate modern paradigms in the field. Thinking of integrating electronic medical records with public safety systems? We can help. Feel free to contact us any time.</p>
<p>EM Systems has a suite of new records and information management solutions which incorporate modern
paradigms in the field. Learn about simplifying the management of your information through notification
processes and never miss a task by using this built in task related notification alerting system.</p>
<a href="#FRecordsManagement" id="recordsmanagementlearn" class="btn btn-primary btn-black">Learn More</a>
</div>
</div>
......@@ -69,7 +72,10 @@
<div class="col-md-6">
<div class="p-3 text-center">
<h2>Custom Software Development</h2>
<p>EM Systems has great talent when it comes to working with customers to develop software solutions designed and tailored to their specific needs. Over the years we have created hundreds of custom solutions that have worked wonders for our customers.</p>
<p>EM Systems brings exceptional expertise by partnering with customers to design software solutions
tailored to specific needs. We have developed hundreds of custom solutions that have delivered outstanding
results for our customers. Learn more about some of the custom solutions we have developed through
successful partnerships and collaboration with our clients.</p>
<a href="#FCustomSoftware" id="customsoftwarelearn" class="btn btn-primary btn-black">Learn More</a>
</div>
</div>
......@@ -79,5 +85,3 @@
<div id="site_footer"></div>
</div>
emSystemsWeb/View.RecordsManagement.html
......@@ -15,15 +15,24 @@
<!--MAIN CONTAINER-->
<div class="container-main">
<div class="learn-boxes py-5">
<div class="learn-boxes">
<!-- RECORDS MANAGEMENT BOX 1 -->
<div class="row mb-4 g-4 align-items-center bg-white shadow-sm rounded">
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Records Retention Notification</h2>
<p class="mx-auto" style="max-width: 850px;">Emergent.MD is an easy-to-use, full-featured, state-of-the-art Electronic Medical Records System. It works
with just about any practice. It interfaces with your existing Practice Management System. And, we’ll tailor
it to fit your unique workflow requirements. It will improve efficiency and save money for your practice.
<p class="mx-auto" style="max-width: 850px;">With multi departmental government organizations constantly in
a state of flux, the Records Management Notification System is designed to provide consistent and informed
alerts to aid governments in following records management best practices.
This system is designed to help Town Clerk’s, Police Departments, and Records Managers fulfill records
retention mandates by providing alerts to complete standard records management practices. This software
will aid in the management of day-to-day records and help local government meet records retention
requirements.
The Records Retention RMNS is fully aligned with the New York State LG-1 schedule, integrating
comprehensive retention and disposition policies that streamline the management of both electronic and
paper records through a task-based notification system.
</p>
</div>
</div>
......@@ -33,10 +42,11 @@
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Legal Hold Notices</h2>
<p class="mx-auto" style="max-width: 850px;">TeleCare Connex is a completely integrated telemonitoring solution that includes wireless mobile devices
for remote vital sign collection, and a web application for technicians and monitors to setup, enroll, and
actively or passively track patient status and provide health information accordingly. This helps to reduce
hospititalizations, promote good health with its participants and saves money.</p>
<p class="mx-auto" style="max-width: 850px;">The Legal Holds Notices RMNS module is designed to notify
government officials and records managers of a current obligation to preserve evidence and ensure critical
information remains intact and accessible for review under a legal hold. The notification will remind key
stakeholders that legal holds are current and in place; preventing governments from receiving penalties
for non-compliance.</p>
</div>
</div>
</div>
......@@ -45,11 +55,11 @@
<div class="col-md-12">
<div class="p-3 text-center">
<h2>Freedom of Information Law (FOIL)</h2>
<p class="mx-auto" style="max-width: 850px;">Dictation Notepad is a simple app for dictating and sending notes using an android powered device. It
leverages speech recognition technology to accurately transform speech to text and it allows formatting and
editing of the text using voice commands. The audio is recorded and encoded to a small file size and saved
along with the text. The text (in html format) and audio can be configured to send to variety of destination
protocols (SMTP, FTP/S, HTTP/S) with a user specified host.</p>
<p class="mx-auto" style="max-width: 850px;">The FOIL Requests RMNS module provides automated notifications
to government employees when a FOIL request is received and alerts users to the required tasks and steps
necessary to maintain compliance with the Freedom of Information Law. The system issues reminders to
ensure requests are properly filed, delivers automatic status updates, and audits completed tasks to
support ongoing compliance and accountability.</p>
</div>
</div>
</div>
......
emSystemsWeb/View.RequestDemo.pas
......@@ -238,7 +238,7 @@ begin
radReqEmail.Checked := True;
wcbInterest.ItemIndex := -1;
ShowNotificationModal('Your demo request has been sent successfully. We will reach out shortly.');
ShowNotificationModal('Your demo request has been submitted. Please check your email for confirmation. If you did not recieve an email, reach out directly.');
end);
end;
......
emSystemsWebServer/bin/emSystemsWebServer.ini
[Settings]
memoLogLevel=3
fileLogLevel=4
LogFileNum=44
LogFileNum=49
webClientVersion=1.0.1
[SMTP]
......
emSystemsWebServer/emSystemsWebServer.dpr
......@@ -40,6 +40,19 @@ type
procedure Send(logLevel: Integer; Log: ILog);
end;
TTaggedFileLogAppender = class( TInterfacedObject, ILogAppender )
private
FLogLevel: Integer;
FFilename: string;
FLogDirectory: string;
FTagPrefix: string;
FCriticalSection: TCriticalSection;
public
constructor Create(ALogLevel: Integer; AFilename: string; ATagPrefix: string);
destructor Destroy; override;
procedure Send(logLevel: Integer; Log: ILog);
end;
{ TMemoLogAppender }
constructor TMemoLogAppender.Create(ALogLevel: Integer; ALogMemo: TMemo);
begin
......@@ -71,7 +84,7 @@ begin
FormattedMessage := FormattedMessage + '[' + IntToStr(logLevel) +'] ' + LogMsg;
if logLevel <= FLogLevel then
FLogMemo.Lines.Add( FormattedMessage );
FLogMemo.Lines.Add(FormattedMessage);
finally
FCriticalSection.Release;
end;
......@@ -89,11 +102,11 @@ begin
if not DirectoryExists(FLogDirectory) then
CreateDir(FLogDirectory);
iniFile := TIniFile.Create( ChangeFileExt(Application.ExeName, '.ini') );
iniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
fileNum := iniFile.ReadInteger( 'Settings', 'LogFileNum', 0 );
FFilename := AFilename + Format( '%.4d', [fileNum] );
iniFile.WriteInteger( 'Settings', 'LogFileNum', fileNum + 1 );
fileNum := iniFile.ReadInteger('Settings', 'LogFileNum', 0);
FFilename := AFilename + Format('%.4d', [fileNum]);
iniFile.WriteInteger('Settings', 'LogFileNum', fileNum + 1);
finally
iniFile.Free;
end;
......@@ -116,7 +129,6 @@ begin
FCriticalSection.Acquire;
try
LogTime := Now;
// LogFile := ExtractFilePath(Application.ExeName) + FFilename + '.log';
LogFile := FLogDirectory + FFilename + '.log';
FormattedMessage := FormatDateTime('[yyyy-mm-dd HH:nn:ss.zzz]', LogTime);
......@@ -127,14 +139,14 @@ begin
FormattedMessage := FormattedMessage + '[' + IntToStr(logLevel) +'] ' + LogMsg;
try
AssignFile( FLogFile, LogFile );
AssignFile(FLogFile, LogFile);
if logLevel <= FLogLevel then
begin
if FileExists(LogFile) then
Append( FLogFile )
Append(FLogFile)
else
ReWrite( FLogFile );
WriteLn( FLogFile, FormattedMessage );
Rewrite(FLogFile);
WriteLn(FLogFile, FormattedMessage);
end;
finally
CloseFile(FLogFile);
......@@ -144,6 +156,67 @@ begin
end;
end;
{ TTaggedFileLogAppender }
constructor TTaggedFileLogAppender.Create(ALogLevel: Integer; AFilename: string; ATagPrefix: string);
begin
FLogLevel := ALogLevel;
FTagPrefix := ATagPrefix;
FCriticalSection := TCriticalSection.Create;
FLogDirectory := ExtractFilePath(Application.ExeName) + 'logs\';
if not DirectoryExists(FLogDirectory) then
CreateDir(FLogDirectory);
FFilename := AFilename;
end;
destructor TTaggedFileLogAppender.Destroy;
begin
FCriticalSection.Free;
inherited;
end;
procedure TTaggedFileLogAppender.Send(logLevel: Integer; Log: ILog);
var
FormattedMessage: string;
LogFile: string;
LogTime: TDateTime;
LogMsg: string;
FLogFile: TextFile;
begin
if logLevel > FLogLevel then
Exit;
LogMsg := Log.GetMessage;
if LogMsg.IsEmpty then
Exit;
if (FTagPrefix <> '') and (Copy(LogMsg, 1, Length(FTagPrefix)) <> FTagPrefix) then
Exit;
FCriticalSection.Acquire;
try
LogTime := Now;
LogFile := FLogDirectory + FFilename + '.log';
FormattedMessage := FormatDateTime('[yyyy-mm-dd HH:nn:ss.zzz]', LogTime);
FormattedMessage := FormattedMessage + '[' + IntToStr(logLevel) +'] ' + LogMsg;
try
AssignFile(FLogFile, LogFile);
if FileExists(LogFile) then
Append(FLogFile)
else
Rewrite(FLogFile);
WriteLn(FLogFile, FormattedMessage);
finally
CloseFile(FLogFile);
end;
finally
FCriticalSection.Release;
end;
end;
{$R *.res}
var
......@@ -156,7 +229,7 @@ begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFMain, FMain);
// Read INI for log levels
IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
memoLogLevel := IniFile.ReadInteger('Settings', 'memoLogLevel', 3);
......@@ -168,6 +241,9 @@ begin
Logger.AddAppender(TMemoLogAppender.Create(memoLogLevel, FMain.memoInfo));
Logger.AddAppender(TFileLogAppender.Create(fileLogLevel, 'emSystemsWebServer'));
Logger.AddAppender(TTaggedFileLogAppender.Create(fileLogLevel, 'contact', '[CONTACT]'));
Logger.AddAppender(TTaggedFileLogAppender.Create(fileLogLevel, 'demo', '[DEMO]'));
Application.Run;
end.
emSystemsWebServer/source/Api.ServiceImpl.pas
......@@ -6,7 +6,7 @@ uses
XData.Server.Module,
XData.Service.Common,
IdSMTP, IdMessage, IdSSLOpenSSL, IdText, IdExplicitTLSClientServerBase,
IdSMTP, IdMessage, IdSSLOpenSSL, IdText, IdExplicitTLSClientServerBase, System.NetEncoding,
IdIOHandlerSocket, IdException, IdSSL, IdSMTPBase, IdGlobal, IdStack, IdWinsock2,
IdStackConsts, IdIOHandler, IdIOHandlerStack, IdBaseComponent, System.JSON,
IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, VCL.Forms, Api.Service;
......@@ -30,39 +30,89 @@ uses
function TApiService.SendEmail(Name, Email, Subject, Body: string): string;
var
SMTP: TIdSMTP;
Message: TIdMessage;
SSL: TIdSSLIOHandlerSocketOpenSSL;
IniFile: TIniFile;
IniPath, HtmlBody: string;
smtp: TIdSMTP;
message: TIdMessage;
confirmMsg: TIdMessage;
ssl: TIdSSLIOHandlerSocketOpenSSL;
iniFile: TIniFile;
iniPath: string;
fromEmail: string;
recipientEmail: string;
safeSenderEmail: string;
safeSubject: string;
safeName: string;
submittedOn: string;
logPrefix: string;
htmlBody: string;
confirmHtml: string;
bodyHtml: string;
textPart: TIdText;
htmlPart: TIdText;
confirmTextPart: TIdText;
confirmHtmlPart: TIdText;
confirmSubject: string;
bodyLines: TArray<string>;
i: Integer;
begin
IniPath := ChangeFileExt(Application.ExeName, '.ini');
IniFile := TIniFile.Create(IniPath);
iniPath := ChangeFileExt(Application.ExeName, '.ini');
iniFile := TIniFile.Create(iniPath);
try
SMTP := TIdSMTP.Create(nil);
Message := TIdMessage.Create(nil);
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
fromEmail := iniFile.ReadString('SMTP', 'EmailWebsiteUses', '');
recipientEmail := iniFile.ReadString('SMTP', 'RecipientEmail', '');
safeSenderEmail := Email.Replace(#13, '').Replace(#10, '').Trim;
safeSubject := Subject.Replace(#13, '').Replace(#10, '').Trim;
safeName := Name.Trim;
if SameText(safeSubject, 'Demo Request') then
logPrefix := '[DEMO]'
else
logPrefix := '[CONTACT]';
Logger.Log(2, logPrefix + ' ----------------------------------------');
Logger.Log(2, Format('%s SubmittedOn=%s', [logPrefix, FormatDateTime('yyyy-mm-dd HH:nn:ss', Now)]));
Logger.Log(2, Format('%s Name=%s', [logPrefix, safeName]));
Logger.Log(2, Format('%s Email=%s', [logPrefix, safeSenderEmail]));
Logger.Log(2, Format('%s Subject=%s', [logPrefix, safeSubject]));
Logger.Log(2, logPrefix + ' Body:');
bodyLines := Body.Replace(#13#10, #10).Replace(#13, #10).Split([#10]);
for i := 0 to High(bodyLines) do
Logger.Log(2, logPrefix + ' ' + bodyLines[i]);
smtp := TIdSMTP.Create(nil);
message := TIdMessage.Create(nil);
confirmMsg := TIdMessage.Create(nil);
ssl := TIdSSLIOHandlerSocketOpenSSL.Create(smtp);
try
SMTP.IOHandler := SSL;
SMTP.UseTLS := utUseExplicitTLS;
SMTP.AuthType := satDefault;
smtp.IOHandler := ssl;
smtp.UseTLS := utUseExplicitTLS;
smtp.AuthType := satDefault;
smtp.Host := iniFile.ReadString('SMTP', 'Host', '');
smtp.Port := iniFile.ReadInteger('SMTP', 'Port', 0);
smtp.Username := iniFile.ReadString('SMTP', 'Username', '');
smtp.Password := iniFile.ReadString('SMTP', 'Password', '');
SMTP.Host := IniFile.ReadString('SMTP', 'Host', '');
SMTP.Port := IniFile.ReadInteger('SMTP', 'Port', 0);
SMTP.Username := IniFile.ReadString('SMTP', 'Username', '');
SMTP.Password := IniFile.ReadString('SMTP', 'Password', '');
ssl.SSLOptions.Method := sslvTLSv1_2;
ssl.SSLOptions.SSLVersions := [sslvTLSv1_2];
SSL.SSLOptions.Method := sslvTLSv1_2;
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
submittedOn := FormatDateTime('yyyy-mm-dd hh:nn AM/PM', Now);
Message.From.Address := IniFile.ReadString('SMTP', 'EmailWebsiteUses', '');
Message.Recipients.EmailAddresses := IniFile.ReadString('SMTP', 'RecipientEmail', '');
Message.Subject := Subject;
bodyHtml := TNetEncoding.HTML.Encode(Body);
bodyHtml := bodyHtml.Replace(#13#10, '<br>').Replace(#10, '<br>').Replace(#13, '<br>');
HtmlBody := Format(
htmlBody := Format(
'<html>' +
'<body style="font-family: Arial, sans-serif; font-size: 14px; color:#222;">' +
'<h2 style="color: #2E86C1; margin: 0 0 12px 0;">New "%s" message from EM Systems Website</h2>' +
'<h2 style="color: #2E86C1; margin: 0 0 12px 0;">New %s message from EM Systems Website</h2>' +
'<p style="margin: 0 0 6px 0;"><strong>Submitted On:</strong> %s</p>' +
'<p style="margin: 0 0 6px 0;"><strong>From:</strong> %s &lt;%s&gt;</p>' +
'<p style="margin: 0 0 14px 0;"><strong>Subject:</strong> %s</p>' +
......@@ -72,39 +122,114 @@ begin
'</body>' +
'</html>',
[
Subject,
FormatDateTime('yyyy-mm-dd hh:nn AM/PM', Now),
Name,
Email,
Subject,
Body.Replace(#13#10, '<br>').Replace(#10, '<br>').Replace(#13, '<br>')
TNetEncoding.HTML.Encode(safeSubject),
submittedOn,
TNetEncoding.HTML.Encode(safeName),
TNetEncoding.HTML.Encode(safeSenderEmail),
TNetEncoding.HTML.Encode(safeSubject),
bodyHtml
]
);
Message.Body.Text := HtmlBody;
Message.ContentType := 'text/html';
message.Clear;
message.From.Address := fromEmail;
message.Recipients.EmailAddresses := recipientEmail;
if safeSenderEmail <> '' then
message.ReplyTo.EmailAddresses := safeSenderEmail;
message.Subject := safeSubject;
message.MessageParts.Clear;
message.ContentType := 'multipart/alternative';
textPart := TIdText.Create(message.MessageParts, nil);
textPart.ContentType := 'text/plain; charset=utf-8';
textPart.Body.Text :=
'New message from EM Systems Website' + sLineBreak +
'Submitted On: ' + submittedOn + sLineBreak +
'From: ' + safeName + ' <' + safeSenderEmail + '>' + sLineBreak +
'Subject: ' + safeSubject + sLineBreak +
sLineBreak +
Body;
SMTP.Connect;
htmlPart := TIdText.Create(message.MessageParts, nil);
htmlPart.ContentType := 'text/html; charset=utf-8';
htmlPart.Body.Text := htmlBody;
smtp.Connect;
try
SMTP.Send(Message);
smtp.Send(message);
Logger.Log(2, Format('%s InternalNotificationSent to=%s', [logPrefix, recipientEmail]));
if (safeSenderEmail <> '') and (Pos('@', safeSenderEmail) > 1) then
begin
if SameText(safeSubject, 'Demo Request') then
confirmSubject := 'We received your demo request'
else
confirmSubject := 'We received your message';
confirmHtml := Format(
'<html>' +
'<body style="font-family: Arial, sans-serif; font-size: 14px; color:#222;">' +
'<p style="margin:0 0 10px 0;">Hi %s,</p>' +
'<p style="margin:0 0 10px 0;">Thanks for reaching out. This is a quick confirmation that we received your message.</p>' +
'<p style="margin:0 0 10px 0;"><strong>Subject:</strong> %s</p>' +
'<p style="margin:0 0 10px 0;"><strong>Submitted On:</strong> %s</p>' +
'<p style="margin:0;">Well reply as soon as we can.</p>' +
'</body>' +
'</html>',
[
TNetEncoding.HTML.Encode(safeName),
TNetEncoding.HTML.Encode(safeSubject),
submittedOn
]
);
confirmMsg.Clear;
confirmMsg.From.Address := fromEmail;
confirmMsg.Recipients.EmailAddresses := safeSenderEmail;
confirmMsg.Subject := confirmSubject;
confirmMsg.ExtraHeaders.Values['Auto-Submitted'] := 'auto-replied';
confirmMsg.ExtraHeaders.Values['X-Auto-Response-Suppress'] := 'All';
confirmMsg.MessageParts.Clear;
confirmMsg.ContentType := 'multipart/alternative';
confirmTextPart := TIdText.Create(confirmMsg.MessageParts, nil);
confirmTextPart.ContentType := 'text/plain; charset=utf-8';
confirmTextPart.Body.Text :=
'Hi ' + safeName + ',' + sLineBreak +
sLineBreak +
'Thanks for reaching out. We have received your message and will be in touch soon.' + sLineBreak +
sLineBreak +
'-EM Systems Team';
confirmHtmlPart := TIdText.Create(confirmMsg.MessageParts, nil);
confirmHtmlPart.ContentType := 'text/html; charset=utf-8';
confirmHtmlPart.Body.Text := confirmHtml;
smtp.Send(confirmMsg);
Logger.Log(2, Format('%s ConfirmationSent to=%s', [logPrefix, safeSenderEmail]));
end
else
Logger.Log(2, logPrefix + ' ConfirmationSkipped: invalid sender email');
finally
SMTP.Disconnect;
smtp.Disconnect;
end;
Logger.Log(1, Format('Contact form submitted. Name: %s, Email: %s, Subject: %s, Message: %s', [Name, Email, Subject, Body]));
finally
SSL.Free;
Message.Free;
SMTP.Free;
ssl.Free;
confirmMsg.Free;
message.Free;
smtp.Free;
end;
finally
IniFile.Free;
iniFile.Free;
end;
Result := 'Email sent successfully';
end;
function TApiService.VerifyVersion(ClientVersion: string): TJSONObject;
var
iniFile: TIniFile;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment