VBA replies twice with one .send

This code does exactly what I need it to do, but I want to be able to send a reply to the sender to let them know we got the photos, it works great but the thing sends two replies, what's worse is the due to the .body being unreadable, i built a catch to resend the email with the body as the subject and it does that 4 times. any ideas?

Code:

---

Public Sub piclandfolder(itm As Outlook.MailItem)    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
        saveFolder = "\\my folder thingy\Photo Share\current week"
    Dim dateFormat As String
        dateFormat = Format(itm.ReceivedTime, "MM-DD-YY ")
    Dim pics As String
        pics = "pics at dumbemail"
    TextBody = itm.Body
    Dim sender As String
        sender = itm.SenderEmailAddress
    Dim count As Integer
    count = 1
   
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & itm.Subject & "-" & dateFormat & "-" & "(" & count & ")" & ".jpg"
        count = count + 1
       
    Next
    'this is my catch, i try to save the photos as the subject line, if there is no subject (say from a text message) then I forward the message to myself with the body as the subject, this is because I couldn't find a way to use the itm.body as part of the saveas.
    If itm.Subject = Empty Then
    Set itmf = itm.Forward
    With itmf
        .To = "pics at dumbemail"
        .Subject = itm.Body
        .Send
    End With
    itm.Delete
    Dim msgf As Outlook.MailItem
    Set msgf = Application.CreateItem(olMailItem)
    msgf.To = sender
    msgf.Body = "thank you for your pictures, please put your door description in the 'subject' when sending photos in, thanks!!"
    msgf.Send
    Set msgf = Nothing
    Exit Sub
   
   
    Else
    MsgBox "you have a new picture e-mail from " & sender
    Dim msg As Outlook.MailItem
    Set msg = Application.CreateItem(olMailItem)
    With msg
        .To = sender
        .Subject = itm.Body
        .Body = "thank you for your " & itm.Subject & " pictures, have a terrific day!!"
        .Send
    End With
    Set msg = Nothing
    End If
End Sub

---

thanks!!