Public Sub ParseMail(Mail As Outlook.MailItem)

Dim pos&
Dim SLeft As String
Dim SRight As String
Dim SEmail As String
Dim OMailItem As MailItem
Dim MailBody As String

MailBody = Mail.Body

pos = InStr(MailBody, "@")

If pos > 0 Then
SLeft = Left(MailBody, pos)
SRight = Mid(MailBody, pos)
SEmail = SLeft + SRight

Set OMailItem = Application.CreateItem(olMailItem)
With OMailItem
.To = SEmail
.Subject = "Thank you for applying"
.Display
End With

Set OMailItem = Nothing


End If


End Sub;

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace

Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
ParseMail Item
End If
End Sub

Public Sub ParseMail(Mail As Outlook.MailItem)

'Setting up variables
Dim pos&
Dim SLeft As String
Dim SRight As String
Dim SEmail As String
Dim OMailItem As MailItem
Dim MailBody As String

If Mail.SenderEmailAddress = "website@yourdomain.com" Then

'Setting string to email body text
MailBody = Mail.Body

'Getting position of "@" in email address in body of email
pos = InStr(MailBody, "@")

'If there is an email address then
If pos > 0 Then
'Finding the starting position for characters LEFT of "@"
SLeft = Mid(MailBody, InStrRev(Left(MailBody, pos - 1), " "))
'Returning the characters LEFT of "@"
SLeft = Left(SLeft, InStr(SLeft, "@") - 1)
'Getting rid of mailto: at the beginning
SLeft = Mid(SLeft, InStr(1, SLeft, ":") + 1)
'Finding the starting position for characters RIGHT of "@"
SRight = Mid(MailBody, pos)
'Returning the characters RIGHT of "@"
SRight = Left(SRight, InStr(SRight, " "))
'Getting TO string
SEmail = SLeft + SRight

Set OMailItem = Application.CreateItemFromTemplate(Environ("APPDATA") & "\Microsoft\Templates\Confirmation Receipt of Job Application.oft")
With OMailItem
.SentOnBehalfOfName = "hrdept@yourdomain.com"
.To = SEmail
.Send


End With

Set OMailItem = Nothing


End If

End If


End Sub