Email generator called from Application_NewMail is generating duplicate emails - vba

Question

I have this macro which picks the file (pdf) out of a specified folder and then emails it as an attachment.
It is running via Application_NewMail and then links to an Excel file where the pdf is created and saved.
It works but the attachment is sent twice in two separate emails - I thought about writing another macro to remove duplicate emails but I am afraid this might delete emails I do not want to delete.
Folder path and email address have been replaced by placeholders.
Sub Any_help_appreciated()
Dim objMail As Outlook.MailItem
Dim fso As Object 'Scripting.FileSystemObject
Dim strFile As String
Dim fsoFile 'As Scripting.File
Dim fsoFldr 'As Scripting.Folder
Dim dtNew As Date, sNew As String
Set fso = CreateObject("Scripting.FileSystemObject")
strFile = "FOLDER PATH" 'path to pdf folder
Set fsoFldr = fso.GetFolder(strFile)
dtNew = Now - TimeValue("00:00:30") 'select pdf if created in last 30 secs
For Each fsoFile In fsoFldr.Files
If fsoFile.DateCreated > dtNew Then
sNew = fsoFile.Path
Set objMail = Application.CreateItem(olMailItem)
With objMail
.To = "email.address#email.com"
.Subject = "Subject"
.BodyFormat = olFormatPlain
.Attachments.Add sNew
.Send ' .send
End With
End If
Next fsoFile
End Sub

Answer 1

You get two emails because Application_NewMail event handler gets executed twice and two emails are sent consecutively (only two because it takes some time before server processes the e-mail). I guess it is because .To value of email.address#email.com is your email account for testing.
Try to add some check if the code for objMail.Send does get executed twice like writing something to a text file, log etc.
Or move the PDF file to a different folder after processing it.